Question

怎么用ASP随机读取固定目录下的随机*.TXT的内容并显示

好比有个网站下有个目录(\abc) 目录下有若干个TXT文本文件(1.txt, 2.txt, 3.txt.4. txt.......)
我想写段代码放进网站，每次打开网页的时候随机显示出1.txt或2.txt或3.txt中的内容

十分期待您的解答，分虽然不多，但诚心求教！

Answer 1

<%
On Error Resume Next
'定义变量atemp
dim atemp
'初始化随机数发生器
randomize timer
'随机数的范围是1-10，并把得到的随机数赋值给atemp
atemp=int(10*rnd()+1)
Filename=atemp&".txt"
response.write(Filename&"<br />")
'创建FileSystemObject对象拆蔽
set fso=server.createobject("scripting.filesystemobject")
set f2= fso.OpenTextFile(server.mappath("abc/"&Filename&""))
'判断是否存在这个文首顷件
If Not fso.FileExists(server.mappath("abc/"&Filename&"旅芹州")) Then
Record="你所访问的这个txt文件不存在"
else
Record=f2.ReadAll
End If

response.Write(Record)

set f2=nothing
set fso=nothing

%>

如果不明白的话就在问我。

Answer 2

<%
'文件名一定为数字,这个asp文件要与abc在同一目饥培录下，如果是其他位置自己调整
dim filename,file_first,file_last
file_first=1 '文局肢扰桐旦件名最小数
file_last=4 '文件名最大数
randomize
filename=int((file_last - file_first + 1) * Rnd + file_first)
set fso=server.CreateObject("scripting.filesystemobject")
set file=fso.opentextfile(server.mappath("abc\" & filename & ".txt"),1)
neirong=file.readall()
set fso=nothing
set file=nothing

response.Write(neirong)
'neirong就是读取的文件内容
%>

Answer 3

首先你要把你TXT文件夹所有文件存入数据库并设置顺序
,让后
你打开网页用VBS获取在扰饥游数据库内总数的
一个随机值肢纤,这个值表示那一行.然后取出这行内容(文件名称),根据名称读出TXT,
不要用FSO对象
你直接用包括命令,就行.
include
file=
把这个放入一个DIV里面
恩
建议还是存入数据库吧...吧缓销TXT内容