asp如何將數據庫中的數據輸出到表格中並修改 asp輸出方法

下面是asp中的代碼

Set rs2=teObject(rdset)

sql=select * from eq where eqbumen='&dep;&' order by eqbumen desc

sql,conn,1,1

set objExcel=CreateObject(ication)

objExcel.Workbooks.Open(server.mappath(test)&) '打開Excel模板

ts(1)ct '選中工作頁

set sheetActive=veSheet

num=2 '從Excel的第2行開始

Do while not '循環直至數據集中的數據寫完

strRange=b#&:k# '設定要填寫內容的單元區域

e(strRange)=10 '設定字體大小

e(strRange)Text=false '設定文字回捲

e(strRange)nkToFit=true '設定是否自動適應表格單元大小

e(strRange)e=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把數據集中的數據填寫到相應的單元中

num=num+1

Next

loop

function getTemporaryFile(myFileSystem)

dim tempFile,dotPos

tempFile=empName

dotPos=instr(1,tempFile,.)

getTemporaryFile=mid(tempFile,1,dotPos)&xls;end function

set myFs=createObject(SystemObject)

filePos=server.mappath(test)&temp '要存放打印臨時文件的臨時目錄

fileName=getTemporaryFile(myFs) '取得一個臨時文件名

'teFile filePos&* '刪除該目錄下所有原先產生的臨時打印文件

set myFs=nothing

as filePos&filename;

set objExcel=Nothing。