多くの友人は、このコードを比較的簡単にしたいと思うかもしれません。 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を終了します
%>