繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ip138之asp小偷程序代码
- ASP
- Access 2000 数据库 80 万记录通用快速分页类
- Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
- 收藏的ASP常用的函数集
- asp分页的一个类
- ASP开发网页牢记注意事项
- ASP下操作Excel技术总结分析
- ASP数据岛操作类
- ASP经典分页类
- asp论坛在线人数统计研究
- ASP调用SQL SERVER存储程序
- asp输出bmp
- ASP连接数据库的全能代码
- ASP面向对象编程探讨及比较
- web文件管理器的后续开发
- 一小偷类!!有兴趣的可以看看
- 利用ASP实现事务处理的方法
- 大数量查询分页显示 微软的解决办法
- 如何把ASP编写成DLL
- asp实现树型结构
- 超级ASP大分页_我的类容我做主
ASP 中的 ip138之asp小偷程序代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 187 ::
收藏到网摘: n/a
<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="http://www.ruanchen.com/"></script></div>
</body>
</html>
评论 (0) All
