sql数据导出到EXCEL(asp)

<%
lm=request.QueryString("lm")
if lm<>"" then
 dim s,sql,filename,fs,myfile,x
 Set fs = server.CreateObject("scripting.filesystemobject")
 select case lm
  case "5"
  filename="XXX.xls"
  filename = Server.MapPath(filename) 
 end select
 '--如果原来的EXCEL文件存在的话删除它 
 if fs.FileExists(filename) then 
  fs.DeleteFile(filename) 
 end  if 
 '--创建EXCEL文件 
 set myfile = fs.CreateTextFile(filename,true) 
 StartTime = Request("StartTime")
 EndTime = Request("EndTime") 
 StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
 strSql = "数据查询"
 Set rs = DataToRsStatic(conn,strSql)
 if not rs.EOF and not rs.BOF then 
  dim  trLine,responsestr,minid
  minid=rs("minid")
  strLine = "标题一"&chr(9)&"标题二"
 '--将表的列名先写入EXCEL 
  myfile.writeline strLine
  Do while Not rs.EOF
  strLine="" 
      strLine = 内容一&chr(9)& 内容二&chr(9)&IfSendStr
   myfile.writeline strLine
   rs.MoveNext 
  loop 
 end if 
 response.Write("<br>表生成Excel文件成功,<a href='XXX.xls' targer='_blank' title='点击下载到本地'>请点击此处下载</a>")
 rs.Close 
 set rs = nothing
 Conn.Close
 Set Conn = nothing
 Function DataToRsStatic(Conn,strSql)
  Dim RsStatic
  Set DataToRsStatic = Nothing
  If Conn Is Nothing Then
   Exit Function
  End If
  Set RsStatic = CreateObject("ADODB.RecordSet")
  RsStatic.CursorLocation = 3
  RsStatic.Open strSql,Conn,3,3
  If Err.Number <> 0 Then
   Exit Function
  End If
  Set DataToRsStatic = RsStatic
 End Function
end if%>