UC知道ASP生成TXT的代码
来源：百度知道 编辑：UC知道 时间：2024/05/13 11:24:54
<%
set conn=server.createobject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/MSAM.mdb")
dim i
set rs=server.createobject("adodb.recordset")
exec="select id,sn,tsr,onwing from HNA "
rs.open exec,conn,1,1
for i=1 to rs.recordcount
response.write "&ID" &i & "=" & rs("ID")
response.write "&SN"& i & "=" & rs("SN")
response.write "&TSR"& i & "=" & rs("TSR")
response.write "&ONWING" & i & "=" & rs("ONWING")
response.write"<br />"
rs.movenext
next
%>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
想把输出的东西，写成TXT，代码应该怎么写呢？
谢谢指点
根据各位的写法，我试了下，是可以生成TXT文档，可是文档里什么都没有啊~
set conn=server.createobject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/MSAM.mdb")
dim i
set rs=server.createobject("adodb.recordset")
exec="select id,sn,tsr,onwing from HNA "
rs.open exec,conn,1,1
for i=1 to rs.recordcount
response.write "&ID" &i & "=" & rs("ID")
response.write "&SN"& i & "=" & rs("SN")
response.write "&TSR"& i & "=" & rs("TSR")
response.write "&ONWING" & i & "=" & rs("ONWING")
response.write"<br />"
rs.movenext
next
%>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
想把输出的东西，写成TXT，代码应该怎么写呢？
谢谢指点
根据各位的写法，我试了下，是可以生成TXT文档，可是文档里什么都没有啊~
<%
'读取配置文件
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(Server.MapPath("Setup.txt"))
'while not mytextfile.atendofstream
setup = (mytextfile.readline)
'wend
mytextfile.close
%>
FSO 去查询一下