百度近期收录站长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 %>