實例解析ASP程序中輸出Excel文件(2)_ASP教程

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

推薦：怎樣用asp程序讀取網(wǎng)站的alexa世界排名
平時每逢alexa排名更新時，我都需要將所有相關(guān)的同類網(wǎng)站的排名整理一下，看一下這些對手網(wǎng)站的排名更新情況。做的多了，也就煩了，雖然也才30多個網(wǎng)站，但一個個看下來也有點累。因此，想

實現(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>

分享：怎樣做到一個網(wǎng)站空間多個域名訪問
一個網(wǎng)站空間，但是卻可以實現(xiàn)多個域名的訪問的一段ASP代碼：以下為引用的內(nèi)容： % if Request.ServerVariables(SERVER_NAME)=&q