当前位置:首页 > 程序&理念 >

一个asp导出csv文件直接下载 的例子

时间:2007-03-06 10:15:41浏览:51193 转载


Response.Buffer = true
Response.AddHeader  \"Content-Disposition\",\"attachment;  filename=member.csv\"       
Response.CharSet  =  \"UTF-8\"    
Response.ContentType  =  \"application/octet-stream\" 
dim conn,rs,i
set conn = Server.CreateObject(\"Adodb.Connection\")
conn.open connectionstring
set rs = conn.Execute(\"select * from [User] order by [UserId]\")
Response.Write rs.fields(0).name
for i=1 to rs.fields.count-1
 Response.Write \",\" & rs.fields(i).name
next
Response.Flush()
do while not rs.eof
 Response.Write vbCrLf & rs(0)
 for i=1 to rs.fields.count-1
  Response.Write \",\" & rs(i)
 next
 Response.Flush()
 rs.Movenext
loop
rs.Close
conn.Close
set rs = nothing
set conn = nothing
Response.End()
1

上一篇:CHM版JAVADOC下载
下一篇:CN域名?玉米?垃圾?

发表评论

昵称:  验证码:

关于博主

博主

博主:BlueCode

职业:web程序

简介:2002年开始一直从事Web制作,网站运营,会PHP+MYSQL ASP+MSSQL,微信开发