按照来路显示广告的asp怎么写

asdfbn 2009-07-24 10:27:09
我想加一段asp代码,如果来路是百度的话,广告位就显示百度联盟的广告,如是来路是GG的话就显示GG联盟的广告,应该怎么写啊,求高手帮忙
...全文
61 1 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ishion 2009-07-25
Refer= Request.ServerVariables("HTTP_REFERER")
if instr(Refer,"baidu.com")>1 then
'输出百度广告
elseif instr(Refer,"google.com")>1 or instr(Refer,"google.cn")>1 then
'输出GG广告
end if
回复
街头小贩 2009-07-25
如果没有来路不显示广告
回复
chenlongit 2009-07-25
学习
回复
绿绦 2009-07-25
[Quote=引用 2 楼 chinmo 的回复:]
获取来源,然后判断啊
比如:
VBScript codeRefer= Request.ServerVariables("HTTP_REFERER")
Refer=replace(Refer,"http://","")
Refer=split(Refer,"/")
Refer= Refer(0)if Refer="www.baidu.com"or Refer="baidu.com"then'这里是你要显示的东西elseif Refer="www.google.com"or Refer="google.com"or Refer="www.google.cn"or Refer="google.cn"then'这里是你要显示的东西endif
[/Quote]

应该是你要的东西赛

绿绦工作室http://www.lvtaostudio.com
回复
asdfbn 2009-07-25
正解,多谢大家哈,每人给点分
回复
获取来源,然后判断啊
比如:
Refer= Request.ServerVariables("HTTP_REFERER") 
Refer= replace(Refer,"http://","")
Refer= split(Refer,"/")
Refer= Refer(0)
if Refer="www.baidu.com" or Refer="baidu.com" then
'这里是你要显示的东西
elseif Refer="www.google.com" or Refer="google.com" or Refer="www.google.cn" or Refer="google.cn" then
'这里是你要显示的东西
end if
回复
asdfbn 2009-07-24
为什么都没人来帮帮我啊
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告