Question

ASP计数器问题

我有一个自动随机跳转的代码，想在下面的代码中假如计数功能，统计每个网址自动跳转的次数，并在另外一个txt文本中显示每个网址总的点击次数。
<%
dim url,tt,ra
url="www.aaa.com,www.bbb.com,www.ccc.com"
tt=split(url,",")
Randomize
ra=cint(rnd*Ubound(tt))
Response.Redirect ("http://"&tt(ra))
%>
在另外的一个txt文件中写入次数，式样如下（等号后面是每个网址总共跳转次数）
www.aaa.com=123
www.bbb.com=123
www.ccc.com=123

分不多，谢谢了！

Answer 1

提问者你好，你的意思应该是：打开本页面时自动随机选择设定网址群中的某一个进行跳转，并统计每个网址自动跳转的次数，统计结果存储在一个txt文本文件中，为此我特地给你编写好了代码，具体如下：

<%
dim url,tt,ra
url="www.baidu.com,www.google.com.hk,www.soso.com"
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") 改成你自已的路径即可