1.请高手帮忙!源码!源码!源码用ASP如何生成excel报表 本人原意贡献所有积分谢谢!源码lua源码如何恢复!源码!源码付费算命程序源码
2.asp如何将数据库中的源码数据输出到表格中并修改
3.ASP中,要将学生成绩表ACCESS数据库倒出EXCEL,请问完整代码怎么写?
请高手帮忙!!源码!源码用ASP如何生成excel报表 本人原意贡献所有积分谢谢!源码!源码!源码
给你个例子
<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
%>
asp如何将数据库中的数据输出到表格中并修改
下面是asp中的代码
Set rs2=Server.CreateObject(ADODB.recordset)
sql=select * from eq where eqbumen='myFileSystem
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,.)
getTemporaryFile=mid(tempFile,1,dotPos)end function
set myFs=createObject(scripting.FileSystemObject)
filePos=server.mappath(test)myFs '取得一个临时文件名
'myFs.DeleteFile filePos
objExcel.quit
set objExcel=Nothing。
ASP中,源码要将学生成绩表ACCESS数据库倒出EXCEL,请问完整代码怎么写?
我试过一个简单的方法是可行的,先用循环把数据库的源码数据输出到一个table里,然后在表格后面加这句代码%response.ContentType ="application/vnd.ms-excel"%,diy建站平台源码运行时就会出现文件下载对话框了,下载下来的文件就是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"%
把上面的代码保存为ASP文件,运行一下,你就会看到效果了。