<%
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
%>
网站公告

公告加载中...
| 获得梦想之都-俊月星空 @zhaojun917.com.cn 免费帐户 |
每次单词
天气预报
统计信息
- 站务公告:37篇
- 新闻动态:1912篇
- 精彩文章:1121篇
- 经典教程:737篇
- 超酷壁纸:88张
- 友情链接:53个
- 佳宾留言:4条
- 会员总数:717个
- 影音欣赏:93条
- 资源下载:151个
- 当前在线:4人
- 最高在线:430人
- 网站总访问量:
新进会员
2010-7-30
chejmxzd

2010-7-30
zhaojun

2010-7-28
czj913
2010-7-28
居尘
2010-7-27
hysdv
2010-7-27
lyhui135
2010-7-27
abchong
2010-7-27
xieguanfu
2010-7-26
hejian
2010-7-24
www523
最新影音
最新留言
最新链接
文章调用载入中……
教程调用载入中……
山西馆_1 |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[VIP会员图片] |
[会员图片] |
[会员图片] |
软件调用载入中……