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

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

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


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，微信开发

  • Linux文章
  • PHP文章
  • 随机文章