ASP导出excel文件的代码（自己试验成功并且一直在使用的哟）

<%  
'dim  conn,strconn  
'strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test"  
'set conn=server.CreateObject("adodb.connection")  
'conn.Open strconn  
 
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)  
 
'Set rs = Server.CreateObject("ADODB.Recordset")  
'--从数据库中把你想放到EXCEL中的数据查出来  
'sql = "select * from Tb_Execl order by id desc"  
'rs.Open  sql,conn  
StartTime = Request("StartTime")
EndTime = Request("EndTime")<