| <!--#include file="connection.asp"--> <%call excel%> sub excel sStartdate=request("sStartdate") dim rs,sql,filename,fs,myfile,x Set fs = server.CreateObject("scripting.filesystemobject") ‘--假設你想讓生成的EXCEL文件做如下的存放 filename = Server.MapPath("../excel/"&sStartdate&"日報.xls") ‘--如果原來的EXCEL文件存在的話刪除它 if fs.FileExists(filename) then fs.DeleteFile(filename) end if ‘--創(chuàng)建EXCEL文件 set myfile = fs.CreateTextFile(filename,true) Set rs = Server.CreateObject("ADODB.Recordset") ‘--從數據庫中把你想放到EXCEL中的數據查出來 sql = "select * from dayreport where date= "&sStartdate&"" rs.Open sql,conn,1,1 if rs.EOF and rs.BOF then ‘-------- else dim strLine,responsestr strLine="" For each x in rs.fields strLine = strLine & x.name & chr(9) Next ‘--將表的列名先寫入EXCEL myfile.writeline strLine ‘EXCEL文件 Do while Not rs.EOF strLine="" for each x in rs.Fields strLine = strLine & x.value & chr(9) next ‘--將表的數據寫入EXCEL myfile.writeline strLine rs.MoveNext loop end if rs.Close set rs = nothing Response.Write "<script language=‘javascript‘>alert(‘成功生成EXCEL文件‘);location.href=‘dayreportlist.asp?action=query‘</script>" end sub |
