asp写入excel

《asp写入excel》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、<%@LANGUAGE="VBSCRIPT"%><%optionexplicit%>生成EXCEL文件<%ifRequest("act")=""thenRespo

2、nse.Write"生成EXCEL文件"elsedimconn,strconnstrconn="driver={SQLServer};server=xxx;uid=sa;pwd=;database=DB_Test"setconn=server.CreateObject("adodb.connection")conn.Openstrconndimrs,sql,filename,fs,myfile,xSetfs=server.CreateObject("scripting.filesystemobject")'--假设你想

3、让生成的EXCEL文件做如下的存放filename=Server.MapPath("online.xls")'--如果原来的EXCEL文件存在的话删除它iffs.FileExists(filename)thenfs.DeleteFile(filename)endif'--创建EXCEL文件setmyfile=fs.CreateTextFile(filename,true)Setrs=Server.CreateObject("ADODB.Recordset")'--从数据库中把你想放到EXCEL中的数据查出来sql="s

4、elect*fromTb_Execlorderbysortdesc"rs.Opensql,connifrs.EOFandrs.BOFthenResponse.Write"库里暂时没有数据！"elsedimstrLine,responsestrstrLine=""Foreachxinrs.fieldsstrLine=strLine&x.name&chr(9)Next'--将表的列名先写入EXCELmyfile.writelinestrLineDowhileNotrs.EOFstrLine=""foreachxinrs.F

5、ieldsstrLine=strLine&x.value&chr(9)next'--将表的数据写入EXCELmyfile.writelinestrLiners.MoveNextloopendifrs.Closesetrs=nothingconn.closesetconn=nothingsetmyfile=nothingSetfs=Nothingendif%><%dims,sql,

6、filename,fs,myfile,x,rsSetfs=server.CreateObject("scripting.filesystemobject")'--假设你想让生成的EXCEL文件做如下的存放filename=Server.MapPath("users.xls")'--如果原来的EXCEL文件存在的话删除它iffs.FileExists(filename)thenfs.DeleteFile(filename)endif'--创建EXCEL文件setmyfile=fs.CreateTextFile(filen

7、ame,true)Setrs=Server.CreateObject("ADODB.Recordset")'--从数据库中把你想放到EXCEL中的数据查出来sql="select*fromproductorderbyiddesc"rs.Opensql,connStartTime=Request("StartTime")EndTime=Request("EndTime")StartEndTime="AddTimebetween#"&StartTime&"00:00:00#and#"&EndTime&"23:59:59#"

8、strSql="select*fromproductorderbyiddesc"SetrstData=conn.execute(strSql)ifnotrstData.EOFandnotrstData.BOFthendimtrLine,responsestrstrLine=""strline=strline&"设备名称"&chr(