Question

ASP 随即抽取TXT文本里的内容

文件1.txt里的内容是
11111111
22222222
3333333
有很多行
-----------------------------------------------------
我想实现一个功能访问1.asp后从1.txt里随机抽取一行数据返回到网页上 .返回后删除1.txt里刚刚抽取那一行。
要怎么写呢，大侠帮帮忙喽 ASP或PHP的都可以

Answer 1

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(Server.MapPath("1.txt"))
str = file.ReadAll
linecount=file.line
file.close
arr = Split(str,vbCrLf)
Randomize
rndline = Int((linecount-1+1) * Rnd + 1)

response.write arr(rndline-1)
%>

追问

随机抽取是可以 但没有删除 对应的那一行 大哥那里出问题了

追答

i then sContent=sContent&vbCrLf&arr(i)
next
Set file = fso.CreateTextFile(Server.MapPath("log.txt"),True)
file.Write mid(sContent,3)
file.Close
Set file=Nothing
Set fso = Nothing
%>