asp 导出excel表格

asp页面中点击按钮导出excel表格，急... asp 页面中点击按钮导出excel表格，急展开

 我来答

3个回答

匿名用户
2013-08-27

展开全部

给你段代码：<%
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("数据库.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
%>
<HTML>
<HEAD>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<TITLE>生成EXCEL文件</TITLE>
</HEAD>
<body>
<a href="?act=make">在线生成EXCEL</a>
<a href="record.xls" target="_blank">下载</a>
<hr size=1 align=left width=300px>
<%
if Request("act") = "" then
Response.Write "生成EXCEL文件"
elsedim rs,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("record.xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end ifset myfile = fs.CreateTextFile(filename,true)Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from record worder by id desc"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF thenelse
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
End If
%>

已赞过 已踩过<

评论收起

热心网友

广告2024-12-14

勤哲Excel服务器2024学习和下载。用Excel自动生成excel租赁管理系统及手机app.软博会金奖产品，适合于各行各业的管理人员使用。

www.qinzhe.com

匿名用户
2013-08-27

展开全部

把你要生成exl的ASP页面里增加这段代码就可以了，然后重新访问这个页面就直接会出来exl表格了Application.ScreenUpdating = True '屏幕刷新关闭
Application.DisplayAlerts = True '信息警告开启
Response.ContentType = "application/vnd.ms-excel"