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

下面是白杨中的代码
setrs2=服务器。创建对象(adodb 。记录集)
sql=从情商中选择*其中eqbumen=' dep'eqbumendesc订购
rs2.opensql ， conn ， 1 ， 1
setobjexcel=创建对象(excel 。应用程序)
objexcel 。练习册。打开(服务器。地图路径(\测试)\图书1 。' xlt)打开超过模板
objexcel.sheets(1)."选择"选中工作页
setsheetactive=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=http://www.huobaoweishang.com/zhishi/array(rs2(zcid)、rs2(eqname)、rs2(eqchangjia)、rs2(eqxinhao)、rs2(eqenigli)、rs2(eqweizhi)、rs2(eqxinzhang)、rs2(eqno)、rs2(eqbumen)、rs2(eqchejian))把数据集中的数据填写到相应的单元中
数字=数字一
rs2.movenext
环
函数获取临时文件(我的文件系统)
dimtempfile ， dotpos
tempfile=我的文件系统。方法
dotpos=instr(1 ， tempfile,)
gettemporaryfile=mid(tempfile ， 1 ， dotpos)xls；结束功能
setmyfs=createobject(脚本。文件系统对象)
文件pos=服务器。映射路径(\测试)\ temp要存放打印临时文件的临时目录
filename=gettemporaryfile(myfs)取得一个临时文件名
myfs.deletefilefilepos* .xls'删除该目录下所有原先产生的临时打印文件
【asp如何将数据库中的数据输出到表格中并修改 asp输出方法】设置myfs=无
objexcel 。activeworkbook 。另存为文件posfilename
objexcel.quit
setobjexcel=nothing 。

文章插图