<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="//www.jb51.net/inc/tongji.js"></script></div>
</body>
</html>
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论