Excel导出函数.doc

Excel导出函数%Sub?? ExportToExcel???? Response.ContentType?? =?? application/vnd.ms-Excel?? Response.AddHeader?? Content-Disposition,?? attachment;Filename=Results.xls?? Response.Write?? body?? Response.Write?? table?? border=1?? Call?? WriteTableData?? Response.Write?? /table?? Response.Write?? /body?? Response.Write?? /html???? End?? Sub? %Excel导入数据库%dim FileNameFileName=Excel.xls? 取得文件名，来自项目经理的指定，路径固定在某个虚拟路径中Dim conn, rsset conn=CreateObject(ADODB.connection)conn.Open Driver={Microsoft Excel Driver (*.xls)}; _DriverId=790; _Dbq= Server.mappath(FileName) ; _DefaultDir=G:\ set rs=createobject(ADODB.recordset)rs.Open Select * From [Sheet1$],conn, 2, 2if rs.eof thenresponse.write Excel表中无纪录elseset connDB = Server.CreateObject(ADODB.Connection)DBPath = Server.MapPath(Excel.mdb)RESPONSE.WRITE DBpathconnDB.Open driver={Microsoft Access Driver (*.mdb)};dbq= DBPathSet RsDB = Server.CreateObject(ADODB.Recordset)SQLDB=Select * from ExcelRsDB.open SQLDB,connDB,1,3do while not? rs.eof 利用循环读出数据RsDB.addnewRsDB(filename)=rs(0)RsDB(id1)=rs(1)RsDB(id2)=rs(2)RsDB(id3)=rs(3)RsDB(id4)=rs(4)Rs.updateRsDB.movenextrs.movenextloopresponse.redirect FileNameend ifRsDB.movefirstif RsDB.eof thenresponse.write 数据库中无记录elsedo while not RsDB.EOFresponse.write RsDB(filename) response.write RsDB(id1) response.write RsDB(id2) response.write RsDB(id3) response.write RsDB(id4) response.write brRsDB.movenextloopend ifrs.closeset rs=nothingset conn=nothing% 最近为了方便前台对网站留言信息的记录和保存，于是就用ASP程序编写了一个把access数据导成为excel格式的数据。开始的时候也不知道怎么编写程序，在网上找了很多都没有完全解决，于是对一些程序进行修改，最后还是完成了，现在拿来和大家分享一下！ !--#include file=conn.asp-- 连接数据库??? %dim rs,sql,filename,fs,myfile,xSet fs = server.CreateObject(scripting.filesystemobject) --假设你想让生成的EXCEL文件做如下的存放 filename = Server.MapPath(download.xls) Response.Write filename --如果原来的EXCEL文件存在的话删除它 if fs.FileExists(filename) thenfs.DeleteFile(filename) end if--创建EXCEL文件set myfile = fs.CreateTextFile(filen