ASP+ACCESS管理后台客户信息导出EXCEL的功能

答案:3 悬赏:60 手机版

解决时间 2021-03-20 11:30

提问者网友：戎马万世
2021-03-19 19:37

我想在管理后台添加一个可以导出客户信息的功能，请高手帮忙！完成后再追加分数！请加我的QQ276795381

最佳答案

五星知识达人网友：千夜
2021-03-19 21:06

<%response.contenttype = "application/vnd.ms-excel"%> 在页面的开头,加上这一行就可以了,这是指出输出类型为excel   也可以参考以下代码：  <% 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>下载</a>") %> 引用自： <a href="http://wenwen.soso.com/z/urlalertpage.e?sp=shttp%3a%2f%2fwww.6yee.cn" target="_blank">http://www.6yee.cn</a>

全部回答

1楼网友：酒者煙囻
2021-03-19 23:44

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim conn,strconn strconn="driver={Microsoft Access driver (*.mdb)};dbq="&server.mappath("dataBase/DB#addressList.mdb") set conn=server.CreateObject("adodb.connection") conn.Open strconn dim s,sql,filename,fs,myfile,x Set fs = server.CreateObject("scripting.filesystemobject") '--假设你想让生成的EXCEL文件做如下的存放 filename = Server.MapPath("excel.xls") '--如果原来的EXCEL文件存在的话删除它 if fs.FileExists(filename) then fs.DeleteFile(filename) end if '--创建EXCEL文件 set myfile = fs.CreateTextFile(filename,true) StartTime = Request("StartTime") EndTime = Request("EndTime") StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#" strSql = "select * from tAddressList" Set rstData = DataToRsStatic(conn,strSql) if not rstData.EOF and not rstData.BOF then dim trLine,responsestr strLine = "序号" & chr(9) & "姓名" & chr(9) & "电话" & chr(9) & "Q Q" & chr(9) & "邮箱" & chr(9) & "地址" & chr(9) & "生日" & chr(9) & "备注" '--将表的列名先写入EXCEL objSpreadsheet.Range("A1:F1").merge '合并单元格(单元区域) myfile.writeline strLine Do while Not rstData.EOF strLine="" strLine = rstData("fid") & chr(9) & rstData("fName")& chr(9) & rstData("fTel") & chr(9) & rstData("fQQ") & chr(9) & rstData("fEmail")& chr(9)&rstData("fAddress")& chr(9) &rstData("birthday")& chr(9) & rstData("fNote") & chr(9)& IfSendStr myfile.writeline strLine rstData.MoveNext loop end if Response.Charset="utf-8" Response.Write " 生成EXCEL文件成功，点击<a href=""excel.xls"" target=""_blank"">下载</a>！" rstData.Close set rstData = nothing Conn.Close Set Conn = nothing Function DataToRsStatic(Conn,strSql) Dim RsStatic Set DataToRsStatic = Nothing If Conn Is Nothing Then Exit Function End If Set RsStatic = CreateObject("ADODB.RecordSet") RsStatic.CursorLocation = 3 RsStatic.Open strSql,Conn,3,3 If Err.Number <> 0 Then Exit Function End If Set DataToRsStatic = RsStatic End Function %>

2楼网友：底特律间谍
2021-03-19 22:43

正好我做过这个，分两步，先在根目录生成文件，再下载，步骤： 在客户列表信息的最上面添加2个链接<a href="?act=creatxls">EXCEL</a>，<a href="../order.xls">下载文件</a>，本页最上面添加代码 <% if request.QueryString("act")="creatxls" then Set fso = server.CreateObject("scripting.filesystemobject") filename = Server.MapPath("../order.xls") if fso.FileExists(filename) then fso.DeleteFile(filename) end if '--创建文件 set myfile = fso.CreateTextFile(filename,true) Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from [order]" rs.Open sql,conn,1,1 if rs.EOF and rs.BOF then response.write "无数据" 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 Response.ContentType="application/x-msdownload" response.write("<Script language='JavaScript'> alert('生成成功！');</Script>") response.write("<meta http-equiv=refresh content=0;URL='orderlist.asp'>") response.End end if%> 实际案例，肯定能用，分数给我吧

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！