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-05-30 23:50:33
类似问题(10)
-
佚名2024-05-30 02:25:01
问小学奥数问题——a组6题
答第三段路程用时:40/80 = 0.5 小时前两段路程:242 - 40 = 202 千米84×2.5 = 210 千米210 - 202 = 8 千米8/(8...
-
佚名2024-05-30 16:33:32
问ASP生成HTM文件取名问题。。。。
答function makefilename(fname) makefilename=fname & ".htm"end function 调用时用 ma...
-
佚名2024-05-30 03:28:12
问PHP函数问题
答假设 $ipInfo = "111";$bc = "222";$ipInfo = '/'.$bc; 那么值就是 $ipInfo = "/222";$ipIn...
-
佚名2024-05-30 12:39:24
问PHP函数问题
答这是在新版本的PHP带的功能<<<后面的字符会按照原样输出的exit是退出程序的意思你下面的代码将不会执行
-
佚名2024-05-30 08:54:09
问oracle concat 函数问题
答可以这样处理: SELECT 'man' || 'jia' || 'hua' FROM DUAL;或者多写几个 concat 函数。
-
佚名2024-05-30 08:00:00
问wow RP服务器问题
答5区 金色平原
-
佚名2024-05-30 08:00:00
问小学奥数问题——a组6题
答你的问题是啥呢?你不说清楚,别人不能为你回答,你也得不到想要的结果,同时还浪费回答者的时间。请以后提问题说清楚点。
-
佚名2024-05-30 08:00:00
问和数学函数相关的问题
答 -
佚名2024-05-30 08:00:00
问倍数问题谁能有多点三年级倍数问题啊,超过20个问题
答请问是哪20个数的倍数
-
佚名2024-05-30 08:00:00
问小学倍数问题
答提高到几倍 就是原来的几倍提高了几倍 就是原来的几+1倍提高到2倍 就是原来的2倍提高了2倍 就...
风水
起名
网名
- 1 六个字的情侣网名
- 2 女生带符号网名
- 3 简单唯美意境的网名
- 4 网名女生韩文霸气十足
- 5 做戏.是男的还是女的网名
- 6 大气哲学的昵称
- 7 简单生活的微信昵称
- 8 非法昵称错误代码
- 9 微信个性昵称在线生成工具6
- 10 社保注册昵称长度大于3
说说
- 1 带静的微信个性签名
- 2 微信签名怎样画圈圈
- 3 发说说夸女朋友好看
- 4 七分新鲜感的爱情说说
- 5 说说你插妈妈
- 6 qq说说男人的责任
- 7 前男友分手一个月发表寂寞说说
- 8 高墙电网的说说
- 9 七零后早安说说
- 10 说说幼儿接受文学的特殊方式