Question

(asp)在数据库筛选符合条件的记录显示在网页上并将结果另存为到新Excel中

本人在网页中实现了从数据库中筛选出符合条件的记录并且显示在网页上，但不知道如何将这些显示内容另存为到一个新的EXCEL表里，望各位大侠指点迷津，给出相应的代码。谢谢

Answer 1

dim ttxt,file,filepath,writefile,biaoti
ttxt=month(now)&day(now)&hour(now)&minute(now)&".xls" //'为要写入的文件取个文件名
Set file = createobject("Scripting.FileSystemObject")
application.lock
//'写入文件的存放路径，一定要开放这个路径下的读写权限
filepath=server.mappath(ttxt)
set writefile = file.createtextfile(filepath,true)
writefile.writeLine b // '在表格中写入第一行，字段描述，这个根据你实际的数据表字段来写
set rs2 = server.createobject("adodb.recordset")
sql2="select * from G_xuesheng where"&sqlcx
rs2.open sql2,conn,1,1

do until rs2.eof
zhi3 = ""
for i= 0 to Ubound(shuchu)
zhi3=zhi3&kg&rs2(qout&a(i)&qout)&vbtab
next
writefile.writeLine zhi3
rs2.movenext
loop

writefile.close
application.unlock

有不明白的联系我