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

下面是白杨中的代码

set rs2=服务器。创建对象(adodb。记录集)

sql=从情商中选择*其中eqbumen=' dep'eqbumen desc订购

rs2.open sql，conn，1，1

set objexcel=创建对象(excel。应用程序)

objexcel。练习册。打开(服务器。地图路径(\测试)\图书1。' xlt)打开超过模板

objexcel.sheets(1)."选择"选中工作页

set sheet active=objexcel。活动工作簿。活性片

' num=2 '从超过的第2行开始

'不要rs2.eof时执行'循环直至数据集中的数据写完

' strrange=b#:k# '设定要填写内容的单元区域

工作表激活。范围(strrange)。字体。size=10 '设定字体大小

sheetactive.range(strrange)." wraptext=false "设定文字回卷

sheetactive.range(strrange).' shrinktofit=true '设定是否自动适应表格单元大小

sheetactive.range(strrange).value=array(rs2(zcid)、rs2(eqname)、rs2(eqchangjia)、rs2(eq xinhao)、rs2(eq enigli)、rs2(eqweizhi)、rs2(eq xinzhang)、rs2(eqno)、rs2(eqbumen)、rs2(eqchejian))把数据集中的数据填写到相应的单元中

数字=数字一

rs2.movenext

环

函数获取临时文件(我的文件系统)

dim tempfile，dotpos

tempfile=我的文件系统。方法

dotpos=instr(1，tempfile ,)

gettemporaryfile=mid(tempfile，1，dot pos)xls；结束功能

set myfs=create object(脚本。文件系统对象)

文件pos=服务器。映射路径(\测试)\ temp要存放打印临时文件的临时目录

filename=gettemporaryfile(myfs)取得一个临时文件名

myfs.deletefile filepos* .xls '删除该目录下所有原先产生的临时打印文件

设置myfs=无

objexcel。activeworkbook。另存为文件posfilename

objexcel.quit

set objexcel=nothing。