asp读取数据库数据并生成excel文件实例.pdf

asp 读取数据库数据并生成excel 文件实例 代码如下: HTML HEAD meta content=text/html; charset=gb2312 http-equiv=Content-Type TITLE英才小学工资报表生成页面/TITLE /HEAD body a href=dbtoexcel.asp?act=make在线生成EXCEL/a hr size=1 align=left width=300px % if Request(act) = then Response.Write 英才小学工资报表生成页面 else 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 rs,sql,filename,fs,myfile,x Set fs = server.CreateObject(scripting.filesystemobject) --假设你想让生成的EXCEL 文件做如下的存放 filename = Server.MapPath(online.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,1,1 if rs.EOF and rs.BOF then else dim strLine,responsestr strLine= For each x in rs.fields strLine = strLine chr(9) Next --将表的列名先写入EXCEL myfile.writeline strLine 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 End If %