婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > ip138之asp小偷程序代碼

ip138之asp小偷程序代碼

熱門標簽:調度系統外呼 福建外呼增值業務線路 中國辦理電信400電話 電銷機器人教育 河北智能外呼系統軟件 電銷機器人源碼網盤下載 伊春外呼業務系統 宜賓語音外呼系統軟件 綿陽防封電銷卡價格
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=mobilemobile="  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="https://www.jb51.net/inc/tongji.js">/script>/div>
/body>
/html>

標簽:河池 優質小號 那曲 蘇州 延邊 電商邀評 新鄉 銅川

巨人網絡通訊聲明:本文標題《ip138之asp小偷程序代碼》,本文關鍵詞  ip138,之,asp,小偷,程序,代碼,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《ip138之asp小偷程序代碼》相關的同類信息!
  • 本頁收集關于ip138之asp小偷程序代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 阿尔山市| 凤翔县| 凤山市| 康定县| 尚志市| 阜阳市| 长乐市| 托里县| 抚顺县| 新安县| 淅川县| 沙湾县| 马龙县| 太仆寺旗| 巴彦淖尔市| 平原县| 大庆市| 西乡县| 萨迦县| 祁东县| 凌海市| 凤台县| 平南县| 望都县| 黄山市| 南召县| 溆浦县| 齐河县| 上蔡县| 沁阳市| 和林格尔县| 三门峡市| 松潘县| 民县| 东乌珠穆沁旗| 民权县| 武安市| 吐鲁番市| 广元市| 新宾| 大化|