2.8w+
社区成员
- 主页
按照来路显示广告的asp怎么写
我想加一段asp代码,如果来路是百度的话,广告位就显示百度联盟的广告,如是来路是GG的话就显示GG联盟的广告,应该怎么写啊,求高手帮忙
...全文
请发表友善的回复…
发表回复
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
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
获取来源，然后判断啊
比如：
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
正解,多谢大家哈,每人给点分
一把编程的菜刀 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 ifasdfbn 2009-07-24
为什么都没人来帮帮我啊