ip138之asp小偷程序代码

时间:2021-08-29 01:22:10
  1. <html>  
  2. <head>  
  3. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
  4. <title>服务器之家 >> 手机号码查询 </title>  
  5. <meta name="generator" content="服务器之家">  
  6. <style type="text/css">  
  7. BODY  
  8. {  
  9.     margin: 0px;  
  10.     color: #000000;  
  11.     background-color: #F6F6F6;  
  12.     background-color: #F6F6F6;      
  13.     font-family: Verdana, Arial, 宋体;  
  14.     font-size: 9pt;  
  15.     text-decoration: none;  
  16.     SCROLLBAR-FACE-COLOR: #B3C5A7;  
  17.     SCROLLBAR-HIGHLIGHT-COLOR: #B3C5A7;  
  18.     SCROLLBAR-SHADOW-COLOR: #B3C5A7;  
  19.     SCROLLBAR-3DLIGHT-COLOR: #B3C5A7;  
  20.     SCROLLBAR-ARROW-COLOR: #eeeeee;  
  21.     SCROLLBAR-TRACK-COLOR: #efefef;  
  22.     SCROLLBAR-DARKSHADOW-COLOR: #B3C5A7;  
  23. }  
  24. TD  
  25. {  
  26.     color: #333333;  
  27.     font-family: Verdana, Arial, 宋体;  
  28.     font-size: 9pt;  
  29.     line-height: 150%;  
  30. }  
  31. </style>  
  32. <SCRIPT LANGUAGE="JavaScript">  
  33. <!--  
  34.     function resizeMe(){  
  35.         self.resizeTo(400,300);  
  36.     }  
  37. function checkMobile(){  
  38.     var sMobile = document.mobileform.mobile.value  
  39.     if(!(/^1[3|5][0-9]\d{4,8}$/.test(sMobile))){  
  40.         alert("不是完整的11位手机号或者正确的手机号前七位");  
  41.         document.mobileform.mobile.focus();  
  42.         return false;  
  43.     }  
  44. }  
  45.  
  46. //-->  
  47. </SCRIPT>  
  48. </head>  
  49.  
  50. <body leftmargin="1" topmargin="1" onload="javascript:resizeMe()">  
  51. <table width="100%" border="0" cellspacing="0" cellpadding="0">  
  52.  <tr>  
  53.   <td>  
  54. <%    Dim XMLObj,tmpStr,Mobile,MobileArea,MobileType  
  55.     Dim RegExp,i  
  56.  
  57.     Mobile = Request.Form("mobile")  
  58.     MobileArea = "未知"  
  59.     MobileType = "未知"  
  60.     Set XMLObj = Server.CreateObject("MSXML2.XMLHTTP")  
  61.     Set RegExp = New RegExp  
  62.     RegExp.Pattern = "class=tdc2>.*</TD>"  
  63.     RegExp.IgnoreCase = True  
  64.     RegExp.Global = True  
  65.     XMLObj.Open "Post","http://www.ip138.com:8080/search.asp", False  
  66.     XMLObj.setRequestHeader "Content-Type""application/x-www-form-urlencoded"  
  67.     XMLObj.Send "action=mobile&mobile=" & Mobile  
  68.     If XMLObj.readyState = 4 Then  
  69.         tmpStr = bytes2BSTR(XMLObj.responseBody)  
  70.         i = 0  
  71.         Set Matches = RegExp.Execute(tmpStr)  
  72.         For Each Match in Matches      ' 遍历匹配集合。  
  73.             If i = 1 Then  
  74.                 MobileArea = Replace(Match.Value,"class=tdc2>","")  
  75.             ElseIf i = 2 Then  
  76.                 MobileType = Replace(Match.Value,"class=tdc2>","")  
  77.             ElseIf i = 0 Then  
  78.                 Mobile = Replace(Match.Value,"class=tdc2>","")  
  79.             End if  
  80.             i = i + 1  
  81.           Next  
  82.     End If  
  83.     Set RegExp = Nothing  
  84.     Set XMLObj = Nothing  
  85.  
  86.     Function bytes2BSTR(vIn)  
  87.         strReturn = ""  
  88.         For i = 1 To LenB(vIn)  
  89.             ThisCharCode = AscB(MidB(vIn, i, 1))  
  90.             If ThisCharCode < &H80 Then  
  91.                 strReturn = strReturn & Chr(ThisCharCode)  
  92.             Else  
  93.                 NextCharCode = AscB(MidB(vIn, i + 1, 1))  
  94.                 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))  
  95.                 i = i + 1  
  96.             End If  
  97.         Next  
  98.         bytes2BSTR = strReturn  
  99.     End Function  
  100.  
  101.     Function URLEncoding(vstrIn)  
  102.         strReturn = ""  
  103.         For i = 1 To Len(vstrIn)  
  104.             ThisChr = Mid(vstrIn, i, 1)  
  105.             If Abs(Asc(ThisChr)) < &HFF Then  
  106.                 strReturn = strReturn & ThisChr  
  107.             Else  
  108.                 innerCode = Asc(ThisChr)  
  109.                 If innerCode < 0 Then  
  110.                     innerCode = innerCode + &H10000  
  111.                 End If  
  112.                 Hight8 = (innerCode And &HFF00) \ &HFF  
  113.                 Low8 = innerCode And &HFF  
  114.                 strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)  
  115.             End If  
  116.         Next  
  117.         URLEncoding = strReturn  
  118.     End Function  
  119. %>  
  120. <table width=349 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">  
  121.  <tr>  
  122.   <td colspan=2 align=center height=24 bgcolor=#6699cc>++* 服务器之家-手机归属地查询结果 *++</td>  
  123.  </tr>  
  124.  <tr bgcolor=#EFF1F3>  
  125.   <td width="130" align="center" noswap>您查询的手机号码段</td>  
  126.   <td width=* align="center"><%=Mobile%></td>  
  127.  </tr>  
  128.  <tr bgcolor=#EFF1F3>  
  129.   <td width="130" align="center" noswap>卡号归属地</td>  
  130.   <td width=* align="center"><%=MobileArea%></td>  
  131.  </tr>  
  132.  <tr bgcolor=#EFF1F3>  
  133.   <td width="130" align="center" noswap>卡 类 型</td>  
  134.   <td width=* align="center"><%=MobileType%></td>  
  135.  </tr>  
  136.  <tr bgcolor=#EFF1F3>  
  137.    <td colspan="2" align="center" noswap><a href="/">返回首页</a></td>  
  138.    </tr>  
  139. </table>  
  140.   </td>  
  141.  </tr>  
  142. </table>  
  143. <div style="display:none"><script type=text/javascript language=javascript src="//www.zzvips.com/inc/tongji.js"></script></div>  
  144. </body>  
  145. </html>