asp如何將數據庫中的數據輸出到表格中并修改 _asp

下面是asp中的代碼
Set rs2=Server.CreateObject(ADODB.recordset)
sql=select * from eq where eqbumen='&dep;&' order by eqbumen desc
rs2.open sql,conn,1,1
set objExcel=CreateObject(Excel.Application)
objExcel.Workbooks.Open(server.mappath(test)&book1.xlt) '打開Excel模板
objExcel.Sheets(1).select '選中工作頁
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
num=2 '從Excel的第2行開始
Do while not rs2.eof '循環直至數據集中的數據寫完
strRange=b#&:k# '設定要填寫內容的單元區域
sheetActive.range(strRange).font.size=10 '設定字體大小
sheetActive.range(strRange).WrapText=false '設定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '設定是否自動適應表格單元大小
sheetActive.range(strRange).value=https://www.wannianli8.com/arc748457/array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian))'把數據集中的數據填寫到相應的單元中
num=num+1
rs2.MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,.)
getTemporaryFile=mid(tempFile,1,dotPos)&xls;end function
set myFs=createObject(scripting.FileSystemObject)
filePos=server.mappath(test)&temp '要存放打印臨時文件的臨時目錄
fileName=getTemporaryFile(myFs) '取得一個臨時文件名
'myFs.DeleteFile filePos&*.xls '刪除該目錄下所有原先產生的臨時打印文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename;
objExcel.quit
【asp如何將數據庫中的數據輸出到表格中并修改】set objExcel=Nothing 。