Function ReadTextFile(FileName,StartRow,EndRow)

Set FSO=Server.CreateObject("Scripting.FileSystemObject")

Set FileRead=Fso.OpenTextFile(Server.MapPath(FileName),1)

    Records=0

    Do While Not FileRead.AtEndOfStream And Records<Clng(EndRow)

    If Records=>Clng(StartRow) Then

    Row=Row&FileRead.ReadLine()

    Else

    Row=FileRead.ReadLine()

    End if    

    Records=Records+1

    Loop

    ReadTextFile=Row

Set FileRead=NotHing

Set Fso=NotHing

End Function

'调用方法

'ReadTextFile("文件路径文件名",起使行数,结束行数)

Response.write(ReadTextFile("index.txt",1,50))