Asp生成Excel文件示例
代码如下:
<HTML><br /><HEAD><br /><meta content="text/html; charset=gb2312" http-equiv="Content-Type"> <br /><TITLE>生成EXCEL文件</TITLE> <br /></HEAD> <br /><body> <br /><a href="dbtoexcel.asp?act=make">在线生成EXCEL</a> <br /><hr size=1 align=left width=300px> <br /><%<br />if Request("act") = "" then <br />Response.Write "生成EXCEL文件" <br />else<br />dim conn,strconn <br />strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test" <br />set conn=server.CreateObject("adodb.connection") <br />conn.Open strconn<br />dim rs,sql,filename,fs,myfile,x<br />Set fs = server.CreateObject("scripting.filesystemobject") <br />'--假设你想让生成的EXCEL文件做如下的存放 <br />filename = Server.MapPath("online.xls") <br />'--如果原来的EXCEL文件存在的话删除它 <br />if fs.FileExists(filename) then<br />fs.DeleteFile(filename) <br />end if<br />'--创建EXCEL文件<br />set myfile = fs.CreateTextFile(filename,true)<br />Set rs = Server.CreateObject("ADODB.Recordset")<br />'--从数据库中把你想放到EXCEL中的数据查出来 <br />sql = "select * from Tb_Execl order by id desc" <br />rs.Open sql,conn,1,1<br /><br />if rs.EOF and rs.BOF then<br />else<br />dim strLine,responsestr <br />strLine=""<br />For each x in rs.fields<br />strLine = strLine & x.name & chr(9)<br />Next<br />'--将表的列名先写入EXCEL <br />myfile.writeline strLine<br />Do while Not rs.EOF <br />strLine=""<br />for each x in rs.Fields <br />strLine = strLine & x.value & chr(9) <br />next<br />'--将表的数据写入EXCEL <br />myfile.writeline strLine<br />rs.MoveNext<br />loop<br />end if<br />rs.Close <br />set rs = nothing<br />End If<br />%>Asp生成Excel文件示例