< %

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)

  

  

StartTime = Request("StartTime")

EndTime = Request("EndTime")

StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"

strSql = "select * from mksuers "

Set rstData =conn.execute(strSql)

if not rstData.EOF and not rstData.BOF then

  

   dim  trLine,responsestr

   strLine=""

   For each x in rstData.fields

     strLine = strLine & x.name & chr(9)

   Next

  

'--将表的列名先写入EXCEL

   myfile.writeline strLine

  

   Do while Not rstData.EOF

     strLine=""

  

     for each x in rstData.Fields

       strLine = strLine & x.value &  chr(9)

     next

     myfile.writeline  strLine

  

     rstData.MoveNext

   loop

  

end if

Response.Write  "生成EXCEL文件成功，点击<a href="/" rel="external nofollow" order.xls"" target=""_blank"">下载！"

rstData.Close

set rstData = nothing

Conn.Close

Set Conn = nothing

%>