Question

asp或者php怎样随机读取txt文件

比如有3个txt文件：
1.txt
2.txt
3.txt 怎样随机读取其中的一个文件呢？我是新手，请大侠们写出asp或者php的完整代码，感激不尽
提示这个错误

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/index.asp，行 2

Dim i,showTxt,UrlFile;

Answer 1

哎 你完全不懂啊！
我习惯了C#写法了多写了一个“;”号 这句 Dim i,showTxt,UrlFile;去掉这个符号就好了。
你点浏览器的"开始"-->"工具"-->"高级"
然后取消"显示友好HTTP错误信息"
这样我才知道你运行我的代码出现什么错误。
我很怀疑是你程序运行的时候没有找到指定位置的*.txt文件。
UrlFile="路径"&i&".txt" 这句你要自己改成你的路径啊！
比如 c:\web\txt\*.txt 这样程序才能调用你指定的文件对吧！

我想说的是这段代码我测试过了，绝对没错的，如果您出错请从自身找原因。

比如你的.txt所在位置是否支持FSO，是否拥有FSO权限？是否是NTFS格式等等。
------------------------------------
asp:
<%
Dim i,showTxt,UrlFile;
Randomize
i = int(3*Rnd) '生成1-3的整数

UrlFile="路径"&i&".txt"
showTxt=ReadFile(UrlFile)

Function ReadFile(Filename) '读取指定文件全部内容
Dim FSO,Txt
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set Txt=FSO.OpenTextFile(Server.Mappath(FileName))
If err.Number = 53 Then Call Back("指定文件不能读取，请检查系统设置。通常情况下是指定的"&FileName&"文件不存在")
If Not Txt.atEndOfStream Then '如果该文件非0长度
Dim uContent,lines
uContent=Txt.ReadAll
ReadFile= uContent
End If
Set FSO=Nothing
End Function

sub Back(mesg)
%><script language='javascript'>alert('<%=mesg%>');setTimeout('history.go(-1)',1);</script><%
response.end
end sub
%>