本站提供最佳ApolloStudio源码服务，欢迎转载和分享。 本站提供最佳ApolloStudio源码服务，欢迎转载和分享。 
1.ASP中,表格要将学生成绩表ACCESS数据库倒出EXCEL,请问完整代码怎么写?
2.请高手帮忙！！源码！表格用ASP如何生成excel报表 本人原意贡献所有积分谢谢！源码4399游戏源码！表格！源码tls协商源码解析
ASP中,表格要将学生成绩表ACCESS数据库倒出EXCEL,请问完整代码怎么写?
我试过一个简单的方法是可行的，先用循环把数据库的源码数据输出到一个table里，然后在表格后面加这句代码%response.ContentType ="application/vnd.ms-excel"%，表格运行时就会出现文件下载对话框了，源码下载下来的表格文件就是xls文件，文件里的源码数据就是表格里的数据。
举个实例：
table border="1" cellspacing="0" cellpadding="0"
tr
td1/td
td2/td
td3/td
/tr
tr
td4/td
td5/td
td6/td
/tr
tr
td7/td
td8/td
td9/td
/tr
/table
%response.ContentType ="application/vnd.ms-excel"%
把上面的表格discuz去版权源码代码保存为ASP文件，运行一下，源码你就会看到效果了。表格
请高手帮忙！个人支付监控源码！！用ASP如何生成excel报表 本人原意贡献所有积分谢谢！asp商城开源码！！
给你个例子
<HTML>
<HEAD>
<meta content="text/html; charset=gb" http-equiv="Content-Type">
<TITLE>生成EXCEL文件</TITLE>
</HEAD>
<body>
<a href="dbtoexcel.asp?act=make">在线生成EXCEL</a>
<hr size=1 align=left width=px>
<%
if Request("act") = "" then
Response.Write "生成EXCEL文件"
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")
filename = Server.MapPath("online.xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
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 & 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
%>
