今天网上查了一些资料，测试通过
<!--#include file="admin/conn.asp"-->
<%
Set fs = server.CreateObject("scripting.filesystemobject")
filename = "E:\Excel.xls"
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
set rs=server.createobject("adodb.recordset")
rs.open"select * from newpr",conn,1,1
for i=1 to rs.recordcount
strLine=""
strLine=""&rs("partno")&""& chr(9)&""&rs("mfg")&""& chr(9)
myfile.writeline strLine
rs.movenext
next
%>
posted on 2006-04-03 14:00
汪杰 阅读(269)
评论(0) 编辑 收藏 引用 所属分类:
hengxing网站js