ASP从数据表中导出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>！"