登陆加载中...
今天是
设为首页
加入收藏
联系我们
<%
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
response.write(getHTTPPage("http://w1.linkww.com/link/sc/0_1_9.php?u=zhaojun917&type=0&w=9&h=1&fc=0066FF&bgc=ffffff&bdc=0066FF&al=center&tw=954&th=22"))
%>
网站公告
公告加载中...
首页公告
每次单词
天气预报
统计信息
| 站务公告：20篇 | 新闻动态：956篇 | |
| 精彩文章：257篇 | 经典教程：296篇 | |
| 超酷壁纸：31张 | 友情链接：30个 | |
| 佳宾留言：2条 | 会员总数：129个 | |
| 影音欣赏：80条 | 资源下载：100个 | |
| 当前在线：2人 | 最高在线：21人 | |
| 网站总访问量： | ||
新进会员
cao5265 zlg2009 296584831 axsc8841 liuz mrswe001 daocq xieyuhui 狼哥 jianll最新影音
最新留言
最新链接
[
[
文章调用载入中……
教程调用载入中……
更多>>超酷素材
 [会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[会员图片] |
[VIP会员图片] |
[会员图片] |
 全选试试 |
 纯黄金12生肖祈福金币 |
软件调用载入中……