ip138之asp小偷程序代码
(编辑：jimmy 日期: 2024/11/8 浏览：3 次 )
<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="/">返回首页</a></td>
</tr>
</table>
</td>
</tr>
</table>
<div style="display:none"><script type=text/javascript language=javascript src="/UploadFiles/2021-04-02/tongji.js"></body>
</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="/">返回首页</a></td>
</tr>
</table>
</td>
</tr>
</table>
<div style="display:none"><script type=text/javascript language=javascript src="/UploadFiles/2021-04-02/tongji.js"></body>
</html>
下一篇：比较不错的asp模板引终极讲解(WEB开发之ASP模式)