设为首页收藏本站

星火云社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1313|回复: 0
收起左侧

[编程开发] ASP导出EXCLE表格

[复制链接]
发表于 2018-3-10 19:44:33 | 显示全部楼层 |阅读模式
  1. <%
  2. dim fs,rs,sql,filename,myfile,x
  3.   
  4. Set fs = server.CreateObject("scripting.filesystemobject")
  5. '--假设你想让生成的EXCEL文件做如下的存放
  6. filename = Server.MapPath("order.xls")
  7. '--如果原来的EXCEL文件存在的话删除它
  8. if fs.FileExists(filename) then
  9.    fs.DeleteFile(filename)
  10. end  if
  11. '--创建EXCEL文件
  12. set myfile = fs.CreateTextFile(filename,true)
  13.   
  14.   
  15. sql = "select * from AspCms_Sort"
  16. Set rs =conn.exec(sql,"r1")
  17. if not rs.EOF and not rs.BOF then
  18.   
  19.    dim  strLine,responsestr
  20.    strLine=""
  21.    For each x in rs.fields
  22.      strLine = strLine & x.name & chr(9)
  23.    Next
  24.   
  25. '--将表的列名先写入EXCEL
  26.    myfile.writeline strLine
  27.   
  28.    Do while Not rs.EOF
  29.      strLine=""
  30.   
  31.      for each x in rs.Fields
  32.        strLine = strLine & x.value &  chr(9)
  33.      next
  34.      myfile.writeline  strLine
  35.   
  36.      rs.MoveNext
  37.    loop
  38.   
  39. end if
  40. Response.Write  "生成EXCEL文件成功,点击<a href='/' rel='external nofollow' order.xls"" target=""_blank"">下载!"
  41. rs.Close
  42. set rs = nothing
  43. %>
复制代码


您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

QQ|桌面版|收银台|手机版|小黑屋|站长简介|   

GMT+8, 2019-11-21 07:09 , Processed in 0.458473 second(s), 27 queries .

Powered by 星火云社区 X3.2!

我们一直在努力前进^_^

快速回复 返回顶部 返回列表