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"> 
<!-- 
    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=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=>   </tr> 
</table> 
  </td> 
 </tr> 
</table> 
<div style="display:none"><script type=text/javascript language=javascript src="http://www.zzzyk.com/inc/tongji.js"></script></div> 
</body> 
</html>
上一个：在VBScript中实现-函数/方法名作为参数传入另一个函数
下一个：比较不错的asp模板引终极讲解(WEB开发之ASP模式)
更多图片编程知识: