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

[asdfbn]

我想加一段asp代码,如果来路是百度的话,广告位就显示百度联盟的广告,如是来路是GG的话就显示GG联盟的广告,应该怎么写啊,求高手帮忙

[asdfbn]

为什么都没人来帮帮我啊

• 打赏
• 举报

回复 赞

[一把编程的菜刀]

获取来源，然后判断啊
比如：

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]

正解,多谢大家哈,每人给点分

• 打赏
• 举报

回复 赞

[绿绦]

[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

• 打赏
• 举报

回复 赞

[chenlongit]

学习

• 打赏
• 举报

回复 赞

[街头小贩]

如果没有来路不显示广告

• 打赏
• 举报

回复 赞

[ishion]

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

• 打赏
• 举报

回复 赞