Eu fiz apenas parte disso. Siga o exemplo que forneci para concluir você mesmo a consulta de IP!
Demonstração: http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE=PÁGINA DE CÓDIGO VBSCRIPT=936%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html>
<cabeça>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<META NAME=Autor CONTENT=goaler />
<META NAME=Palavras-chave CONTENT=Localização do número do celular,ip,google pr,cep,cartão de identificação,query,upgrade,goaler,www.goalercn.com />
<META NAME=Descrição CONTENT=Localização do número do celular,ip,google pr,código postal,cartão de identificação,consulta,upgrade,goaler,www.goalercn.com />
<title>Consultas comuns</title>
<tipo de estilo=texto/css>
<!--
corpo {fonte:14px Tahoma,Verdana,宋体}
entrada,objeto {cor: #000000;fonte:12px Tahoma,Verdana,宋体;}
formulário{margem:0}
A:link{COLOR:#000066;TEXT-DECORATION:none}
A:visitado{COLOR:#000066;TEXT-DECORATION:none}
A:hover{COLOR:#FF8D00;TEXT-DECORATION:underline}
-->
</estilo>
<LINGUAGEM DO SCRIPT=JavaScript>
<!--
String.prototype.Trim = função()
{
return this.replace(/(^/s*)|(/s*$)/g, );
}
function checkMobile(){
var sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]/d{4,8}$/.test(sMobile))){
alerta(insira o número de celular completo de 11 dígitos ou os primeiros sete dígitos do número de celular);
document.mobileForm.MobileNumber.focus();
retornar falso;
}
}
verificação de funçãoPR()
{
if (document.prForm.domainName.value.Trim() == )
{
retornar falso;
}
}
função checkZone2NumberForm()
{
if (document.Zone2NumberForm.zoneName.value.Trim() == )
{
alert(por favor insira o nome da região!);
document.Zone2NumberForm.zoneName.focus();
retornar falso;
}
}
função checkNumber2ZoneForm()
{
var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
if (!(/^0/d{2,3}$/.test(sZoneNumber)))
{
alerta (insira o código de área de 3 ou 4 dígitos);
document.Number2ZoneForm.zoneNumber.focus();
retornar falso;
}
}
função checkIdentityForm()
{
var sIdentityNumber = document.identityForm.identityNumber.value.Trim();
if (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))
{
alerta (insira o número de identificação de 15 ou 18 dígitos);
document.identityForm.identityNumber.focus();
retornar falso;
}
}
função checkIdentityUpForm()
{
var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
if (!(/^/d{15}$/.test(sIdentityNumber)))
{
alerta (insira o número de identificação de 15 dígitos);
document.identityUpForm.identityNumber.focus();
retornar falso;
}
}
//-->
</SCRIPT>
</head>
<corpo>
<%
'========== Por favor, mantenha as seguintes informações ===============
'Autor: goleiro
'Página inicial: http://www.goalercn.com
'=======================================
em caso de erro, retome a seguir
Dim url,PostStr,sType,getContent,i
sType = Trim(Request.QueryString(sType))
%>
<conjunto de campos>
<legend><strong>Consulta de localização do número de celular</strong></legend>
<div>
<%
DimMobileNumber
MobileNumber = Trim(Request.Form(MobileNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<método do formulário=nome da postagem=mobileForm action=searcher.asp?sType=mobile onsubmit=return checkMobile()>
Insira o segmento do número do celular: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>
Insira o número de celular completo de 11 dígitos ou os primeiros sete dígitos do número de celular
</form>
</div>
<%
SE(sType = celular AND MobileNumber<>)ENTÃO
Dim getArea,getType
PostStr = action=mobile&mobile=&MobileNumber
getContent=GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = RegExpText(getContent, localização do número do cartão</TD>((.|/n)*?)</TD>)
getType = RegExpText(getContent,tipo de cartão</TD>((.|/n)*?)</TD>)
Resposta.Write(<UL>)
Response.Write(<li><strong>Segmento de número de celular: </strong><font color=#008000><strong> & MobileNumber & </strong></font></li>)
Response.Write(<li><strong>Localização do número: </strong><font color=#008000><strong> & Replace(getArea,,,) & </strong></font></li>)
Response.Write(<li><strong>Tipo de cartão: </strong><font color=#008000><strong> & Replace(getType,,,) & </strong></font></li>)
Resposta.Write(</UL>)
TERMINAR SE
%>
</div>
</fieldset>
<conjunto de campos>
<legend><strong>Consulta de valor de relações públicas do Google</strong></legend>
<div>
<%
Escurecer nomeDodomínio
nomedodomínio = Substituir(Substituir(LCASE(Trim(Request.Form(nomedodomínio))),www.,),http://,)
%>
<div style=padding-left:23px;margin-bottom:8px;>
<nome do formulário=prForm método=post action=searcher.asp?sType=pr onsubmit=return checkPR()>
Por favor, insira o nome de domínio: www.<input type=text name=domainName value=<%=domainName%> /> <input type=submit value=submit/>
Não traga http://www.
</form>
</div>
<%
SE(sTipo = pr AND nomeDodomínio<>)ENTÃO
PostStr=
getContent=GetURL(http://so.5eo.com/info.php?action=ra ... &domainName,PostStr)
getContent=RegExpText(getContent, obtém <font color=#FB5E3C>((.|/n)*?)</font> pontos em 10 pontos)
'getContent=ReplaceKey(getContent, obtenha <font color=#FB5E3C>|||||</font> pontos em 10 pontos)
DimArrayPr
ArrayPr=Dividir(getContent,,)
Resposta.Write(<UL>)
Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;valor do Google PageRank de &domainName&</strong></font></a>: <font color =#FF0000><strong>&ArrayPr(0)&</strong></font></li>)
Response.Write(<li><a href=http://www.&domainName& target=new><font color= ... uot;&domainName&</font></strong></a>valor do Google PageRank: <font color=#FF0000><strong>&ArrayPr(1)&</strong></font>)
Resposta.Write(</UL>)
TERMINAR SE
%>
</div>
</fieldset>
<conjunto de campos>
<legend><strong>Região<->Consulta de código de área</strong></legend>
<div>
<div style=padding-left:23px;margin-bottom:8px;>
<%
Escurecer zonaNome
zoneName = Trim(Request.Form(zoneName))
%>
<nome do formulário=método Zone2NumberForm=post action=searcher.asp?sType=zone2number onsubmit=return checkZone2NumberForm()>
Região<strong>→</strong> Código de área: <input type=text name=zoneName value=<%=zoneName%> onfocus=select() /> <input type=submit value=Submit/>
</form>
</div>
<%
SE(sType = zone2number AND zoneName <> )ENTÃO
Dim getNumber,ArrayNumber
PostStr = area= & escape(zoneName) & &action=area2zone
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getNumber = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
Resposta.Write(<UL>)
SE(getNúmero=)ENTÃO
Response.Write(<li><strong><font color=#FF0000>Nenhum registro encontrado</font></strong></li>)
OUTRO
ArrayNumber = dividir(getNumber,,)
SE(éArray(NúmeroArray))ENTÃO
Para i=0 TO UBOUND(ArrayNumber)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayNumber(i),,,)&</font></strong></li>)
Próximo
OUTRO
Response.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)
TERMINAR SE
TERMINAR SE
Resposta.Write(</UL>)
TERMINAR SE
Dim zoneNumber
zoneNumber = Trim(Request.Form(zoneNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<nome do formulário=método Number2ZoneForm=post action=searcher.asp?sType=number2zone onsubmit=return checkNumber2ZoneForm()>
Código de área<strong>→</strong> Região: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>
</form>
</div>
<%
SE(sTipo = número2zona E númerodazona <> )ENTÃO
Dim getZone,ArrayZone
PostStr = action=zone2area&zone=&zoneNumber
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getZone = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
Resposta.Write(<UL>)
SE(getZona=)ENTÃO
Response.Write(<li><strong><font color=#FF0000>Nenhum registro encontrado</font></strong></li>)
OUTRO
ArrayZone = divisão(getZone,,)
SE(éArray(ArrayZone))ENTÃO
Para i=0 TO UBOUND(ArrayZone)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayZone(i),,,)&</font></strong></li>)
Próximo
OUTRO
Response.Write(<li><strong><font color=#008000>&Replace(getZone,,,)&</font></strong></li>)
TERMINAR SE
TERMINAR SE
Resposta.Write(</UL>)
TERMINAR SE
%>
</div>
</fieldset>
<conjunto de campos>
<legend><strong>Consulta de localização de IP</strong></legend>
<div>
<div style=padding-left:23px;margin-bottom:8px;>
<nome do formulário=método ipForm=post action=searcher.asp?sType=ip onsubmit=return checkIPForm()>
O endereço IP a ser consultado: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>
</form>
</div>
</div>
</fieldset>
<conjunto de campos>
<legend><strong>Consulta de número de identificação</strong></legend>
<div>
<%
Escurecer número de identidade
identidadeNumber = Trim(Request.Form(identityNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<form name=identityForm method=post action=searcher.asp?sType=identity onsubmit=return checkIdentityForm()>
Número de identificação de 15 ou 18 dígitos: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>
</form>
</div>
<%
SE(sType = identidade AND identidadeNúmero<>)ENTÃO
Dim ArrayIDCardInfo
PostStr = action=idcard&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)
Resposta.Write(<UL>)
SE(getConteúdo=)ENTÃO
Response.Write(<li>O número de identificação está errado ou nenhum dado relevante foi encontrado</li>)
OUTRO
ArrayIDCardInfo = split(getContent,,)
Response.Write(<li><strong>Sexo:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(0),,,)&</strong></font></li>)
Response.Write(<li><strong>Data de nascimento:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(1),,,)&</strong></font></li > )
Response.Write(<li><strong>Área emissora:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(2),,,)&</strong></font></li > )
TERMINAR SE
Resposta.Write(</UL>)
TERMINAR SE
%>
<div style=padding-left:23px;margin-bottom:8px;>
<nome do formulário=identityUpForm método=post action=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>
O número de 15 dígitos é aumentado para 18 dígitos: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>
</form>
</div>
<%
SE(sType = upIdentity AND identidadeNumber<>)ENTÃO
PostStr = ação=upto18&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent, o número após a promoção: ((.|/n)*?)</TD>)
Resposta.Write(<UL>)
SE(getConteúdo=)ENTÃO
Response.Write(<li>O número de identificação está errado ou nenhum dado relevante foi encontrado</li>)
OUTRO
Response.Write(<li><strong>O número após a promoção (18 dígitos) é:</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)
TERMINAR SE
Resposta.Write(</UL>)
TERMINAR SE
%>
</div>
</fieldset>
<div style=padding:15px;text-align:center;>
PROJETADO POR <a href=http://www.goalercn.com target= ... R</a><BR />
</div>
</body>
</html>
<%
Função ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn =
Para i = 1 para LenB(vIn)
EsteCharCode = AscB(MidB(vIn,i,1))
Se ThisCharCode <&H80 Então
strReturn = strReturn & Chr(ThisCharCode)
Outro
PróximoCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
eu = eu + 1
Terminar se
Próximo
ByteToStr = strReturn
Função final
Função GetURL(url,PostStr)
Definir recuperação = Server.CreateObject(Microsoft.XMLHTTP)
Com recuperação
.Abra POST, url, falso, ,
.setRequestHeader Tipo de conteúdo, aplicativo/x-www-form-urlencoded
.Send(PostStr)
ObterURL = .ResponseBody
Terminar com
Definir recuperação = nada
GetURL=ByteToStr(GetURL)
Função final
Função RegExpText(strng,regStr)
Dim regEx,Correspondência,Correspondências,RetStr
Definir regEx = Novo RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = Verdadeiro
regEx.Global = Verdadeiro
Definir correspondências = regEx.Execute(strng)
Para cada partida nas partidas
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Próximo
RegExpText = RetStr
definir regEx = nada
Função final
%>