<%
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生肖祈福金币 |
软件调用载入中……