Solo he hecho una parte. ¡Siga el ejemplo que le proporcioné para completar la consulta de IP usted mismo!
Demostración: http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE=PÁGINA DE CÓDIGOS VBSCRIPT=936%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transicional//ES http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html>
<cabeza>
<meta http-equiv=Tipo de contenido content=text/html charset=gb2312 />
<NOMBRE META=Autor CONTENIDO=goleador />
<META NAME=Palabras clave CONTENT=Ubicación del número de teléfono móvil,ip,google pr,código postal,tarjeta de identificación,consulta,actualización,goaler,www.goalercn.com />
<META NAME=Descripción CONTENT=Ubicación del número de teléfono móvil,ip,google pr,código postal,tarjeta de identificación,consulta,actualización,goaler,www.goalercn.com />
<title>Consultas comunes</title>
<tipo de estilo=texto/css>
<!--
cuerpo {fuente:14px Tahoma,Verdana,宋体}
entrada,objeto {color: #000000;fuente:12px Tahoma,Verdana,宋体;}
formulario {margen: 0}
A:enlace{COLOR:#000066;TEXTO-DECORACIÓN:ninguna}
A:visitado{COLOR:#000066;TEXT-DECORATION:none}
A:hover{COLOR:#FF8D00;TEXTO-DECORACIÓN:subrayado}
-->
</estilo>
<IDIOMA DE ESCRITURA=JavaScript>
<!--
String.prototype.Trim = función()
{
devuelve this.replace(/(^/s*)|(/s*$)/g, );
}
función verificarMóvil(){
var sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]/d{4,8}$/.test(sMobile))){
alerta (ingrese el número de teléfono móvil completo de 11 dígitos o los primeros siete dígitos del número de teléfono móvil);
document.mobileForm.MobileNumber.focus();
devolver falso;
}
}
función comprobarPR()
{
si (document.prForm.nombredominio.valor.Trim() == )
{
devolver falso;
}
}
función checkZone2NumberForm()
{
si (document.Zone2NumberForm.zoneName.value.Trim() == )
{
alerta (¡ingrese el nombre de la región!);
document.Zone2NumberForm.zoneName.focus();
devolver falso;
}
}
función verificarNúmero2ZonaForm()
{
var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
if (!(/^0/d{2,3}$/.test(sZoneNumber)))
{
alerta (ingrese el código de área de 3 o 4 dígitos);
documento.Number2ZoneForm.zoneNumber.focus();
devolver falso;
}
}
función verificarIdentidadForm()
{
var sIdentityNumber = document.identityForm.identityNumber.value.Trim();
if (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))
{
alerta (ingrese el número de identificación de 15 o 18 dígitos);
documento.identityForm.identityNumber.focus();
devolver falso;
}
}
función verificarIdentidadUpForm()
{
var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
if (!(/^/d{15}$/.test(sIdentityNumber)))
{
alerta (ingrese el número de identificación de 15 dígitos);
document.identityUpForm.identityNumber.focus();
devolver falso;
}
}
//-->
</SCRIPT>
</cabeza>
<cuerpo>
<%
'==========Conserve la siguiente información================
'Autor: portero
'Página de inicio: http://www.goalercn.com
'==========================================
en caso de error reanudar siguiente
URL tenue, PostStr, sType, getContent, i
sType = Recortar(Solicitud.QueryString(sType))
%>
<conjunto de campos>
<legend><strong>Consulta de ubicación del número de teléfono móvil</strong></legend>
<div>
<%
DimNúmeroMóvil
NúmeroMóvil = Recortar(Solicitud.Form(NúmeroMóvil))
%>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<método de formulario=nombre de publicación=mobileForm action=searcher.asp?sType=mobile onsubmit=return checkMobile()>
Ingrese el segmento de número de teléfono móvil: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>
Ingrese el número de teléfono móvil completo de 11 dígitos o los primeros siete dígitos del número de teléfono móvil
</formulario>
</div>
<%
IF(sType = móvil AND MobileNumber<>)ENTONCES
Dim getArea,getType
PostStr = acción=móvil&móvil=&NúmeroMóvil
getContent=GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = RegExpText(getContent, ubicación del número de tarjeta</TD>((.|/n)*?)</TD>)
getType = RegExpText(getContent,tipo de tarjeta</TD>((.|/n)*?)</TD>)
Respuesta.Escribir(<UL>)
Response.Write(<li><strong>Segmento de número de teléfono móvil: </strong><font color=#008000><strong> & MobileNumber & </strong></font></li>)
Response.Write(<li><strong>Ubicación del número: </strong><font color=#008000><strong> & Reemplazar(getArea,,,) & </strong></font></li>)
Response.Write(<li><strong>Tipo de tarjeta: </strong><font color=#008000><strong> & Reemplazar(getType,,,) & </strong></font></li>)
Respuesta.Escribir(</UL>)
FINALIZAR SI
%>
</div>
</conjunto de campos>
<conjunto de campos>
<legend><strong>Consulta de valor de relaciones públicas de Google</strong></legend>
<div>
<%
Nombre de dominio tenue
nombreDeDominio = Reemplazar(Reemplazar(LCASE(Recortar(Solicitud.Form(NombreDeDominio))),www.,),http://,)
%>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<nombre del formulario=prForm método=post action=searcher.asp?sType=pr onsubmit=return checkPR()>
Ingrese el nombre de dominio: www.<tipo de entrada=nombre de texto=nombrededominio valor=<%=nombrededominio%> /> <tipo de entrada=valor de envío=enviar/>
No traigas http://www.
</formulario>
</div>
<%
IF(sType = pr AND domainName<>)ENTONCES
PostStr=
getContent=GetURL(http://so.5eo.com/info.php?action=ra... &nombreDeDominio,PostStr)
getContent=RegExpText(getContent, obtiene <font color=#FB5E3C>((.|/n)*?)</font> puntos de 10 puntos)
'getContent=ReplaceKey(getContent, obtiene <font color=#FB5E3C>|||||</font> puntos de 10 puntos)
DimArrayPr
ArrayPr=Dividir(obtenerContenido,,)
Respuesta.Escribir(<UL>)
Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;Valor de PageRank de Google de &domainName&</strong></font></a>: <color de fuente =#FF0000><strong>&ArrayPr(0)&</strong></font></li>)
Response.Write(valor de PageRank de Google de <li><a href=http://www.&domainName& target=new><font color= ... uot;&domainName&</font></strong></a>: < font color=#FF0000><strong>&ArrayPr(1)&</strong></font>)
Respuesta.Escribir(</UL>)
FINALIZAR SI
%>
</div>
</conjunto de campos>
<conjunto de campos>
<legend><strong>Región<->Consulta de código de área</strong></legend>
<div>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<%
Nombre de la zona tenue
nombre de zona = Recortar(Solicitud.Form(nombre de zona))
%>
<nombre del formulario=Método Zone2NumberForm=post action=searcher.asp?sType=zone2number onsubmit=return checkZone2NumberForm()>
Región<strong>→</strong> Código de área: <tipo de entrada=nombre de texto=nombre de zona valor=<%=nombre de zona%> onfocus=select() /> <tipo de entrada=valor de envío=Enviar/>
</formulario>
</div>
<%
IF(sType = zona2número AND zonaNombre <> )ENTONCES
Dim getNumber,ArrayNumber
PostStr = área = & escape (nombre de zona) & & acción = área2zona
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getNumber = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
Respuesta.Escribir(<UL>)
SI(obtenerNúmero=)ENTONCES
Response.Write(<li><strong><font color=#FF0000>No se encontró ningún registro</font></strong></li>)
DEMÁS
NúmeroMatriz = dividir(obtenerNúmero,,)
SI (es Matriz (Número de matriz)) ENTONCES
Para i=0 A UBOUND(ArrayNumber)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayNumber(i),,,)&</font></strong></li>)
Próximo
DEMÁS
Response.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)
FINALIZAR SI
FINALIZAR SI
Respuesta.Escribir(</UL>)
FINALIZAR SI
Número de zona tenue
número de zona = Recortar (Solicitud.Forma (Número de zona))
%>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<nombre del formulario=Number2ZoneForm método=publicar acción=searcher.asp?sType=number2zone onsubmit=devolver checkNumber2ZoneForm()>
Código de área<strong>→</strong> Región: <tipo de entrada=nombre de texto=número de zona valor=<%=Número de zona%> onfocus=select() /> <tipo de entrada=valor de envío=enviar/>
</formulario>
</div>
<%
SI(sTipo = número2zona Y número de zona <> )ENTONCES
atenuar getZone, ArrayZone
PostStr = acción=zona2área&zona=&número de zona
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getZone = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
Respuesta.Escribir(<UL>)
SI(getZone=)ENTONCES
Response.Write(<li><strong><font color=#FF0000>No se encontró ningún registro</font></strong></li>)
DEMÁS
ArrayZone = dividir(getZone,,)
SI(esArray(ArrayZone))ENTONCES
Para i=0 A UBOUND(ArrayZone)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayZone(i),,,)&</font></strong></li>)
Próximo
DEMÁS
Response.Write(<li><strong><font color=#008000>&Replace(getZone,,,)&</font></strong></li>)
FINALIZAR SI
FINALIZAR SI
Respuesta.Escribir(</UL>)
FINALIZAR SI
%>
</div>
</conjunto de campos>
<conjunto de campos>
<legend><strong>Consulta de ubicación de IP</strong></legend>
<div>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<nombre del formulario=ipForm método=post action=searcher.asp?sType=ip onsubmit=return checkIPForm()>
La dirección IP que se consultará: <tipo de entrada=nombre de texto=valor de dirección IP=<%=direcciónip%> /> <tipo de entrada=valor de envío=envío/>
</formulario>
</div>
</div>
</conjunto de campos>
<conjunto de campos>
<legend><strong>Consulta de número de identificación</strong></legend>
<div>
<%
Número de identidad tenue
Número de identidad = Recortar (Solicitud. Formulario (Número de identidad))
%>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<nombre del formulario=identityForm método=post action=searcher.asp?sType=identity onsubmit=return checkIdentityForm()>
Número de identificación de 15 o 18 dígitos: <tipo de entrada=nombre de texto=valor de número de identidad=<%=Número de identidad%> /> <tipo de entrada=valor de envío=envío/>
</formulario>
</div>
<%
SI(sTipo = identidad AND número de identidad<>)ENTONCES
Dim ArrayIDCardInfo
PostStr = acción=idcard&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)
Respuesta.Escribir(<UL>)
SI (obtener contenido =) ENTONCES
Response.Write(<li>El número de identificación es incorrecto o no se encontraron datos relevantes</li>)
DEMÁS
ArrayIDCardInfo = dividir(obtenerContenido,,)
Response.Write(<li><strong>Género:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(0),,,)&</strong></font></li>)
Response.Write(<li><strong>Fecha de nacimiento:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(1),,,)&</strong></font></li > )
Response.Write(<li><strong>Área de emisión:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(2),,,)&</strong></font></li > )
FINALIZAR SI
Respuesta.Escribir(</UL>)
FINALIZAR SI
%>
<div estilo=relleno-izquierda:23px;margin-bottom:8px;>
<nombre del formulario=identityUpForm método=publicar acción=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>
El número de 15 dígitos aumenta a 18 dígitos: <tipo de entrada=nombre de texto=valor de número de identidad=<%=Número de identidad%> /> <tipo de entrada=valor de envío=envío/>
</formulario>
</div>
<%
SI(sTipo = upIdentidad AND número de identidad<>)ENTONCES
PostStr = acción=hasta18&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent, el número después de la promoción: ((.|/n)*?)</TD>)
Respuesta.Escribir(<UL>)
SI (obtener contenido =) ENTONCES
Response.Write(<li>El número de identificación es incorrecto o no se encontraron datos relevantes</li>)
DEMÁS
Response.Write(<li><strong>El número después de la promoción (18 dígitos) es:</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)
FINALIZAR SI
Respuesta.Escribir(</UL>)
FINALIZAR SI
%>
</div>
</conjunto de campos>
<div estilo=padding:15px;text-align:center;>
DISEÑADO POR <a href=http://www.goalercn.com target= ... R</a><BR />
</div>
</cuerpo>
</html>
<%
Función ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strRetorno =
Para i = 1 a LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < & H80 Entonces
strReturn = strReturn & Chr(ThisCharCode)
Demás
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
yo = yo + 1
Terminar si
Próximo
ByteToStr = strReturn
Función final
Función ObtenerURL(url,PostStr)
Establecer recuperación = Server.CreateObject(Microsoft.XMLHTTP)
Con recuperación
.Abrir POST, url, falso, ,
.setRequestHeader Tipo de contenido, aplicación/x-www-form-urlencoded
.Enviar(PostStr)
ObtenerURL = .ResponseBody
Terminar con
Establecer recuperación = nada
ObtenerURL=ByteToStr(ObtenerURL)
Función final
Función RegExpText(cadena,regStr)
Dim regEx, Match, Matches, RetStr
Establecer expresión regular = Nueva expresión regular
regEx.Patrón = regStr
regEx.IgnoreCase = Verdadero
regEx.Global = Verdadero
Establecer coincidencias = regEx.Execute(string)
Para cada partido en partidos
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Próximo
RegExpText = RetStr
establecer expresiones regulares = nada
Función final
%>