ASP读取网址/Url列表并随机跳转：

<%
File=Server.Mappath("UrlList.txt") '网址列表路径
Set Fs=server.CreateObject("Scripting.FileSystemObject") 'Fso读写组件
Set Txt=Fs.Opentextfile(file,1,true) '打开
If Not Txt.Atendofstream Then P=Split(txt.readall, vbcrlf) '分割为数组
Randomize '纯随机,不重复
Response.redirect P(Int((UBound(P) * Rnd) + 1)-1) '在(1-数组最大上标)之间生成随机数,并跳转到该页
Response.end '结束
%>

将网址列表保存到：UrlList.txt，如下格式的网址：

http://www.baidu.com/a.asp
http://www.google.com/b.asp
http://www.163.com/c.asp
……

支持无限多。