如何用ASP輸出Excel文件(2)_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：如何用ASP處理多關(guān)鍵詞查詢
在web開發(fā)中經(jīng)常遇到多關(guān)鍵詞對對單個字段查詢，我一般是通過動態(tài)數(shù)組來實現(xiàn)的。當然多個關(guān)鍵詞的一般是用空格或,隔開，我這幾假設(shè)多個關(guān)鍵詞用空格隔開,關(guān)鍵字字符串為keyStr，具體代碼為

在實際應(yīng)用中。當服務(wù)器端正在運行excel或ACCESS程序時，客戶端提交建立excel。application對象無法成功。另一種情況，當一個客戶端提交請求時，并沒有結(jié)束時，另一個客戶端提交的請求也無法成功！或許這個問題有別的解決方案，但是至少這是不穩(wěn)定的。

正好我們部門內(nèi)部網(wǎng)上有相關(guān)成功的例子，挖出來看，原來是在客戶端建立excel。application的。這樣，服務(wù)器端不會再沖突。對于客戶端，因為是在局域網(wǎng)內(nèi)運行，客戶IE安全級別可以設(shè)低，并允許運行相關(guān)activeX(就是在IE工具選項中把各類涉及安全的東西都設(shè)為允許，具體的哪一項沒有去追究)，即使沒有設(shè)置，IE也會彈出警告窗口：“是否允許運行activeX？”

實現(xiàn)的代碼和上篇日志差不多，簡單的如下：

以下為引用的內(nèi)容：

set objExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=true

objExcelApp.WorkBooks.Open("http://XXX.XXX.XXX/XXX.xls")
'完整網(wǎng)路地址的xls文件,這個文件已經(jīng)設(shè)置好格式及打印樣式,保存在服務(wù)器上
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelSheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)
'====此處為對excel單元格進行填寫數(shù)據(jù)的語句,如果是從數(shù)據(jù)庫提取數(shù)據(jù),可由后臺程序生成這些語句,ASP中的示列:
'如:response.write "objExcelSheet.Range(""B2"").Value="""&rs("XXX")&""""
'或 objExcelSheet.Range("B2").Value="<%=rs("XXX")%>"

objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7")
objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")
objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10")
objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80")
objExcelSheet.Cells(3,1).Value="InternetExplorer"
objExcelSheet.Cells(4,1).Value="Netscape"
objExcelSheet.Cells(5,1).Value="Other"
'==================
'objExcelApp.Quit
'set objExcelApp=Nothing

</script>

上述代碼中

以下為引用的內(nèi)容：

'objExcelApp.Quit
'set objExcelApp=Nothing

作為取消執(zhí)行，因為此處不要關(guān)閉excel.applicaition，不然數(shù)據(jù)填完后，excel會關(guān)閉掉。這時在客戶端打開的excel文件需要由客戶進行修改或打印等操作。同時objexcelapp對象還有打印設(shè)置及進入打印預(yù)覽界面等方法，可參考相關(guān)excel相關(guān)資料。

分享：怎樣使ASP分頁顯示Recordset數(shù)據(jù)
1．建立Recordset對象以下為引用的內(nèi)容： Dim objMyRst Set objMyRst=Server.CreateObject(“ADODB.Recordse