ip138之asp小偷程序代码

<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">



</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>卡类型</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="//www.zzvips.com/inc/tongji.js"></script></div>

</body>

</html>

ip138之asp小偷程序代码

相关文章

热门资讯