ip138之asp小偷程序代码

脚本之家 >> 手机号码查询

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%;
}

”
    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
%>

<% 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>.*

来源gaodai#ma#com搞*代#码网

++* 脚本之家-手机归属地查询结果 *++
您查询的手机号码段
卡号归属地
卡类型
返回首页

以上就是ip138之asp小偷程序代码的详细内容，更多请关注gaodaima搞代码网其它相关文章！

搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]‍，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：ip138之asp小偷程序代码

Hi，您需要填写昵称和邮箱！