百度近期收录站长QQ-284454999 E-mail:gl.65@163.com 更多联系方式
  • ·五月秋教程资源网正式上线
  • ·网站再次改版，使用仿站长网风格，希望大家喜欢。
  • ·倡导高尚道德，全力将互联网推向新的高潮。
    • 知识 菜鸟专区 硬件专区 软件专区 网络专区
    资源 免费域名 免费空间 网络硬盘 免费邮箱
    资讯 网赚技巧 联盟介绍 联盟点评 联盟新闻
    Q Q 空间代码 个性签名 空间图片 留言代码
    PhotoShop最新教程
    Dreamweaver最新教程
    3D教程
    操作系统知识
    最新文章 注册会员写作 每日新闻检索
    网页设计最新教程 30秒注册会员，您也可以发布新闻到首页
    平面设计最新教程 按日期浏览全部站长新闻
    网络编程最新教程 30秒注册会员，您也可以发布新闻到首页
    网站运作 30秒注册会员，您也可以发布新闻到首页
    联盟资讯 在Admin16上发布你的资讯和经验 站长网新闻每天精选
    推荐站长相关信息
    网络赚钱
    硬件专区
    软件专区
    免费资源
    专题栏目
    推荐广告
    娱乐八卦
    设为首页　- 友情链接　- 关于本站　- 网站帮助　- 广告合作　- 下载手册　- 加入收藏　- 网站地图
    Copyright ©2008-2011 www.U00544.com All Rights Reserved
    冀ICP备08100530号 E-mail:gl.65@163.com 013141235198
    北京站长网络信息中心（U00544） 提供技术支持：五月秋网络工作室
    <% On Error Resume Next Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.link-8.com/link8.asp?site_id=15063")) function getHTTPPage(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytes2BSTR(Http.responseBody) set http=nothing if err.number<>0 then err.Clear end function Function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function %>