ASP生成csv文件代码
ASP生成csv文件代码，如下：
'函数定义
SubWriteCsv(FileName,Content)
Path=server.MapPath(FileName)
setstm=server.CreateObject("ADODB.stream")
stm.Type=2
stm.mode=3
stm.charset="utf-8"
stm.open
stm.WriteTextContent,1
stm.SaveToFilePath,2
stm.flush
stm.Close
setstm=nothing
EndSub
'设置文件名和内容
FileName="out.csv"
Content="1,2,3,4,5"&vbCrLf
Content=Content&"6,7,8,9,10"
'调用生成函数
CallWriteCsv(FileName,Content)
以下是可选的代码，用以生成之后直接弹出下载框，可以不用：
Response.Clear
Response.charset="utf-8"
Response.AddHeader"content-disposition","attachment;filename="&FileName
Response.ContentType="application/octet-stream"
Response.buffer=TRUE
SetStream=server.CreateObject("ADODB.Stream")
Stream.Open
Stream.charset="UTF-8"
Stream.Type=1
Stream.LoadFromFilePath
WhileNotStream.EOS
Response.BinaryWriteStream.Read(1024*64)
Wend
Stream.Close
SetStream=Nothing
Response.Flush
Response.End
参考资料：http://bbs.csdn.net/topics/300126977