<%
'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 s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("order.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
StartTime = Request("StartTime")
EndTime = Request("EndTime")<
ASP导出excel文件的代码(自己试验成功并且一直在使用的哟)
最新推荐文章于 2023-01-30 22:44:09 发布
这篇博客提供了一段使用ASP从SQL Server数据库中查询数据并导出到Excel文件的代码示例。首先建立数据库连接,然后根据用户输入的时间范围查询tb_Order表中的记录,将查询结果的字段名和数据逐行写入Excel文件,最后提供了一个下载生成的Excel文件的链接。
摘要由CSDN通过智能技术生成