<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Cloud Community >> mobile phone number search </title>
<meta name= "generator" content= "Yun-Habitat Community" >
<style type= "Text/css" >
Body
{
margin:0px;
Color: #000000;
Background-color: #F6F6F6;
Background-color: #F6F6F6;
Font-family:verdana, Arial, song body;
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, song body;
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 ("Not a full 11-digit cell phone number or the correct number of the top seven");
Document.mobileform.mobile.focus ();
return false;
}
}
-->
</SCRIPT>
<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 = "Unknown"
Mobiletype = "Unknown"
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 the match in matches ' traversal matching collection.
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 >++* Cloud-dwelling community-cell phone attribution search Results *++</td>
</tr>
<tr bgcolor= #EFF1F3 >
<TD width= "130" align= "center" noswap> your phone number segment </td>
<TD width=* align= "center" ><%=Mobile%></td>
</tr>
<tr bgcolor= #EFF1F3 >
<TD width= "130" align= "Center" noswap> Card No. </td>
<TD width=* align= "center" ><%=MobileArea%></td>
</tr>
<tr bgcolor= #EFF1F3 >
<TD width= "130" align= "center" noswap> Card type </td>
<TD width=* align= "center" ><%=MobileType%></td>
</tr>
<tr bgcolor= #EFF1F3 >
<TD colspan= "2" align= "center" noswap><a href= "/" > Return home </a></td>
</tr>
</table>
</td>
</tr>
</table>
<div style= "Display:none" ><script type=text/javascript language=javascript src= "http://www.jb51.net/inc/ Tongji.js "></script></div>
</body>
