<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>  手机号码查询 </title>
<meta name="generator" content="">
<style type="text/css">
BODY
{
    margin: 0px;
    color: #000000;
    background-color: #F6F6F6;
    background-color: #F6F6F6;    
    font-family: Verdana, Arial, 宋体;
    font-size: 9pt;
    text-decoration: none;
    SCROLLBAR-FACE-COLOR: #B3C5A7;
    SCROLLBAR-HIGHLIGHT-COLOR: #B3C5A7;
    SCROLLBAR-SHADOW-COLOR: #B3C5A7;
    SCROLLBAR-3DLIGHT-COLOR: #B3C5A7;
    SCROLLBAR-ARROW-COLOR: #eeeeee;
    SCROLLBAR-TRACK-COLOR: #efefef;
    SCROLLBAR-DARKSHADOW-COLOR: #B3C5A7;
}
TD
{
    color: #333333;
    font-family: Verdana, Arial, 宋体;
    font-size: 9pt;
    line-height: 150%;
}
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
    function resizeMe(){
        self.resizeTo(400,300);
    }
function checkMobile(){
    var sMobile = document.mobileform.mobile.value
    if(!(/^1[3|5][0-9]\d{4,8}$/.test(sMobile))){
        alert("不是完整的11位手机号或者正确的手机号前七位");
        document.mobileform.mobile.focus();
        return false;
    }
}

//-->
</SCRIPT>
</head>

<body leftmargin="1" topmargin="1" onload="javascript:resizeMe()">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
  <td>
<%    Dim XMLObj,tmpStr,Mobile,MobileArea,MobileType
    Dim RegExp,i

    Mobile = Request.Form("mobile")
    MobileArea = "未知"
    MobileType = "未知"
    Set XMLObj = Server.CreateObject("MSXML2.XMLHTTP")
    Set RegExp = New RegExp
    RegExp.Pattern = "class=tdc2>.*</TD>"
    RegExp.IgnoreCase = True
    RegExp.Global = True
    XMLObj.Open "Post","http://www.ip138.com:8080/search.asp", False
    XMLObj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    XMLObj.Send "action=mobile&mobile=" & Mobile
    If XMLObj.readyState = 4 Then
        tmpStr = bytes2BSTR(XMLObj.responseBody)
        i = 0
        Set Matches = RegExp.Execute(tmpStr)
        For Each Match in Matches      ' 遍历匹配集合。
            If i = 1 Then
                MobileArea = Replace(Match.Value,"class=tdc2>","")
            ElseIf i = 2 Then
                MobileType = Replace(Match.Value,"class=tdc2>","")
            ElseIf i = 0 Then
                Mobile = Replace(Match.Value,"class=tdc2>","")
            End if
            i = i + 1
          Next
    End If
    Set RegExp = Nothing
    Set XMLObj = Nothing

    Function bytes2BSTR(vIn)
        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

    Function URLEncoding(vstrIn)
        strReturn = ""
        For i = 1 To Len(vstrIn)
            ThisChr = Mid(vstrIn, i, 1)
            If Abs(Asc(ThisChr)) < &HFF Then
                strReturn = strReturn & ThisChr
            Else
                innerCode = Asc(ThisChr)
                If innerCode < 0 Then
                    innerCode = innerCode + &H10000
                End If
                Hight8 = (innerCode And &HFF00) \ &HFF
                Low8 = innerCode And &HFF
                strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
            End If
        Next
        URLEncoding = strReturn
    End Function
%>
<table width=349 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">
 <tr>
  <td colspan=2 align=center height=24 bgcolor=#6699cc>++* -手机归属地查询结果 *++</td>
 </tr>
 <tr bgcolor=#EFF1F3>
  <td width="130" align="center" noswap>您查询的手机号码段</td>
  <td width=* align="center"><%=Mobile%></td>
 </tr>
 <tr bgcolor=#EFF1F3>
  <td width="130" align="center" noswap>卡号归属地</td>
  <td width=* align="center"><%=MobileArea%></td>
 </tr>
 <tr bgcolor=#EFF1F3>
  <td width="130" align="center" noswap>卡&nbsp;类&nbsp;型</td>
  <td width=* align="center"><%=MobileType%></td>
 </tr>
 <tr bgcolor=#EFF1F3>
   <td colspan="2" align="center" noswap><a href="/">返回首页</a></td>
   </tr>
</table>
  </td>
 </tr>
</table>
<div style="display:none"><script type=text/javascript language=javascript src="/UploadFiles/2021-04-02/tongji.js"></body>
</html>
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?