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

文件1.txt里的内容是11111111222222223333333有很多行----------------------------------------------... 文件1.txt里的内容是
11111111
22222222
3333333
有很多行
-----------------------------------------------------
我想实现一个功能访问1.asp后从1.txt里随机抽取一行数据返回到网页上 .返回后删除1.txt里刚刚抽取那一行。
要怎么写呢,大侠帮帮忙喽 ASP或PHP的都可以
展开
 我来答
度老虎
2012-11-20 · TA获得超过1546个赞
知道大有可为答主
回答量:1661
采纳率:100%
帮助的人:2327万
展开全部
<%
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
%>
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式