上一篇
下一篇
判断来路进行随机跳转
作者:刚子 日期:2009-07-26
今天给朋友做了一个asp代码 判断来路是否是设置的域名 如果是 就随机跳转到一个网址 如果不是 就显示本页代码 （说明一下，我使用的跳转代码速度比较慢，如果单纯做跳转其实我们完全可以使用Response.Redirect来实现，只不过他还有个要求就是随机跳转过去的页面对方可以统计到来路，所以只能这样跳转了）
程序代码
程序代码<%
'下面获取来路域名
url=request.ServerVariables("HTTP_REFERER")
'下面处理来路域名
if url<>"" then
url=replace(url,"http://","")
url=split(url,"/")(0)
end if
'下面是条件中的网址
if url="www.sogou.com" then
randomize
Num=(int(rnd()*3)+1)
Select Case Num
case 1
gangzi="http://www.gangzi.org"
case 2
gangzi="http://www.654.la"
case else
gangzi="http://www.baidu.com"
end select
response.write("<script>document.write(""<a id=myLink href="&gangzi&">loading</font></a>"");myLink.click();</script>")
end if
%>
直接打开你就看到了我,对么？
'下面获取来路域名
url=request.ServerVariables("HTTP_REFERER")
'下面处理来路域名
if url<>"" then
url=replace(url,"http://","")
url=split(url,"/")(0)
end if
'下面是条件中的网址
if url="www.sogou.com" then
randomize
Num=(int(rnd()*3)+1)
Select Case Num
case 1
gangzi="http://www.gangzi.org"
case 2
gangzi="http://www.654.la"
case else
gangzi="http://www.baidu.com"
end select
response.write("<script>document.write(""<a id=myLink href="&gangzi&">loading</font></a>"");myLink.click();</script>")
end if
%>
直接打开你就看到了我,对么？
文章来自: 
引用通告: 
Tags: 评论: 1 | 引用: 0 | 查看次数: -
回复
肥肥[2009-09-06 00:07 AM | 
]发表评论