ASP从数据表中导出EXCEL文件

ASP生成Excel文件示例

最新推荐文章于 2024-09-09 12:20:13 发布

weixin_30896825

最新推荐文章于 2024-09-09 12:20:13 发布

阅读量80

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/failyblue/archive/2008/06/23/1227929.html

本文介绍了一种使用ASP和文件系统对象生成并导出Excel文件的方法。通过代码示例展示了如何读取记录集中的数据，并将其写入到Excel文件中，包括对特殊字符进行处理以确保文件正确生成。

dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("order.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
      fs.DeleteFile(filename)
end If
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
strLine=""
For each x in rs.fields
    strLine = strLine & x.name & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
  If (x.name = "body" Or x.name = "chulilr") Then
   nr=x.value'输出代码转换
   If nr<>"" then
    nr=server.htmlencode(trim(nr))
    nr=replace(nr,chr(32),"")
    nr=replace(nr,chr(13)&chr(10),"")
   End If
   strLine = strLine & nr & chr(9)
  Else
   strLine = strLine & x.value & chr(9)
  End If
next
myfile.writeline strLine
rs.MoveNext
Loop
response.Redirect("/order.xls")
'Response.Write "生成EXCEL文件成功，点击<a href='/order.xls' target='_blank'>下载</a>！"

转载于:https://www.cnblogs.com/failyblue/archive/2008/06/23/1227929.html