日期：2010-04-20 09:11:00 来源：本站整理

asp读取数据库数据并生成excel文件实例[网站编程]

赞助商链接

分享到： QQ空间新浪微博腾讯微博人人网

　　本文“asp读取数据库数据并生成excel文件实例[网站编程]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：

asp读取数据库数据并生成excel文件实例
代码以下:

<HTML> 
<HEAD> 
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">   
<TITLE>生成EXCEL文件实例</TITLE>   
</HEAD>   
<body>   
<a href="dbtoexcel.asp?act=make">在线生成EXCEL</a>   
<hr size=1 align=left width=300px>   
<%  
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")   
'--假定你想让生成的EXCEL文件做以下的存放   
filename = Server.MapPath("online.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,1,1  
 
if rs.EOF and rs.BOF then  
else  
dim strLine,responsestr   
strLine="" 
For each x in rs.fields  
strLinestrLine = strLine & x.name & chr(9)  
Next  
'--将表的列名先写入EXCEL   
myfile.writeline strLine  
Do while Not rs.EOF   
strLine="" 
for each x in rs.Fields   
strLinestrLine = strLine & x.value & chr(9)   
next  
'--将表的数据写入EXCEL   
myfile.writeline strLine  
rs.MoveNext  
loop  
end if  
rs.Close   
set rs = nothing 
End If  
%>

　　以上是“asp读取数据库数据并生成excel文件实例[网站编程]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：

asp读取数据库数据并生成excel文件实例

本文地址：

与您的QQ/BBS好友分享!

[] [返回上一页] [打印]

好的评价　如果您觉得此文章好，就请您
0%(0)
差的评价　如果您觉得此文章差，就请您
0%(0)

文章评论评论内容只代表网友观点，与本站立场无关！

评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

栏目导航

赞助商链接

免责条款 - 广告合作 - 下载声明 - 欢迎投稿 - 友情连接 -