您正在使用 IPV4 [54.163.200.109] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
把access数据导出到excel电子表
内容摘要: !--#include file='../conn.asp'--%if session('china_admin')='' then response.redirect 'login.asp' dbpath='../' dblinkdim filename,fs,myfile,x,m,n,o,linkSet fs = server.CreateObject(......
<!--#include file="../conn.asp"-->

<%

if session("china_admin")="" then response.redirect "login.asp" dbpath="../" dblink

dim filename,fs,myfile,x,m,n,o,link

Set fs = server.CreateObject("scripting.filesystemobject")

Set rs = Server.CreateObject("ADODB.Recordset")

session("sql") = "select * from china_car" rs.Open session("sql"),conn,1,1

n=1

'==================================================================

'==============================================================建立excel文件系统

filename = Server.MapPath("car/CarTable"&n&".xls") '这个是为了方便,新建一个CAR的文件夹,这个可以自己设啦

if fs.FileExists(filename) then'如果文件存在,覆盖它。

fs.DeleteFile(filename)

end if

set myfile = fs.CreateTextFile(filename,true)

'========================================================================

dim strLine,responsestr

strLine=""

dim work,j,i

str="序号|卡号|密码|积分数|金额"'这个根据你的access数据表字段设置。

work=split(str,"|")

j=ubound(work)

i=0

o=0

do while not i>j

strLine= strLine & work(i) & chr(9)

i=i+1

loop

myfile.writeline strLine

Do while Not rs.EOF

o=o+1

m=20000

strLine=""

for each x in rs.Fields

strLine= strLine & x.value & chr(9)

if o>=m*n then

n=n+1

filename = Server.MapPath("car/CarTable"&n&".xls") '这个可以自己设啦

if fs.FileExists(filename) then'如果文件存在,覆盖它。

fs.DeleteFile(filename)

end if

set myfile = fs.CreateTextFile(filename,true)

end if

next

myfile.writeline strLine

rs.MoveNext

loop

rs.Close

set rs = nothing

conn.close

set conn = nothing

set myfile = nothing

Set fs=Nothing ExcelPath="car/CarTable"&n&".xls" response.Write "导出成功" response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")

%>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:滚动公告栏代码

 

下一篇:ASP获取url地址中顶级域名的函数

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:11
录  入:齐天大圣
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....