UC知道ASP中将SQL内指定表格导出为Excel
来源：百度知道 编辑：UC知道 时间：2024/06/06 07:51:38
求源码，网上直接找来的就免了。请给一个有说明的，我小白
数据库地址 127.0.0.1
数据库名称 newdata
数据库登录用户 admin
登录密码 123456
表名称 myaddress
表项很多
求一个傻瓜源码，可加分
1楼的朋友，你那个是ASP的程序么？我感觉不是哦~~~~~
2楼的朋友，你那个应该是制定江sql内的表列到excel表列然后导出吧？生成的文件如果在网站目录下我感觉比较不安全，能不能通过web方式在本地生成。另外1楼的朋友那个代码应该是不用指定列的，我很喜欢，可以看不懂。并不是我懒啊~~~说过了是小白~~~有注释我当然欢迎阿~~~给个能用的asp吧~~空间不支持。net
3楼的朋友~~~你给出的不错哦，但是我的这个数据库是sql~~怎么连？
数据库地址 127.0.0.1
数据库名称 newdata
数据库登录用户 admin
登录密码 123456
表名称 myaddress
表项很多
求一个傻瓜源码，可加分
1楼的朋友，你那个是ASP的程序么？我感觉不是哦~~~~~
2楼的朋友，你那个应该是制定江sql内的表列到excel表列然后导出吧？生成的文件如果在网站目录下我感觉比较不安全，能不能通过web方式在本地生成。另外1楼的朋友那个代码应该是不用指定列的，我很喜欢，可以看不懂。并不是我懒啊~~~说过了是小白~~~有注释我当然欢迎阿~~~给个能用的asp吧~~空间不支持。net
3楼的朋友~~~你给出的不错哦，但是我的这个数据库是sql~~怎么连？
ASP将ACCESS数据导出至EXCEL
<script for="window" event="onload">
window.resizeTo(400,300)
</script>
<%
set conn=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../data/xin#tong.mdb")'//////链接数据库
conn.open connstr
dim rs,sql,filename,fs,myfile,x
Set fs=server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename=Server.MapPath(""&request("exit")&".xls")'/////数据表保存的文件名
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile=fs.CreateTextFile(filename,true)
'///////从数据库中把你想放到EXCEL中的数据查出来
Set rs=Server.CreateObject("ADODB.R