繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ip138之asp小偷程序代码
- ASP
- asp生成三维饼图的函数
- ASP下的简洁的多重查询的方法与函数 真不错
- 发一个ASP的ADODB类代码
- A利用ASP小偷和Google实现在线翻译功能的代码
- ASP类型网站结合动网论坛会员的方法
- Asp下实现多表单域无组件文件上传的实例
- asp制作中常用到的函数库集合
- 易心asp分页类 v1.0
- asp中xmlhttp组件发包
- 检测是否为数字类型的asp代码
- 可以获得文件的文件名的asp函数
- 用asp实现访问远程计算机上MDB access数据库文件的方法
- 用ASP实现写IIS日志的代码
- asp在IE浏览器中下载服务端上的各类文件的实现方法
- asp汉字中文图片验证码的实现代码
- asp WAP获取手机终端信息的一段代码
- asp取得数组中的最大值的方法
- 用asp实现的截取指定格式字符串的代码
- asp jmail发邮件 详细解析
- ASP编程中连接数据库和数据库操作的常用代码
ASP 中的 ip138之asp小偷程序代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 121 ::
收藏到网摘: 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
