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, 宋体; 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, 宋体; 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/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> </body> </html> 该文章在 2011/2/16 11:23:46 编辑过 |
关键字查询
相关文章
正在查询... |