readline.asp

Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明

<%
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
%>