多くの友人は、このコードを比較的簡単にしたいと思うかもしれません。 net.net /data/ipaddress.mdb、もちろん、これが最新のものであることを保証しません。
このページのデモンストレーション：http：//www.brsky.net/sip.asp
<％
「データベースを接続します
Dim Conn、Connstr、DB
db = "data/ipaddress.mdb"
conn = server.createObject（ "adodb.connection"）を設定します
connstr = "provider = microsoft.jet.oledb.4.0; data source ="＆server.mappath（ "＆db＆" "）
conn.open connstr
％>
次の部分は、入力IPデータの送信フォームです。このデータはこのページに送信されます
<form id = "form1" name = "form1" method = "post" action = "">
<label>
クエリをするには、IPを入力してください
<入力名= "ip" type = "text" id = "ip" />
</label>
<label>
<入力タイプ= "submit" name = "submit" value = "query" />
</label>
</form>
「以下はクエリと表示コードです
<％
request.form（ "ip"）= "then"フォームがデータに送信された場合、処理および処理されます
sip = trim（request.form（ "ip"））
cip = split（sip、 "。"）
ubound（cip）<3te "提出されたIPデータが4ビット未満の場合、メイクアップ
Redim Preserve CIP（3） "配列を再定義し、元の値を保持します
i = 3からubound（cip）ステップ-1の場合
CIP（i）= 0
次
ifを終了します
i = 0〜3 "の場合、ここでは値文字として配列要素を確認します。そうでない場合は、IPルールの最大値と最小値を個別に使用できます。ここでは最小値のみを使用します。
isNumeric（cip（i））ではない場合は、cip（i）= 0
次
IP = 256*256*256*CIP（0）256*256*CIP（1）256*CIP（2）CIP（3）-1
DIM RS、SQL、国、都市、都市
rs = server.createObject（ "adodb.oldset"）を設定します
sql = "select * fromアドレスからip1 <="＆ip＆ "and ip2> ="＆ip
rs.oopen sql、conn、1,1
rs.eofの場合
City = "不明"
国= "不明"
それ以外
city = rs（ "City"）
国= rs（ "国"）
ifを終了します
rs.close
rs = Nothingを設定します
response.write「あなたが照会したいIPは "＆sip＆"、from "＆Country＆Cityです
ifを終了します
％>