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。