读取文本数据文件的某一行的方法

<%

LineNumber=9

Set oFSO = CreateObject("Scripting.FileSystemObject")

     Set oFSTR = oFSO.OpenTextFile("c:/log.txt")
     Do While Not oFSTR.AtEndOfStream
        lCtr = lCtr + 1
        If lCtr = LineNumber Then
            ReadLineDetail = oFSTR.ReadLine
            Exit Do
        End If
        oFSTR.SkipLine
    Loop
     oFSTR.Close
     Set oFSTR = Nothing
 
 response.write ReadLineDetail

%>