15 lines
328 B
Plaintext
15 lines
328 B
Plaintext
|
<%
|
||
|
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set objFile = objFSO.OpenTextFile("c:\testfile.txt")
|
||
|
|
count=0
|
||
|
|
do while not objFile.AtEndOobjFSOtream
|
||
|
|
count=count+1
|
||
|
|
strText=objFile.readline
|
||
|
|
response.write (count & strText & "<br>")
|
||
|
|
loop
|
||
|
|
|
||
|
|
objFile.close
|
||
|
|
Set objFile=nothing
|
||
|
|
Set objFSO=nothing
|
||
|
|
|
||
|
|
%>
|