使用fso为什么这么慢

[xqzhu]

<%
'create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c:\test.txt"

'open the file
set file = fso.OpenTextFile(path, 1)

do until file.AtEndOfStream
Response.write("Name: " & file.ReadLine & " ")
Response.write("Home Page: " & file.ReadLine & " ")
Response.write("Email: " & file.ReadLine & "< p>")
loop

'close and clean up
file.close
set file = nothing
set fso = nothing
%>
网页半天都没有显示出来。什么原因啊？

[zorou_fatal]

<%
'create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c:\test.txt"

'open the file
set file = fso.OpenTextFile(path, 1)

while not file.AtEndOfStream
Response.write("Name: " & file.ReadLine & " ")
Response.write("Home Page: " & file.ReadLine & " ")
Response.write("Email: " & file.ReadLine & "< p>")
wend

'close and clean up
file.close
set file = nothing
set fso = nothing
%>
改一下看看。

[bhys]

loop 去掉试试。。