登陆加载中...
今天是
设为首页
加入收藏
联系我们
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
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
%>
网站公告
公告加载中...
首页公告
每次单词
天气预报
统计信息
- 站务公告：37篇
- 新闻动态：1912篇
- 精彩文章：1121篇
- 经典教程：737篇
- 超酷壁纸：88张
- 友情链接：53个
- 佳宾留言：4条
- 会员总数：717个
- 影音欣赏：93条
- 资源下载：151个
- 当前在线：4人
- 最高在线：430人
- 网站总访问量：
新进会员
2010-7-30
chejmxzd 
chejmxzd 2010-7-30 zhaojun
zhaojun 2010-7-28 czj913
czj9132010-7-28 居尘
居尘2010-7-27 hysdv
hysdv2010-7-27 lyhui135
lyhui1352010-7-27 abchong
abchong2010-7-27 xieguanfu
xieguanfu2010-7-26 hejian
hejian2010-7-24 www523
www523最新影音
最新留言
最新链接
[
[
文章调用载入中……
教程调用载入中……
更多>>超酷素材
 山西馆_1 |
 [会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[VIP会员图片] |
[会员图片] |
[会员图片] |
软件调用载入中……