asp输出方法，asp如何将数据库中的数据输出到表格中并修改？

set objexcel=createobject(excel.application)rs2(eqname)，loopsql=select * from eq

下面是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=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)&xlsend 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

set objexcel=nothing。