首页 | 站内动态 | 超酷素材 | 精彩文章 | 经典教程 | 软件下载 | 影音欣赏 | 音乐欣赏 | 梦想网站推广 | 梦想新闻网 | 梦想之都俊月星空 | 自选风格

<% 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")) %>

在线投票

投票加载中...

文章调用载入中…… 教程调用载入中…… 软件调用载入中……