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
热门推荐
10 感谢韩语老师祝福语简短
11 升职文案高级祝福语简短
12 花童结婚祝福语大全简短
13 向国庆送祝福语简短
14 什么寄语简短祝福语女生
15 客户回礼祝福语大全简短
16 女孩生日祝福语简短创意
17 家长回复节日祝福语简短
18 给外婆敬酒祝福语简短