DDR爱好者之家 Design By 杰米
<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>
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
暂无评论...
《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。
更新日志
2024年12月29日
2024年12月29日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果（九）》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]