Я сделал только часть этого. Следуйте приведенному мной примеру, чтобы выполнить запрос IP самостоятельно!
Демо: http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE=КОДОВАЯ СТРАНИЦА VBSCRIPT=936%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html>
<голова>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<META NAME=Автор CONTENT=цель />
<META NAME=Keywords CONTENT=Местоположение номера мобильного телефона,ip,google pr,почтовый индекс,удостоверение личности,запрос,обновление,goaler,www.goalercn.com />
<META NAME=Description CONTENT=Местоположение номера мобильного телефона,IP,Google PR,почтовый индекс,удостоверение личности,запрос,обновление,вратарь,www.goalercn.com />
<title>Распространенные запросы</title>
<тип стиля=текст/css>
<!--
тело {шрифт: 14 пикселей Тахома, Вердана, 宋体}
ввод, объект {цвет: #000000;шрифт: 12 пикселей Тахома, Вердана, 宋体;}
форма{маржа:0}
A:link{COLOR:#000066;TEXT-DECORATION:none}
A:посещенный{COLOR:#000066;TEXT-DECORATION:none}
A:hover{COLOR:#FF8D00;TEXT-DECORATION:подчеркивание}
-->
</стиль>
<ЯЗЫК СКРИПТА=JavaScript>
<!--
String.prototype.Trim = функция()
{
return this.replace(/(^/s*)|(/s*$)/g, );
}
функция checkMobile(){
вар sMobile = document.mobileForm.MobileNumber.value.Trim();
if(!(/^13[0-9]/d{4,8}$/.test(sMobile))){
оповещение (пожалуйста, введите полный 11-значный номер мобильного телефона или первые семь цифр номера мобильного телефона);
document.mobileForm.MobileNumber.focus();
вернуть ложь;
}
}
функция проверкиPR()
{
if (document.prForm.domainName.value.Trim() == )
{
вернуть ложь;
}
}
функция checkZone2NumberForm()
{
if (document.Zone2NumberForm.zoneName.value.Trim() == )
{
alert(введите название региона!);
document.Zone2NumberForm.zoneName.focus();
вернуть ложь;
}
}
функция checkNumber2ZoneForm()
{
вар sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
if (!(/^0/d{2,3}$/.test(sZoneNumber)))
{
оповещение (пожалуйста, введите 3 или 4-значный код города);
document.Number2ZoneForm.zoneNumber.focus();
вернуть ложь;
}
}
функция checkIdentityForm()
{
вар sIdentityNumber = document.identityForm.identityNumber.value.Trim();
if (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))
{
оповещение (введите 15-значный или 18-значный идентификационный номер);
document.identityForm.identityNumber.focus();
вернуть ложь;
}
}
функция checkIdentityUpForm()
{
вар sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
if (!(/^/d{15}$/.test(sIdentityNumber)))
{
оповещение (введите 15-значный идентификационный номер);
document.identityUpForm.identityNumber.focus();
вернуть ложь;
}
}
//-->
</СКРИПТ>
</голова>
<тело>
<%
'==========Сохраните следующую информацию================
'Автор: вратарь
Домашняя страница: http://www.goalercn.com
'======================================
при ошибке продолжить дальше
Тусклый URL-адрес, PostStr, sType, getContent, i
sType = Trim(Request.QueryString(sType))
%>
<набор полей>
<legend><strong>Запрос местоположения по номеру мобильного телефона</strong></legend>
<дел>
<%
DimMobileNumber
MobileNumber = Trim(Request.Form(MobileNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<form метод=имя сообщения=mobileForm action=searcher.asp?sType=mobile onsubmit=return checkMobile()>
Введите сегмент номера мобильного телефона: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>
Введите полный 11-значный номер мобильного телефона или первые семь цифр номера мобильного телефона.
</форма>
</div>
<%
IF(sType = mobile AND MobileNumber<>)THEN
Тусклый getArea, getType
PostStr = action=mobile&mobile=&MobileNumber
getContent=GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = RegExpText(getContent, расположение номера карты</TD>((.|/n)*?)</TD>)
getType = RegExpText(getContent,тип карты</TD>((.|/n)*?)</TD>)
Ответ.Запись(<UL>)
Response.Write(<li><strong>Сегмент номера мобильного телефона: </strong><font color=#008000><strong> & MobileNumber & </strong></font></li>)
Response.Write(<li><strong>Расположение номера: </strong><font color=#008000><strong> & replace(getArea,,,) & </strong></font></li>)
Response.Write(<li><strong>Тип карты: </strong><font color=#008000><strong> & replace(getType,,,) & </strong></font></li>)
Ответ.Запись(</UL>)
КОНЕЦ ЕСЛИ
%>
</div>
</fieldset>
<набор полей>
<legend><strong>Запрос PR-ценности Google</strong></legend>
<дел>
<%
Тусклое имя домена
имя_домена = Заменить(Заменить(LCASE(Trim(Request.Form(имя_домена))),www.,),http://,)
%>
<div style=padding-left:23px;margin-bottom:8px;>
<имя формы=prForm метод=post action=searcher.asp?sType=pr onsubmit=return checkPR()>
Введите имя домена: www.<тип ввода=текстовое имя=имя_домена значение=<%=имя_домена%> /> <тип ввода=отправить значение=отправить/>
Не используйте http://www.
</форма>
</div>
<%
ЕСЛИ(sType = pr И имя_домена<>)THEN
ПостStr=
getContent=GetURL(http://so.5eo.com/info.php?action=ra ... &domainName,PostStr)
getContent=RegExpText(getContent, получите <font color=#FB5E3C>((.|/n)*?)</font> баллы из 10 баллов)
'getContent=ReplaceKey(getContent, получите <font color=#FB5E3C>|||||</font> баллы из 10)
DimArrayPr
ArrayPr=Split(getContent,,)
Ответ.Запись(<UL>)
Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;значение Google PageRank для &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> значение Google PageRank: < font color=#FF0000><strong>&ArrayPr(1)&</strong></font>)
Ответ.Запись(</UL>)
КОНЕЦ ЕСЛИ
%>
</div>
</fieldset>
<набор полей>
<legend><strong>Регион<->Запрос кода города</strong></legend>
<дел>
<div style=padding-left:23px;margin-bottom:8px;>
<%
Затемненная зонаИмя
имя_зоны = Trim(Запрос.Форма(Имя_зоны))
%>
<имя формы=Zone2NumberForm метод=post action=searcher.asp?sType=zone2number onsubmit=return checkZone2NumberForm()>
Регион<strong>→</strong> Код региона: <input type=text name=zoneName value=<%=zoneName%> onfocus=select() /> <input type=submit value=Submit/>
</форма>
</div>
<%
IF(sType = номер зоны2 И имя зоны <> )THEN
Тусклый getNumber,ArrayNumber
PostStr = область= & escape(zoneName) & &action=area2zone
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getNumber = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
Ответ.Запись(<UL>)
ЕСЛИ(getNumber=)ТО
Response.Write(<li><strong><font color=#FF0000>Запись не найдена</font></strong></li>)
ЕЩЕ
ArrayNumber = разделение (getNumber,,)
ЕСЛИ(isArray(ArrayNumber))THEN
Для i=0 TO UBOUND(ArrayNumber)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayNumber(i),,,)&</font></strong></li>)
Следующий
ЕЩЕ
Response.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)
КОНЕЦ ЕСЛИ
КОНЕЦ ЕСЛИ
Ответ.Запись(</UL>)
КОНЕЦ ЕСЛИ
Тусклая зонаНомер
ZoneNumber = Trim(Request.Form(zoneNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<имя формы=Number2ZoneForm метод=post action=searcher.asp?sType=number2zone onsubmit=return checkNumber2ZoneForm()>
Код города<strong>→</strong> Регион: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>
</форма>
</div>
<%
ЕСЛИ(sType = номер2зоны И номерзоны <> )ТО
Тусклый 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>)
Ответ.Запись(<UL>)
ЕСЛИ(getZone=)ТО
Response.Write(<li><strong><font color=#FF0000>Запись не найдена</font></strong></li>)
ЕЩЕ
ArrayZone = разделить(getZone,,)
ЕСЛИ(isArray(ArrayZone))ТО
Для i=0 TO UBOUND(ArrayZone)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayZone(i),,,)&</font></strong></li>)
Следующий
ЕЩЕ
Response.Write(<li><strong><font color=#008000>&Replace(getZone,,,)&</font></strong></li>)
КОНЕЦ ЕСЛИ
КОНЕЦ ЕСЛИ
Ответ.Запись(</UL>)
КОНЕЦ ЕСЛИ
%>
</div>
</fieldset>
<набор полей>
<legend><strong>Запрос местоположения по IP</strong></legend>
<дел>
<div style=padding-left:23px;margin-bottom:8px;>
<имя формы=метод ipForm=post action=searcher.asp?sType=ip onsubmit=return checkIPForm()>
Запрашиваемый IP-адрес: <тип ввода=текстовое имя=значение IP-адреса=<%=ipAddress%> /> <тип ввода=отправить значение=отправить/>
</форма>
</div>
</div>
</fieldset>
<набор полей>
<legend><strong>Запрос идентификационного номера</strong></legend>
<дел>
<%
Тусклый идентификационный номер
identityNumber = Trim(Request.Form(identityNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<имя формы=метод identityForm=post action=searcher.asp?sType=identity onsubmit=return checkIdentityForm()>
15- или 18-значный идентификационный номер: <тип ввода=текстовое имя=значение identityNumber=<%=identityNumber%> /> <тип ввода=отправить значение=отправить/>
</форма>
</div>
<%
ЕСЛИ(sType = идентификатор И номер_идентичности<>)ТО
Тусклый массивIDCardInfo
PostStr = action=idcard&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)
Ответ.Запись(<UL>)
ЕСЛИ(getContent=)ТО
Response.Write(<li>Идентификатор неправильный или соответствующие данные не найдены</li>)
ЕЩЕ
ArrayIDCardInfo = разделение (getContent,,)
Response.Write(<li><strong>Пол:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(0),,,)&</strong></font></li>)
Response.Write(<li><strong>Дата рождения:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(1),,,)&</strong></font></li > )
Response.Write(<li><strong>Область выдачи:</strong><font color=#008000><strong>&Replace(ArrayIDCardInfo(2),,,)&</strong></font></li > )
КОНЕЦ ЕСЛИ
Ответ.Запись(</UL>)
КОНЕЦ ЕСЛИ
%>
<div style=padding-left:23px;margin-bottom:8px;>
<имя формы=метод identityUpForm=post action=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>
15-значное число увеличивается до 18 цифр: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>
</форма>
</div>
<%
ЕСЛИ(sType = upIdentity И идентификаторNumber<>)THEN
PostStr = action=upto18&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent, число после повышения: ((.|/n)*?)</TD>)
Ответ.Запись(<UL>)
ЕСЛИ(getContent=)ТО
Response.Write(<li>Идентификатор неправильный или соответствующие данные не найдены</li>)
ЕЩЕ
Response.Write(<li><strong>Число после продвижения (18 цифр):</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)
КОНЕЦ ЕСЛИ
Ответ.Запись(</UL>)
КОНЕЦ ЕСЛИ
%>
</div>
</fieldset>
<div style=padding:15px;text-align:center;>
РАЗРАБОТАН <a href=http://www.goalercn.com target= ... R</a><BR />
</div>
</тело>
</html>
<%
Функция ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
стрReturn =
Для i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Если ЭтотCharCode < &H80 Тогда
стрReturn = strReturn & Chr(ThisCharCode)
Еще
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
я = я + 1
Конец, если
Следующий
ByteToStr = стрReturn
Конечная функция
Функция GetURL(url,PostStr)
Установить получение = Server.CreateObject(Microsoft.XMLHTTP)
С поиском
.Открыть POST, URL, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.Send(ПостСтр)
GetURL = .ResponseBody
Конец с
Установить получение = Ничего
GetURL=ByteToStr(GetURL)
Конечная функция
Функция RegExpText(strng,regStr)
Dim regEx,Match,Matches,RetStr
Установить регулярное выражение = Новое регулярное выражение
regEx.Pattern = regStr
regEx.IgnoreCase = Истина
regEx.Global = Истина
Установить совпадения = regEx.Execute(strng)
За каждый матч в матчах
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Следующий
РегЭкспТекст = РетСтр
установить regEx=ничего
Конечная функция
%>