Question

ASP文件如何读取TXT文档，并每刷新一次界面就读取TXT文件的下一行，只显示一行内容，如此循环，求代码！

比如1.asp和1.TXT。
1.txt内容为123456
456789
567891
刷新1.asp，显示123456.在刷新显示456789，如此循环。求1.asp代码！

Answer 1

给你说说原理吧
第一步，将1.txt内容读取出来存在txtstr里（希望1.txt是内容是规则吧）
第二步，将txtstr根据回车换行符分割存进数组txtarr
第三步，用cookie或者session记录刷新次数，从而显示对应行数内容。

以下是完成第一步，第二步以后的代码，至于第一步第二步代码你自己处理下就行
if session("count")="" then
session("count")=1
else
session("count")=session("count")+1
end if
if session("count")> ubound(txtarr) then '防止记录次数超过数组上限
session("count")=ubound(txtarr)
end if
for i=0 to session("count")
response.write txtarr(i)&"<br>"
next

Answer 2

以下代码完全符合你的要求：
<%
dim FSO
dim objFile
dim CountFile
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.OpenTextFile(Server.MapPath("test.htm"),1,True)
dim i
i=1
'Session("line")=0
Do While Not objFile.AtEndOfStream
If i=Session("line")+1 Then
Response.Write objFile.Readline
Session("line")=i
Exit Do
else
objFile.Readline
End If
i=i+1
Loop
objFile.Close
set objFile=Nothing
Set FSO = Nothing
%>

追问

感谢你的回答！好像不是循环显示的吧。比如到了最后一行自动又从第一行开始循环显示。

追答

哦，要返回去啊，我改一下。

追问

麻烦了·你看能修改成循环完一次后弹出个提示框，问是否从第一行重新开始，确定后又开始显示为一行，谢谢！！

追答

if(confirm('已到最后一行，是否从第一行重新开始读取？')){location.reload();}else{window.close()};"
Session("line")=0
end if
End If
i=i+1
Loop
objFile.Close
set objFile=Nothing
Set FSO = Nothing
%>

Answer 3

恩？找高手问问吧

Answer 4

用css架构看看

追问

偶是菜鸟，方便指导一下吗，具体一点··