ip138之asp小偷程序代码_ASP教程-查字典教程网

<html>

<head>

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">

<title>查字典教程网>>手机号码查询</title>

<metaname="generator"content="查字典教程网">

<styletype="text/css">

BODY

{

margin:0px;

color:#000000;

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;

}

{

color:#333333;

font-family:Verdana,Arial,宋体;

font-size:9pt;

line-height:150%;

}

</style>

<SCRIPTLANGUAGE="JavaScript">

</SCRIPT>

</head>

<bodyleftmargin="1"topmargin="1"onload="javascript:resizeMe()">

<tablewidth="100%"border="0"cellspacing="0"cellpadding="0">

<tr>

<td>

<%DimXMLObj,tmpStr,Mobile,MobileArea,MobileType

DimRegExp,i

Mobile=Request.Form("mobile")

MobileArea="未知"

MobileType="未知"

SetXMLObj=Server.CreateObject("MSXML2.XMLHTTP")

SetRegExp=NewRegExp

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

IfXMLObj.readyState=4Then

tmpStr=bytes2BSTR(XMLObj.responseBody)

i=0

SetMatches=RegExp.Execute(tmpStr)

ForEachMatchinMatches'遍历匹配集合。

Ifi=1Then

MobileArea=Replace(Match.Value,"class=tdc2>","")

ElseIfi=2Then

MobileType=Replace(Match.Value,"class=tdc2>","")

ElseIfi=0Then

Mobile=Replace(Match.Value,"class=tdc2>","")

Endif

i=i+1

EndIf

SetRegExp=Nothing

SetXMLObj=Nothing

Functionbytes2BSTR(vIn)

strReturn=""

Fori=1ToLenB(vIn)

ThisCharCode=AscB(MidB(vIn,i,1))

IfThisCharCode<&H80Then

strReturn=strReturn&Chr(ThisCharCode)

Else

NextCharCode=AscB(MidB(vIn,i+1,1))

strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))

i=i+1

EndIf

bytes2BSTR=strReturn

EndFunction

FunctionURLEncoding(vstrIn)

strReturn=""

Fori=1ToLen(vstrIn)

ThisChr=Mid(vstrIn,i,1)

IfAbs(Asc(ThisChr))<&HFFThen

strReturn=strReturn&ThisChr

Else

innerCode=Asc(ThisChr)

IfinnerCode<0Then

innerCode=innerCode+&H10000

EndIf

Hight8=(innerCodeAnd&HFF00)&HFF

Low8=innerCodeAnd&HFF

strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8)

EndIf

URLEncoding=strReturn

EndFunction

<tablewidth=349border="1"align="center"cellpadding="4"bordercolor=#3366ccstyle="border-collapse:collapse">

<tr>

<tdcolspan=2align=centerheight=24bgcolor=#6699cc>++*查字典教程网-手机归属地查询结果*++</td>

</tr>

<trbgcolor=#EFF1F3>

<tdwidth="130"align="center"noswap>您查询的手机号码段</td>

<tdwidth=*align="center"><%=Mobile%></td>

</tr>

<trbgcolor=#EFF1F3>

<tdwidth="130"align="center"noswap>卡号归属地</td>

<tdwidth=*align="center"><%=MobileArea%></td>

</tr>

<trbgcolor=#EFF1F3>

<tdwidth="130"align="center"noswap>卡类型</td>

<tdwidth=*align="center"><%=MobileType%></td>

</tr>

<trbgcolor=#EFF1F3>

<tdcolspan="2"align="center"noswap><ahref="/">返回首页</a></td>

</tr>

</table>

</td>

</tr>

</table>

<divstyle="display:none"><scripttype=text/javascriptlanguage=javascriptsrc="http://www.jb51.net/inc/tongji.js"></script></div>

</body>

</html>