狗狗币价格表
咨詢,就免費贈送域名與服務器,咨詢熱線:13915107752當前位置: > 新聞動態 > 網站設計 >
聯系我們
電話咨詢:13915107752
電話咨詢:0517-89862517
地址: 淮安市清河區金馬廣場北樓24樓019室

Asp把Access數據導出到Excel

作者/整理:daijk 瀏覽次數:次 日期:2018-03-06


方法一

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns:x="urn:schemas-microsoft-com:office:excel">

<head>

<title>導出Excel在客戶端</title>

<xml>

             <x:ExcelWorkbook>

                <x:ExcelWorksheets>

                    <x:ExcelWorksheet>

                        <x:Name>工作表標題</x:Name>

                        <x:WorksheetOptions>

                            <x:Print>

                                <x:ValidPrinterInfo />

                            </x:Print>

                        </x:WorksheetOptions>

                    </x:ExcelWorksheet>

                </x:ExcelWorksheets>

            </x:ExcelWorkbook>

        </xml>

 

</head>

 

<body>

<%

 

set conn = server.createobject("adodb.connection")

set rs = server.CreateObject("ADODB.recordset")

conn.open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("test.mdb")

 

 

rs.open"select * from mytest",conn,3,3

 

%>

<table  border="0" align="center" >

<tr>

 <td>id</td>

 <td>title</td>

 <td>name</td>

 <td>age</td>

 </tr>

 <%

 do while not rs.eof

 %>

 <tr>

 <td><%=rs("id")%></td>

 <td><%=rs("title")%></td>

 <td><%=rs("name")%></td>

 <td><%=rs("age")%></td>

 </tr>

 <%

 rs.movenext

 loop

 rs.close

 

  'Response.ContentType   =   "application/vnd.ms-excel"  

 

  response.ContentType ="application/vnd.ms-excel"

   Response.AddHeader   "content-disposition",   "inline;   filename=temp.xls"

 

 

 %>

 

 </table>

</body>

</html>

 

 

方法二 總共兩個頁面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html >

<head>

<title>導出Excel在服務器端,然后下載</title>

</head>

 

<body>

<%

 

set conn = server.createobject("adodb.connection")

set rs = server.CreateObject("ADODB.recordset")

conn.open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("test.mdb")

 

 

rs.open"select * from mytest",conn,3,3

 

%>

<table  border="0" align="center" >

<tr>

 <td>id</td>

 <td>title</td>

 <td>name</td>

 <td>age</td>

 </tr>

 <%

 do while not rs.eof

 %>

 <tr>

 <td><%=rs("id")%></td>

 <td><%=rs("title")%></td>

 <td><%=rs("name")%></td>

 <td><%=rs("age")%></td>

 </tr>

 <%

 rs.movenext

 loop

 rs.close

 

 

 %>

 

這個頁面名字為export.asp,代碼如下

 

<body>

 

<%

set conn = server.createobject("adodb.connection")

set rs = server.CreateObject("ADODB.recordset")

conn.open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("test.mdb")

 

rs.open"select * from mytest",conn,3,3

 

if not (rs.eof And rs.bof) then 

  dim ttxt,file,filepath,writefile

  ttxt="test.csv"  '為要寫入的文件取個文件名,后綴可以是txt,xls,這里我用csv,這種文件打開也是excel表

  Set file = CreateObject("Scripting.FileSystemObject")

  Application.lock

  '寫入文件的存放路徑,一定要開放這個路徑下的讀寫權限

  filepath=Server.MapPath(ttxt)

  Set Writefile = file.CreateTextFile(filepath,true)

  '在表格中寫入第一行,字段描述,這個根據你實際的數據表字段來寫

  Writefile.WriteLine "id,title,name,age" 

  do while not rs.eof

  Writefile.WriteLine rs("id")&","&rs("title")&","&rs("name")&","&rs("age")

  rs.movenext

  loop

  '以上三行作用是逐行將數據寫入表中

  Writefile.close

  Application.unlock

  rs.close

  set rs=nothing

  Response.Write  "生成EXCEL文件成功,點擊<a href=""test.csv"" target=""_blank"">下載</a>!"

end if

 

%>

 </body>

 </table>

 <form action="export.asp" method="post"><input type="submit" value="導出到Excel" /></form>

 

</body>

</html>

 

說明:方法一是 在客戶端導出EXCEL,通過

   response.ContentType ="application/vnd.ms-excel"

   Response.AddHeader   "content-disposition",   "inline;   filename=temp.xls"

   導出。

方法二:

     在服務器端導出Excel。然后下載到客戶端。

數據庫名為test.mdb

Asp頁面要和數據庫放在同一目錄同一級下面,假如想更改可以更改代碼server.mappath("test.mdb") 中test.mdb的地址

數據表截圖一下

 

   


Asp把Access數據導出到Excel - ch3cls - ch3cls的博客

 

今天找了很久才找到了,我兩種方法都測試過了,都能用的

狗狗币价格表 时时彩开奖能控制开奖号码吗 山西省快乐十分基础走势图 上海时时信息查询 重庆百变王牌近100期 二八杠有翻倍吗 重庆时时开奖彩经网 超级大乐透800期走势图 华东六省开奖结果 pk10在线计划更新 河北11选5中奖结果一定牛 闲来宁夏麻将外挂2018 时时票-线路检测中心 福建22选5基本走势图 甘肃十一选五开奖结果 cctv5在线直播观看 竞彩篮球网