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 怎么训练狗狗卧下
4 上海狗狗训练基地
5 训练狗狗排便
6 狗狗基础训练
8 如何训练狗狗装死
9 狗狗站姿训练
10 狗狗训练用品
11 训练狗狗吧
12 狗狗要怎么训练
13 怎么训练狗狗玩球
14 训练狗狗唤回
15 狗狗训练躺下
16 狗狗训练指令
17 狗狗的训练技巧
18 狗狗不好训练