XMLHTTP를 사용하여 IP138 데이터베이스 정보 캡처

저자：Eve Cole 업데이트 시간：2025-03-22 10:32:01

저는 그 중 일부만 수행했습니다. 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>

<머리>

<스타일 유형=텍스트/css>

<!--

본문 {글꼴:14px Tahoma,Verdana,宋体}

입력,객체 {색상: #000000;글꼴:12px Tahoma,Verdana,宋体;}

양식{여백:0}

A:링크{COLOR:#000066;TEXT-DECORATION:none}

A:방문{COLOR:#000066;TEXT-DECORATION:none}

A:hover{COLOR:#FF8D00;TEXT-DECORATION:underline}

-->

</style>

<스크립트 언어=자바스크립트>

<!--

String.prototype.Trim = 함수()

{

return this.replace(/(^/s*)|(/s*$)/g, );

}

함수 checkMobile(){

var sMobile = document.mobileForm.MobileNumber.value.Trim();

if(!(/^13[0-9]/d{4,8}$/.test(sMobile))){

알림(휴대폰번호 전체 11자리 또는 휴대전화번호 앞 7자리를 입력해주세요);

document.mobileForm.MobileNumber.focus();

거짓을 반환;

}

함수 checkPR()

{

if (document.prForm.domainName.value.Trim() == )

{

거짓을 반환;

}

함수 checkZone2NumberForm()

{

if (document.Zone2NumberForm.zoneName.value.Trim() == )

{

Alert(지역명을 입력해주세요!);

document.Zone2NumberForm.zoneName.focus();

거짓을 반환;

}

함수 checkNumber2ZoneForm()

{

var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();

if (!(/^0/d{2,3}$/.test(sZoneNumber)))

{

알림(지역번호 3~4자리를 입력해주세요);

document.Number2ZoneForm.zoneNumber.focus();

거짓을 반환;

}

함수 checkIdentityForm()

{

var sIdentityNumber = document.identityForm.identityNumber.value.Trim();

if (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))

{

알림(ID번호 15자리 또는 18자리를 입력해주세요);

document.identityForm.identityNumber.focus();

거짓을 반환;

}

함수 checkIdentityUpForm()

{

var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();

if (!(/^/d{15}$/.test(sIdentityNumber)))

{

알림(ID번호 15자리를 입력해주세요);

document.identityUpForm.identityNumber.focus();

거짓을 반환;

}

//-->

</SCRIPT>

</head>

<본문>

'==========다음 정보를 유지하십시오================

'저자 : 골키퍼

'홈페이지: http://www.goalercn.com

'=========================================

오류 발생 시 다음 재개

희미한 URL,PostStr,sType,getContent,i

sType = Trim(Request.QueryString(sType))

<필드셋>

<legend><strong>휴대폰번호 위치 조회</strong></legend>

<div>

DimMobile번호

MobileNumber = Trim(Request.Form(MobileNumber))

휴대폰 번호 부분을 입력하세요: <input type=text name=MobileNumber value=<%=MobileNumber%> onfocus=select() /> <input type=submit id=subBtn value=query/>

휴대전화번호 11자리 전체 또는 휴대전화번호 앞 7자리를 입력하세요.

</form>

</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> & 바꾸기(getArea,,,) & </strong></font></li>)

Response.Write(<li><strong>카드 유형: </strong><font color=#008000><strong> & 바꾸기(getType,,,) & </strong></font></li>)

응답.쓰기(</UL>)

종료 IF

</div>

</fieldset>

<필드셋>

<legend><strong>Google PR 가치 쿼리</strong></legend>

<div>

희미한 도메인 이름

domainName = 바꾸기(바꾸기(LCASE(Trim(Request.Form(domainName))),www.,),http://,)

도메인 이름을 입력하세요: www.<input type=text name=domainName value=<%=domainName%> /> <input type=submit value=submit/>

http://www를 가져오지 마세요.

</form>

</div>

IF(sType = pr AND 도메인 이름<>)THEN

PostStr=

getContent=GetURL(http://so.5eo.com/info.php?action=ra ... &domainName,PostStr)

getContent=RegExpText(getContent, 10점 중 <font color=#FB5E3C>((.|/n)*?)</font>점 획득)

'getContent=ReplaceKey(getContent, 10점 중 <font color=#FB5E3C>|||||</font>점 획득)

DimArrayPr

ArrayPr=분할(getContent,,)

응답.쓰기(<UL>)

Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;&domainName&</strong></font></a>의 Google PageRank 값: <글꼴 색상 =#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>)

종료 IF

</div>

</fieldset>

<필드셋>

<div>

희미한 구역 이름

zoneName = Trim(Request.Form(zoneName))

지역<strong>→</strong> 지역 코드: <input type=text name=zoneName value=<%=zoneName%> onfocus=select() /> <input type=submit value=Submit/>

</form>

</div>

IF(sType = zone2number AND zoneName <> )THEN

희미한 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>)

응답.쓰기(<UL>)

IF(getNumber=)THEN

Response.Write(<li><strong><font color=#FF0000>기록을 찾을 수 없음</font></strong></li>)

또 다른

ArrayNumber = 분할(getNumber,,)

IF(isArray(ArrayNumber))THEN

i=0에서 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>)

종료 IF

응답.쓰기(</UL>)

종료 IF

희미한 구역 번호

zoneNumber = Trim(Request.Form(zoneNumber))

지역번호<strong>→</strong> 지역: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>

</form>

</div>

IF(sType = number2zone AND zoneNumber <> )THEN

희미한 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>)

IF(getZone=)THEN

Response.Write(<li><strong><font color=#FF0000>기록을 찾을 수 없음</font></strong></li>)

또 다른

ArrayZone = 분할(getZone,,)

IF(isArray(ArrayZone))THEN

i=0에서 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>)

종료 IF

응답.쓰기(</UL>)

종료 IF

</div>

</fieldset>

<필드셋>

<div>

쿼리할 IP 주소: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>

</form>

</div>

</fieldset>

<필드셋>

<div>

희미한 정체성번호

신원 번호 = Trim(Request.Form(identityNumber))

15자리 또는 18자리 ID번호: <입력 유형=텍스트 이름=identityNumber 값=<%=identityNumber%> /> <입력 유형=제출 값=submit/>

</form>

</div>

IF(sType = ID AND IDNumber<>)THEN

희미한 배열IDCardInfo

PostStr = 작업=idcard&userid=&identityNumber

getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)

getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)

응답.쓰기(<UL>)

IF(getContent=)THEN

Response.Write(<li>ID번호가 잘못되었거나 해당 데이터가 발견되지 않았습니다</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 > )

종료 IF

응답.쓰기(</UL>)

종료 IF

15자리 숫자가 18자리로 증가합니다: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>

</form>

</div>

IF(sType = upIdentity AND IdentityNumber<>)THEN

PostStr = action=upto18&userid=&identityNumber

getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)

getContent=RegExpText(getContent, 승격 후 번호: ((.|/n)*?)</TD>)

응답.쓰기(<UL>)

IF(getContent=)THEN

Response.Write(<li>ID번호가 잘못되었거나 해당 데이터가 발견되지 않았습니다</li>)

또 다른

Response.Write(<li><strong>승격 후 숫자(18자리)는 다음과 같습니다.</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </li>)

종료 IF

응답.쓰기(</UL>)

종료 IF

</div>

</fieldset>

설계자: <a href=http://www.goalercn.com target= ... R</a><BR />

</div>

</body>

</html>

함수 ByteToStr(vIn)

Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode

strReturn =

i = 1의 경우 LenB(vIn)

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

ThisCharCode < &H80이면

strReturn = strReturn & Chr(ThisCharCode)

또 다른

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

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

나는 = 나는 + 1

종료 조건

ByteToStr = strReturn

기능 종료

함수 GetURL(url,PostStr)

검색 설정 = Server.CreateObject(Microsoft.XMLHTTP)

검색 포함

.POST 열기, URL, false , ,

.setRequestHeader Content-Type,application/x-www-form-urlencoded

.보내기(PostStr)

GetURL = .ResponseBody

끝

검색 설정 = 없음

GetURL=ByteToStr(GetURL)

기능 종료

함수 RegExpText(strng,regStr)

Dim regEx,일치,일치,RetStr

regEx = 새 RegExp 설정

regEx.Pattern = regStr

regEx.IgnoreCase = 참

regEx.Global = 참

일치 항목 설정 = regEx.Execute(strng)

경기의 각 경기에 대해

RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,

RegExpText = RetStr

regEx=아무것도 설정하지 않음

기능 종료