<%
num=20
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(Server.MapPath("A.txt"))
a = split(trim(f.ReadAll),vbCrLf)
f.close
set f = nothing
set fso = nothing
Randomize()
for i=0 to num-1
tempstr=a(cint(rnd*ubound(a)))
tempstr=replace(tempstr,"锘?","<")
if tempstr<>"" then Response.Write ""&tempstr&""
next
%> |
|