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
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下