2024年3月30日发(作者：)

<%@ LANGUAGE="VBSCRIPT" %>

<%option explicit%>

http-equiv="Content-Type">

生成EXCEL文件

生成EXCEL文件

<%

if Request("act") = "" then

"生成EXCEL文件"

else

dim conn,strconn

strconn="driver={SQL Server};server=xxx;uid=sa;pwd=;database=DB_Test"

set conn=Object("tion")

strconn

dim rs,sql,filename,fs,myfile,x

Set fs = Object("stemobject")

'--假设你想让生成的EXCEL文件做如下的存放

filename = h("")

'--如果原来的EXCEL文件存在的话删除它

if ists(filename) then

File(filename)

end if