我是个菜鸟，想编一个程序，从一个文本中一行行的读出来，到回车换行为止。
以下的程序是网上下的,能全篇读出来。
    但我需要一行、一行的读，因为每一行还要处理。
    请教如何改动？谢谢了！！！
<%
Dim write
Dim fileSysObj, tf, read

'读取文本read.txt 
'获得文件名字
read = "read.txt"
'读取文件的完整路径

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read

'新建一个fileSysObj对象

Set fileSysObj = createObject("Scripting.FileSystemObject")

'读取整个文本文件

IF (fileSysObj.FileExists(read)) Then
'如果文件存在，则打来并读取文件
Set tf = filesysobj.OpenTextFile(read, 1)
read = tf.ReadLine
tf.Close
ELSE
'如果找不到read.txt文件，则显示下面的信息！
read = "I cant find the file read.txt! So this is my default message."

END IF
%>