Question

ASP生成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文档，可是文档里什么都没有啊~

Answer 1

<%

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

strTemp=""

for i=1 to rs.recordcount

strTemp=strTemp&"&ID" &i & "=" & rs("ID") 

strTemp=strTemp&"&SN"& i & "=" & rs("SN")

strTemp=strTemp&"&TSR"& i & "=" & rs("TSR")

strTemp=strTemp&"&ONWING" & i & "=" & rs("ONWING")

strTemp=strTemp&"<br />"

rs.movenext

next

set fso=server.createobject("scripting.filesystemobject") '这样就定义了fso

set fout=fso.createtextfile(server.mappath("文本文件.txt")) '这里是定义fout在当前的服务器上生成名为index.htm（后缀也是自己定义的,可以是html,sthml等静态后辍）的文件，这个文件目前是空白

fout.write strTemp '写入静态页面的内容，这样index.htm页面就算是完全生成了

fout.close '关闭fout

set fout=nothing '清空fout

set fso=nothing '清空fso

%>

<%

rs.Close

set rs=nothing

conn.Close

set conn=nothing

%>

把你要输出的东西，用字符串连接起来，然后再写到.txt文件里去.

Answer 2

<%
'读取配置文件
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile(Server.MapPath("Setup.txt"))
'while not mytextfile.atendofstream
setup = (mytextfile.readline)
'wend
mytextfile.close
%>

Answer 3

FSO 去查询一下