ASP计数器问题
提问者你好,你的意思应该是:打开本页面时自动随机选择设定网址群中的某一个进行跳转,并统计每个网址自动跳转的次数,统计结果存储在一个txt文本文件中,为此我特地给你编写好了代码,具体如下:
<%
dim url,tt,ra
url=",.hk,"
tt=split(url,",")
Randomize
ra=cint(rnd*Ubound(tt))
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile, MyFile2
Set fso = CreateObject("Scripting.FileSystemObject")
'读取文本文件中的所有行内容
Set MyFile = fso.OpenTextFile(server.mappath("rnd_url.txt"), ForReading)
i=0
strs=""
Do While Not MyFile.atEndOfStream
'response.write MyFile.ReadLine
abc=""
read_content=cstr(trim(MyFile.ReadLine))
if trim(read_content)<>"" then
btws=cint(InStr(read_content,"="))-1 '网址的位数(等于号左边)
szws=len(read_content)-cint(InStr(read_content,"=")) '网址对应的数字(次数)位数(等于号右边)
btnr=left(read_content,cint(btws)) '取出此行的网址(等于号左边)
sznr=right(read_content,cint(szws)) '取出此行网址对应的数字(次数)(等于号右边)
if trim(btnr)=trim(tt(ra)) then '如果网址(等于号左边)与本次随机跳转的网址是一样
abc=btnr & "=" & cint(sznr)+1 '把次数加1
else
abc=read_content
end if
if Not MyFile.atEndOfStream then
strs = strs & abc & vbCrLf
else
strs = strs & abc
end if
end if
i=i+1
loop
MyFile.Close
response.write strs
'写入内容到文本文件中
Set MyFile2 = fso.OpenTextFile(server.mappath("rnd_url.txt"), ForWriting, True)
MyFile2.WriteLine strs
MyFile2.Close
Response.Redirect ("http://"&tt(ra)) '获取本次随机产生的网址并更新txt文本文件的内容后,可以进行跳转了,这一句一定要放在最后一行
%>
以上代码已通过测试,100%达到了你的要求,还有就是代码中的关键位置我都加了注释,更于你容易看懂,希望你能满意!
PS:用于存储网址和访问次数的txt文本文件我取名为:rnd_url.txt ,你可以根据你的需要重新命名,把我代码中的两处 server.mappath("rnd_url.txt") 改成你自已的路径即可
<%
dim url,tt,ra
url=",.hk,"
tt=split(url,",")
Randomize
ra=cint(rnd*Ubound(tt))
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile, MyFile2
Set fso = CreateObject("Scripting.FileSystemObject")
'读取文本文件中的所有行内容
Set MyFile = fso.OpenTextFile(server.mappath("rnd_url.txt"), ForReading)
i=0
strs=""
Do While Not MyFile.atEndOfStream
'response.write MyFile.ReadLine
abc=""
read_content=cstr(trim(MyFile.ReadLine))
if trim(read_content)<>"" then
btws=cint(InStr(read_content,"="))-1 '网址的位数(等于号左边)
szws=len(read_content)-cint(InStr(read_content,"=")) '网址对应的数字(次数)位数(等于号右边)
btnr=left(read_content,cint(btws)) '取出此行的网址(等于号左边)
sznr=right(read_content,cint(szws)) '取出此行网址对应的数字(次数)(等于号右边)
if trim(btnr)=trim(tt(ra)) then '如果网址(等于号左边)与本次随机跳转的网址是一样
abc=btnr & "=" & cint(sznr)+1 '把次数加1
else
abc=read_content
end if
if Not MyFile.atEndOfStream then
strs = strs & abc & vbCrLf
else
strs = strs & abc
end if
end if
i=i+1
loop
MyFile.Close
response.write strs
'写入内容到文本文件中
Set MyFile2 = fso.OpenTextFile(server.mappath("rnd_url.txt"), ForWriting, True)
MyFile2.WriteLine strs
MyFile2.Close
Response.Redirect ("http://"&tt(ra)) '获取本次随机产生的网址并更新txt文本文件的内容后,可以进行跳转了,这一句一定要放在最后一行
%>
以上代码已通过测试,100%达到了你的要求,还有就是代码中的关键位置我都加了注释,更于你容易看懂,希望你能满意!
PS:用于存储网址和访问次数的txt文本文件我取名为:rnd_url.txt ,你可以根据你的需要重新命名,把我代码中的两处 server.mappath("rnd_url.txt") 改成你自已的路径即可
佚名
2024-12-23 23:27:07
类似问题(10)
-
佚名2024-12-23 18:00:36
问小学奥数问题——a组6题
答第三段路程用时:40/80 = 0.5 小时前两段路程:242 - 40 = 202 千米84×2.5 = 210 千米210 - 202 = 8 千米8/(8...
-
佚名2024-12-23 18:29:08
问ASP生成HTM文件取名问题。。。。
答function makefilename(fname) makefilename=fname & ".htm"end function 调用时用 ma...
-
佚名2024-12-23 10:53:08
问PHP函数问题
答假设 $ipInfo = "111";$bc = "222";$ipInfo = '/'.$bc; 那么值就是 $ipInfo = "/222";$ipIn...
-
佚名2024-12-23 20:19:03
问PHP函数问题
答这是在新版本的PHP带的功能<<<后面的字符会按照原样输出的exit是退出程序的意思你下面的代码将不会执行
-
佚名2024-12-23 08:28:23
问oracle concat 函数问题
答可以这样处理: SELECT 'man' || 'jia' || 'hua' FROM DUAL;或者多写几个 concat 函数。
-
佚名2024-12-23 08:00:00
问wow RP服务器问题
答5区 金色平原
-
佚名2024-12-23 08:00:00
问小学奥数问题——a组6题
答你的问题是啥呢?你不说清楚,别人不能为你回答,你也得不到想要的结果,同时还浪费回答者的时间。请以后提问题说清楚点。
-
佚名2024-12-23 08:00:00
问和数学函数相关的问题
答 -
佚名2024-12-23 08:00:00
问倍数问题谁能有多点三年级倍数问题啊,超过20个问题
答请问是哪20个数的倍数
-
佚名2024-12-23 08:00:00
问小学倍数问题
答提高到几倍 就是原来的几倍提高了几倍 就是原来的几+1倍提高到2倍 就是原来的2倍提高了2倍 就...
风水
- 1 求解梦:昨晚梦见天空飘着一块黑纱,很多人去追,然后追到的人都很高兴,接着梦见天空又飘来一块手绢,上
- 2 周公解梦,白天想到也前打过的小孩,在家里坐着,平白无故的想起这件事,会不会有什么不妥。
- 3 梦到两条巨蟒
- 4 昨天晚上梦到拿着活着的亲人的骨灰盒,这是什么预召?
- 5 梦见和朋友一起看见两条黑色的大蛇 后来又看见许多小蛇 后来走的时候 那些蛇全部抬头看着我 什么寓意
- 6 早晨梦见前男友拿刀自残,哭醒了。主要是他确实真的会心情不好时候自残,分手一年多,偶尔还有联系,这种
- 7 梦到跟前睡得亲人好像是死人
- 8 梦见拉尿在火盆里满屋都是
- 9 梦见花钱赎回过世奶奶
- 10 阴奉阳违和阳奉阴违意思是否一样
起名
网名
- 1 2成语网名
- 2 含有斌_倩的网名
- 3 清新好听的4字网名男生网名
- 4 网名心向大海什么意思
- 5 男生网名高冷有气质
- 6 小螃蟹专属网名日语
- 7 奶凶的昵称
- 8 个性游戏昵称大全
- 9 英文wifi昵称
- 10 家装师傅微信昵称
说说
- 1 q友乐园个性签名不是闺蜜
- 2 老娘生病个性签名
- 3 2017qq个性签名绝版
- 4 被感情伤透的说说心情
- 5 说说你对上网的看法
- 6 一个人伤心孤独的说说
- 7 查看了您的说说和浏览
- 8 午睡的经典说说
- 9 三年级上册语文说说我自己
- 10 朋友请客吃饭发朋友圈说说