分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - ip138之asp小偷程序代码

ip138之asp小偷程序代码

2019-10-11 10:32asp代码网 ASP教程

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>

延伸 · 阅读

精彩推荐

ASP教程
ASP实现加法验证码
这篇文章主要介绍了ASP实现加法验证码，是在原来的验证码基础上进行创新，将验证码改为加法运算，感兴趣的小伙伴们可以参考一下...
lijiao2602019-06-20
ASP教程
asp无组件生成验证码 GIF图片格式
ASP实现无组件生成验证码-GIF格式，需要asp验证码的朋友可以参考下。...
服务器之家1952019-08-29
ASP教程
一段asp防注入的通用脚本
一段asp防注入的通用脚本...
asp脚本网4692019-09-25
ASP教程
asp中utf8不会出现乱码的写法
有时候我们在asp编写中需要声明好页面的编码否则容易出现乱码，这里是utf-8格式的...
服务器之家4232019-07-07
ASP教程
Asp编码优化技巧
ASP(Active Server Page)是Microsoft公司推出的基于PWS(Personal Web Server)&IIS(Internet Information Server)平台的、基于ISAPI(InternetServiceAPI)原理的动态网页开发技术，目前日趋...
服务器之家2802019-06-25
ASP教程
为SWFUpload增加ASP版本的上传处理程序
SWFUpload上传组件，最初由Vinterwebb.se开发，组件主体由Flash与JavaScript整合而成，主要致力解决多文件、大文件等的上传问题，组件提供了丰富的事件与接口方...
ASP之家2712019-08-29
ASP教程
用Asp隐藏文件路径，实现防盗链的代码
用Asp隐藏文件路径，实现防盗链如果我们知道一个静态文件的实际路径如：http://www.xx.com/download/51windows.pdf，如果服务器没有作特别的限制设置，我们就可...
ASP代码网1732019-10-04
ASP教程
较为全面的asp防CC攻击代码分享
较为全面的asp防CC攻击代码分享，主要是用session进行判断。...
服务器之家2682019-07-26