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>

<頭>

<title>一般的なクエリ</title>

<スタイルタイプ=テキスト/css>

<!--

ボディ {font:14px Tahoma,Verdana,宋体}

input,object {color: #000000;font:12px Tahoma、Verdana、宋体;}

フォーム{マージン:0}

A:リンク{色:#000066;テキスト装飾:なし}

A: 訪問しました{COLOR:#000066;TEXT-DECORATION:none}

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

-->

</スタイル>

<スクリプト言語=JavaScript>

<!--

String.prototype.Trim = function()

{

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();

false を返します。

}

関数 checkPR()

{

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

{

false を返します。

}

関数 checkZone2NumberForm()

{

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

{

アラート(地域名を入力してください!);

document.Zone2NumberForm.zoneName.focus();

false を返します。

}

関数 checkNumber2ZoneForm()

{

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

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

{

アラート (3 桁または 4 桁の市外局番を入力してください);

document.Number2ZoneForm.zoneNumber.focus();

false を返します。

}

関数 checkIdentityForm()

{

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

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

{

アラート(15桁または18桁のID番号を入力してください);

document.identityForm.identityNumber.focus();

false を返します。

}

関数 checkIdentityUpForm()

{

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

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

{

アラート(15桁のID番号を入力してください);

document.identityUpForm.identityNumber.focus();

false を返します。

}

//-->

</スクリプト>

</head>

<本文>

'==========次の情報を守ってください================

作者: ゴーラー

'ホームページ: http://www.goalercn.com

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

エラー時は次から再開

Dim url、PostStr、sType、getContent、i

sType = Trim(Request.QueryString(sType))

<フィールドセット>

<凡例><strong>携帯電話番号の位置クエリ</strong></legend>

<div>

DimMobileNumber

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

Dim getArea,getType

PostStr = アクション=モバイル&モバイル=&モバイル番号

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>)

Response.Write(</UL>)

終了 IF

</div>

</フィールドセット>

<フィールドセット>

<凡例><strong>Google PR 値クエリ</strong></legend>

<div>

薄暗いドメイン名

DomainName = Replace(Replace(LCASE(Trim(Request.Form(domainName))),www.,),http://,)

<フォーム名=prFormメソッド=ポストアクション=searcher.asp?sType=pr onsubmit=return checkPR()>

ドメイン名を入力してください: 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=Split(getContent,,)

応答.書き込み(<UL>)

Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;&domainName& の Google PageRank 値</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>)

Response.Write(</UL>)

終了 IF

</div>

</フィールドセット>

<フィールドセット>

<凡例><strong>地域<->市外局番クエリ</strong></凡例>

<div>

ディムゾーン名

ゾーン名 = 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/>

</form>

</div>

IF(sType = ゾーン 2 番号 AND ゾーン名 <> )THEN

Dim getNumber,ArrayNumber

PostStr = エリア= & エスケープ(ゾーン名) & &アクション=エリア2ゾーン

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 = split(getNumber,,)

IF(isArray(配列番号))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>)

終了 IF

Response.Write(</UL>)

終了 IF

ディムゾーン番号

ゾーン番号 = トリム(リクエスト.フォーム(ゾーン番号))

<フォーム名=Number2ZoneForm メソッド=ポストアクション=searcher.asp?sType=number2zone onsubmit=return checkNumber2ZoneForm()>

市外局番<strong>→</strong> 地域: <input type=text name=zoneNumber value=<%=zoneNumber%> onfocus=select() /> <input type=submit value=submit/>

</form>

</div>

IF(sType = 番号2ゾーン AND ゾーン番号 <> )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 = split(getZone,,)

IF(isArray(ArrayZone))THEN

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>)

終了 IF

Response.Write(</UL>)

終了 IF

</div>

</フィールドセット>

<フィールドセット>

<凡例><strong>IP ロケーションのクエリ</strong></凡例>

<div>

<フォーム名=ipFormメソッド=ポストアクション=searcher.asp?sType=ip onsubmit=return checkIPForm()>

クエリする IP アドレス: <input type=text name=ipAddress value=<%=ipAddress%> /> <input type=submit value=submit/>

</form>

</div>

</フィールドセット>

<フィールドセット>

<凡例><strong>ID 番号の問い合わせ</strong></legend>

<div>

薄暗いアイデンティティ番号

アイデンティティ番号 = トリム(リクエスト.フォーム(アイデンティティ番号))

<フォーム名=identityFormメソッド=post action=searcher.asp?sType=identity onsubmit=return checkIdentityForm()>

15 桁または 18 桁の ID 番号: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>

</form>

</div>

IF(sType = アイデンティティ AND アイデンティティ番号<>)THEN

Dim ArrayIDCardInfo

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 = split(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

Response.Write(</UL>)

終了 IF

<フォーム名=identityUpFormメソッド=ポストアクション=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>

15 桁の数値は 18 桁に増加します: <input type=text name=identityNumber value=<%=identityNumber%> /> <input type=submit value=submit/>

</form>

</div>

IF(sType = upIdentity ANDidentityNumber<>)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

Response.Write(</UL>)

終了 IF

</div>

</フィールドセット>

設計者: <a href=http://www.goalercn.com target= ... R</a><BR />

</div>

</body>

</html>

関数 ByteToStr(vIn)

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

strReturn =

For i = 1 から LenB(vIn)

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

If ThisCharCode < &H80 then

strReturn = strReturn & Chr(ThisCharCode)

それ以外

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

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

i = i + 1

終了の場合

次

ByteToStr = strReturn

終了機能

関数 GetURL(url,PostStr)

取得 = Server.CreateObject(Microsoft.XMLHTTP) を設定します。

検索あり

.Open POST、url、false、、

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

.Send(PostStr)

GetURL = .ResponseBody

で終わる

取得 = なしを設定します

GetURL=ByteToStr(GetURL)

終了機能

関数 RegExpText(strng,regStr)

Dim regEx、Match、Matches、RetStr

正規表現 = 新しい正規表現を設定します

regEx.Pattern = regStr

regEx.IgnoreCase = True

regEx.Global = True

一致を設定 = regEx.Execute(strng)

試合中の各試合について

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

次

RegExpText = RetStr

regEx=何も設定しない

終了機能