我用ASP程序调用数据后,如何把生成的数据到处成TXT文件.


谢谢

怎么没人回答啊!

谢谢了

[QUOTE]Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("d:\testfile.txt", True)
tf.WriteLine("地区编码 地区名称")
Set Rs = Conn.Execute("Select * from Area")
Do While Not Rs.Eof
tf.WriteLine(Rs("AreaCode") &" "&Rs("AreaName"))
Rs.MoveNext
Loop
Set Rs = Nothing
Set tf = Nothing
Set fso = Nothing[/QUOTE]

我是说怎么把你个已生成的ASP页导出为TXT格式的

[QUOTE]<%
Function GetPage(url)
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get",url,False
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

'on error resume next
Url="http://bbs.bc-cn.net/viewthread.php?tid=123240"
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set CrFi=fs.CreateTextFile(server.MapPath("\")&"\index.txt")
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
response.write "...<font color=red>写入完成！</font>"
%> [/QUOTE]

Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

此方法已被认为是木马程序了