Question

用ASP逐行读取TXT里面的资料

如何用ASP逐行读取TXT里面的资料.
例如a.txt里面的文档是:
1234-4521-4512
5421-4551-1212
sd12-fsdd-5421
如何写一个ASP.他每次读取一条信息显示在页面上,读完了以后循环读.
麻烦写清楚代码.谢谢.
大家的回答显然都出现了一个共同的错误,就是一次是读取所有东西.而我想做的效果是一次读一行.请大家再研究研究

Answer 1

语句未结束，肯定是你加错地方了，当然是要换行加了。
一起显示的话，在程序最前面加一行：
Response.Buffer = True
不过如果你要读取的TXT文件行数太少的话，有可能会一起显示出来，你可以在那TXT文件里多添加一些数据。
=========================================
这程序是一行行读取的，如果你要一条条显示出来，那在Response.Write myFile.ReadLine & "<BR>"后面加一行就可以：
Response.Flush
=========================================
一行一行读取就这样：
<%
Dim Fso
Dim myFile
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set myFile = Fso.OpenTextFile(Server.MapPath("a.txt"),1,True)
'A.TXT和ASP程序在同个目录下，如果没在一个目录，可以用绝对路径，把上一行的a.txt改为：d:\a.txt
While Not myFile.AtEndOfStream
Response.Write myFile.ReadLine & "<BR>"
Wend
myFile.Close
Set myFile = Nothing
Set Fso = Nothing
%>

Answer 2

<%
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c:\a.txt"
set file = fso.opentextfile(path, 1)
fileall = file.readall
files = split(fileall,chr(13))
for i = 1 to ubound(files)
response.write files(i)&"<br>"
next
file.close
set file = nothing
set fso = nothing
%>

800a0035'; 文件未找到
你把你的a.txt的路径改改就可以了。

Answer 3

<%
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c:\a.txt"
set file = fso.opentextfile(path, 1)
response.write "<textarea cols='60' rows='4' id='aaa'>"
response.write file.readall
response.write "</textarea>"
file.close
set file = nothing
set fso = nothing
%>

Answer 4

KingsNet

这个人的是正确的

Answer 5

代码发消息给你了.