readline.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 11 行

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath( "Sample.txt" )

Set txtf = fs.OpenTextFile( File )
While Not txtf.atEndOfStream	' 先确定还没有到达结尾的位置
    Line = txtf.ReadLine	' 读取一行信息
    Response.Write Line & "<BR>"
Wend
%>