ASP]在網頁中下SQL查詢.其結果轉成Excel檔

我想在網頁上做查詢的動作
下SQL指令到資料庫查詢
不知是否可以將查詢結果轉成Excel檔案以供Client端下載?

--------------------------------------------------------------------------------
1 回應者: shinyu    日期: 2004/1/8 下午 02:13:00
當然可以囉,用法同word,只要改幾個字就可以了
2 回應者: hali    日期: 2004/1/8 下午 06:08:00
請問是否有相關語法可以參考呢?
謝謝~
3 回應者: maduka    日期: 2004/1/8 下午 07:48:00
ASP：如何使用ASP建立Office文件
狀況說明：
在ASP的程式中,常常需要建立Excel檔案或是Word檔案供使用者下載,在開發的時候,可以使用一段簡單的語法作到這樣的功能.

--------------------------------------------------------------------------------

解決辦法：
使用Response.ContentType這樣的方法,可以將頁面的內容轉換成所需要的Office檔案供使用者下載

這個範例所提供的是產生Excel檔案,其範例如下：

<%@ Language=VBScript %>
<%
Dim r, Amount, Tax

'Change HTML header to specify Excel's MIME content type.
   Response.Buffer = TRUE
   Response.ContentType = "application/vnd.ms-excel"
%>
<HTML>
<BODY>
<TABLE>
    <TR>
      <TD><B>Order #</B></TD>
      <TD WIDTH="120" ALIGN="Right"><B>Amount</B></TD>
      <TD WIDTH="120" ALIGN="Right"><B>Tax</B></TD>
    </TR>
    <% For r= 1 to 20 %>
    <TR>
      <TD><%=r%></TD>
      <% Amount = FormatCurrency(Rnd()*1000,2) %>
      <TD><%=Amount%></TD>
      <% Tax = FormatCurrency(Amount*0.07,2) %>
      <TD><%=Tax%></TR>
    <% Next %>
    <TR>
      <TD> </TD>
    </TR>
    <TR>
      <TD> </TD><TD>=SUM(B2:B21)</TD><TD>=SUM(C2:C21)</TD>
    </TR>
</TABLE>
</BODY>
</HTML>

若是要將此功能改為Word檔案的產生,可以將Response.ContentType的值改為
Response.ContentType = "application/msword"

4 回應者: hali    日期: 2004/1/9 上午 11:52:00
謝謝maduka的詳細說明!
但我在實作上遇到一些問題 ...
若我所要顯示的資料列是從資料庫取出來...
在語法上是否有要修改的部份...
因我目前還是無法從SQL中查詢後以execl儲存...
仍只能顯示在網頁上.
5 回應者: 吳學元    日期: 2004/1/9 下午 04:25:00
有沒有其他做法是將Excel打開,把資料傳到被開啟的Excel中.而不是使用流覽器開啟.

6 回應者: 仙人    日期: 2004/1/10 下午 08:02:00
我見Microsoft的網站內有這樣的東東...
它可以打開office...
7 回應者: maduka    日期: 2004/1/10 下午 10:58:00
其實要連接Excel檔案並不會很難

下面是maduka寫的一個小Function

這一個Function可以讓大家使用

' // --------------------------------
' // 日期：2003/4/21 02:29下午
' // 作者： maduka Bor
' // 說明：這是與Excel建立連線的Function
' // --------------------------------
Function GetExcelConnection(FileName)
Dim Driver, DBPath, ExcelConn

Set ExcelConn = Server.Createobject("ADODB.Connection")
    Driver = "Driver={Microsoft Excel Driver (*.xls)};readonly=false;"
    DBPath = "DBQ=" & Server.MapPath( FileName )
    ExcelConn.Open Driver & DBPath

Set GetExcelConnection = ExcelConn
End Function

下面的程式是利用上面的Function去開Recordset,作資料的修改

' // --------------------------------
' // 日期：2003/4/21 02:32下午
' // 作者： maduka Bor
' // 說明：與Execl建立連線
' // --------------------------------
chaExcelFileName = "excel/Test.xls"
Dim ExcelConn
Set ExcelConn = GetExcelConnection(chaExcelFileName)
chaVchExcelSql = "UPDATE [SHEET$] SET VCH_NO" & intFieldNumber & " = '" & chaEnCodeVchNo & "'"
ExcelConn.Execute(chaVchExcelSql)

其中

[SHEET$] 是Excel的頁籤名稱,在Excel頁面中的第一列必須先輸入文字當作欄位名稱

不知道這個是不是你要的?

其實還有很多方式

例如用FSO建立Excel檔案並寫入,也是其辦法之一,而且效能更好..

-----------------------------------------------------------------------------------------

下面这段小程序，用于把一个SQL的SELECT查询出的结果输出为EXCEL格式文件，这个程序你只要设好用于取得一个记录集的SQL的 SELECT查询语句和一个文件名，程序就能输出EXCEL格式文件了，这个程序一共由三个文件构成，第一个文件的文件名为：toexcel.asp是主文件，内容如下：

’前面是设置数据源并链接到数据库,请自行书写相关语句，此处略过

sql=session("toexcelsql") ’这里是要输出EXCEL的查询语句，如 "SESECT * FORM CAI WHERE 性别=’女’"
filename="excel.xls" ’ 要输出的EXCEL文件的文件名, 你只要改以上两句就行了,其它的都不要改.

’你只要修改以上两变量就行了.其它的我都做好了.

call toexcel(FILENAME,sql)
set conn=nothing

function ReadText(FileName) ’这是一个用于读出文件的函数
set adf=server.CreateObject("Adodb.Stream")
with adf
.Type=2
.LineSeparator=10
.Open
.LoadFromFile (server.MapPath(FileName))
.Charset="GB2312"
.Position=2
ReadText=.ReadText
.Cancel()
.Close()
end with
set ads=nothing
end function

sub SaveText(FileName,Data) ’这是一个用于写文件的函数
set fs= createobject("scripting.filesystemobject")
set ts=fs.createtextfile(server.MapPath(FileName),true)
ts.writeline(data)
ts.close
set ts=nothing
set fs=nothing
end sub

sub toexcel(filename,sql) ’这是一个根据SQL语句和FILENAME生成EXCEL文件
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
TOEXCELLR="<table width=’100%’><tr >"
set myfield=rs.fields
dim fieldname(50)
for i=0 to myfield.count-1
toexcellr=toexcellr&"<td class=xl24>"&MYFIELD(I).NAME&"</td>"
fieldname(i)=myfield(i).name
if myfield(i).type=135 then datename=datename&myfield(i).name&","
next
toexcellr=toexcellr&"</tr>"
do while not rs.eof
toexcellr=toexcellr&"<tr>"
for i=0 to myfield.count-1
if instr(datename,fieldname(i)&",")<>0 then
if not isnull(rs(fieldname(i))) then
TOEXCELLR=TOEXCELLR&"<td class=xl25 ><p align=’left’>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"
else
TOEXCELLR=TOEXCELLR&"<td class=xl25 ><p align=’left’>　</p></td>"
end if
else
TOEXCELLR=TOEXCELLR&"<td class=xl24 >"&rs(fieldname(i))&"</td>"
end if
next
toexcellr=toexcellr&"</tr>"
rs.movenext
loop
toexcellr=toexcellr&"</table>"
tou=readtext("tou.txt")
di=readtext("di.txt")
toexcellr=tou&toexcellr&di
call savetext(filename,toexcellr)
end sub
%>
<html>
<head>
<meta http-equiv="refresh" content="3;URL=<%=filename%>">
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>正在生成EXLCE文件</title>
</head>
<BODY>
正在生成EXLCE文件....
</BODY>
</HTML>

＊＊＊＊＊＊＊＊＊＊＊＊＊＊第二个文件名为：di.txt 内容如下：

＊＊＊＊＊＊＊＊＊＊＊＊第三个文件的文件名为：tou.TXT　内容如下：

<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 9">
<link rel=File-List href="./222.files/filelist.xml">
<link rel=Edit-Time-Data href="./222.files/editdata.mso">
<link rel=OLE-Object-Data href="./222.files/oledata.mso">

<style>

</style>

</head>

--------------------------------------------------------------------

一、用OWC
什么是OWC？
　　OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供

了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一

些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开

发环境。这种模式下，客户端工作站将在整个任务中分担很大的比重。
有关的详细介绍也可在本站找到。
<%Option Explicit
Class ExcelGen
Private objSpreadsheet

Private iColOffset

Private iRowOffset
Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub

Sub Class_Terminate()
Set objSpreadsheet = Nothing ’Clean up
End Sub

Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property

Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property Sub GenerateWorksheet(objRS)
’Populates the Excel worksheet based on a Recordset’s contents
’Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
’设置Excel表里的字体
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 ’居中
iCol = iCol + 1
Next ’objField
’Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.value) then
objSpreadsheet.Cells(iRow, iCol).value = ""
Else
objSpreadsheet.Cells(iRow, iCol).value = objField.value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol + 1
Next ’objField
objRS.MoveNext
Loop
End Sub Function SaveWorksheet(strFileName)

’Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security

Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;"
Dim SaveName
SaveName = Request.Cookies("savename")("name")
Dim objExcel
Dim ExcelPath
ExcelPath = "Excel/" & SaveName & ".xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
’Response.Write "<html><body bgcolor=’gainsboro’ text=’#000000’>已保存为Excel文件.

<a href=’" & server.URLEncode(ExcelPath) & "’>下载</a>"
Else
Response.Write "在保存过程中有错误!"
End If
Set objExcel = Nothing
objRS.Close
Set objRS = Nothing
%>

二、用Excel的Application组件在客户端导出到Excel或Word
注意：两个函数中的“data“是网页中要导出的table的 id
<input type="hidden" name="out_word" οnclick="vbscript:buildDoc" value="导出到word" class="notPrint">
<input type="hidden" name="out_excel" οnclick="AutomateExcel();" value="导出到excel" class="notPrint">

导出到Excel代码
<SCRIPT LANGUAGE="javascript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;

var lie = table.rows(0).cells.length;

// Add table headers going cell by cell.
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}

}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>
导出到Word代码
<script language="vbscript">
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length

Set objWordDoc = CreateObject("Word.Document")

objWordDoc.Application.Documents.Add theTemplate, False
objWordDoc.Application.Visible=True

Dim theArray(20,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
.Font.Name = "隶书" //设定标题字体
.Font.Size = 18 //设定标题字体大小
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)

for i = 1 to column

objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
Next
Next

End Sub
</SCRIPT>

三、直接在IE中打开，再存为EXCEL文件。
把读出的数据用<table>格式，在网页中显示出来，同时，加上下一句即可把EXCEL表在客客户端显示。
<%response.ContentType ="application/vnd.ms-excel"%>
注意：显示的页面中，只把<table>输出，最好不要输出其他表格以外的信息。

四、导出以半角逗号隔开的csv
用fso方法生成文本文件的方法，生成一个扩展名为csv文件。此文件，一行即为数据表的一行。生成数据表字段用半角逗号隔开。
有关fso生成文本文件的方法，在此就不做介绍了。相关文档，可本站找到。

CSV文件介绍（逗号分隔文件）
选择该项系统将创建一个可供下载的CSV 文件； CSV是最通用的一种文件格式，它可以非常容易地被导入各种PC表格及数据库中。
请注意即使选择表格作为输出格式，仍然可以将结果下载CSV文件。在表格输出屏幕的底部，显示有 "CSV 文件"选项，点击它即可下载该文件。
如果您把浏览器配置为将您的电子表格软件与文本（TXT）/逗号分隔文件（CSV）相关联，当您下载该文件时，该文件将自动打开。下载下来后，如果本地已安装EXCEL，点击此文件，即可自动用EXCEL软件打开此文件。

ASP]在網頁中下SQL查詢.其結果轉成Excel檔相关推荐

oracle 减少回表,減少oracle sql回表次數提高SQL查詢性能 | 學步園
要寫出高效的SQL,那麼必須必須得清楚SQL執行路徑,介紹如何提高SQL性能的文章很多,這裡不再贅述,本人來談談如何從減少SQL回表次數來提高查詢性能,因為回表將導致掃描更多的數據塊. 我們大家都 ...
在 ASP.NET 網頁上加入浮水印
通常在Confidential的頁面上會顯示浮水印,這樣當User在拍下畫面時,至少知道是誰在何時外流的... 首先撰寫產出圖型的 WaterMark.ashx,欲顯示的文字內容可視情況調整... 1 ...
sql查取时间并进行相减后存入excel
这里是封装成了一个函数 def calculate(date1, date2):detal = date2-date1#这里的时间为x day,xx:xx:xx的格式detal = str(detal ...
python函数的用法字帖_GitHub - plateaukao/cns11643query: 用來查詢書法字帖的 python script，不用再層層的在官網上搜尋，只要輸入單詞即可...
cns11643query 這是一個用來查詢 www.cns11643.gov.tw 網站上的字帖的 python script. 在該網站上,沒有可以直接輸入中文字就能查詢到字帖的介面: 中間還得要 ...
mysql分頁查詢_mysql分頁查詢 | 學步園
MySQL中一般的分頁作法大多利用Limit限制回傳的資料筆數來達成分頁效果例如下面的代碼 Select * From news limit 0, 100第一頁 Select * From news ...
20個網頁抓取工具快速抓取網站
網絡爬行(也稱為網絡抓取,屏幕抓取)已廣泛應用於當今的許多領域. 在網絡爬蟲工具進入公眾之前,對於沒有編程技能的普通人來說,這是一個神奇的詞. 它的高門檻阻礙了大數據門外的人們. 網絡抓取工具是自動爬 ...
Fontface Ninja 一鍵查看網頁使用的字型名稱、大小和行高，快速下載字體檔案
對於網頁設計有興趣的朋友,一定很習慣在上網時注意網頁所使用的字型,若是比較有經驗的使用者會透過找網頁原始碼的方式來查看網頁使用的字型,或是從 CSS 檔裡去挖掘該網站使用的是那一種字型組合.先前我曾介 ...
android 索引怎么使用情况,android 數據庫查詢中使用索引-大幅提高數據庫操作速度...
參考: http://blog.csdn.net/dongyuxi1987/article/details/8239739 1.數據庫索引簡介回憶一下小時候查字典的步驟,索引和字典目錄的概念是一致的 ...
電子郵件退信原因及寄信錯誤查詢
電子郵件退信原因及寄信錯誤查詢此所整理的寄退信錯誤訊息,對使用其它廠商之郵件服務可能不會完全相同,故僅供參考,以下所提及的郵件網址均為舉例說明用.因各家郵件主機採用的系統均不相同,故退信的原因完全相 ...

ASP]在網頁中下SQL查詢.其結果轉成Excel檔

ASP]在網頁中下SQL查詢.其結果轉成Excel檔相关推荐

最新文章

热门文章