asp读取txt问题

源码如下：

<%
file=server.mappath("2.txt")'操作同一个目录中的文件
Const ForReading = 1, ForWriting = 2
Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file, ForReading)
'ReadAllTextFile = f.ReadAll'读出所有内容
'response.write ReadAllTextFile
i=0
Do While f.AtEndOfLine <> True'读出所有的行到数组
i=i+1
ReDim Preserve file_list(i)
file_list(i)=f.ReadLine
loop
Randomize
c=Int((i - 1 + 1) * Rnd + 1)'生成随机数，随机取一行
response.write "取得行号为："&c&":共"&i&"行<br>"
response.write "行内容："&file_list(c)

%>