純ASP(VBscript)寫的全球IP地址搜索程序
2024-05-04 11:06:16
供稿：網友
<" codepage="936"%>
<html>
<head>
<title>untitled document</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
</head>
<body>
<%
dim finishgetip,showip,allip
''////////////////////////////////////////////////////////////////////////////////////////
''程序還不是很精簡，以后再修改
''本程序所用的數據庫為-- “馮志宏”-- 所寫的--“追捕”--軟件中所帶ip數據庫和
'' “國華軟件 guohua soft”的作者 --“馮國華”—所寫的“全球ip地址分配表.chm”合二為一得到的
''感謝“馮志宏”和“馮國華”提供的數據
''數據庫中還有不少的重復ip地址，希望有心人能將其刪除，減小數據庫
''我的程序寫的還很笨拙，希望大家能多提意見，多多交流，謝謝！
''////////////////////////////////////////////////////////////////////////////////////////
''解決思路:
''取得的客戶端ip一般是202.11.25.1這種，而數據庫中的ip格式為202.011.025.001,這就需要將取得的
''客戶端ip轉換為與數據庫中ip一樣的格式
''因為目前我們所用的ip是分為4段，每段3位，中間以“.”分隔
''所以我的思路是將客戶端ip以“.”符號分割為4段,即202/11/25/1
''然后再分別核對每一段，如果是3位，則不變；如不足3位，為2位，該段前補1個0，為1，同理，則補2個0
''得到格式化后的ip后，去掉ip的最后一段，即取包括“.”的前11位，與數據庫中的startip字段的前11位相比較，查找相同的值
''因為從數據庫中可以看到，startip和endip的前三段都是一樣的，而最后一段不過是內部子網地址，可以去掉
''所以只要取startip或endip的任意一個字段的前11位與客戶端ip的前11位相比較就可以查到正確的所在地
''/////////////////////////////////////////////////////////////////////////////////////////
function checkip_trueip()
''取客戶端真實ip
getclientip = request.servervariables("http_x_forwarded_for") ''如果客戶端用了代理服務器，則用request.servervariables("remote_addr")方法只能得到空值,則應該用servervariables("http_x_forwarded_for")方法
if getclientip = "" then
getclientip = request.servervariables("remote_addr")''如果客戶端沒用代理，則request.servervariables("http_x_forwarded_for")得到是空值，應該用request.servervariables("remote_addr")方法
end if
checkip_trueip = getclientip
end function
''/////////////////////////////////////////////////////////////////////////////
function getaccessrecordset(db,sql,mark,read)''取得recordset對象
set conn=getaccessconn(db)''輸入參數為db-數據庫的相對路徑，sql-sql語句，mark,read為數據庫讀取方式，1,1為只讀,1,3為讀寫
''constr="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath(db)
'' conn.open constr
set getaccessrecordset=server.createobject("adodb.recordset")
getaccessrecordset.open sql,conn,mark,read
end function
''//////////////////////////////////////////////////////////////////////////
function getaccessconn(db)''取得connection對象
set getaccessconn=server.createobject("adodb.connection")
''constr="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("allcon/#bbsall.mdb")
constr="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath(db)
getaccessconn.open constr
end function
''/////////////////////////////////////////////////////////////////////////
dim getip
''getip=(trim(request.servervariables("remote_addr")))''從客戶端獲取ip
''getip=(trim(request.querystring("comes"))) ''自己輸入ip測試
''response.write(getip&"<br>")
''////////////////////////////////////////////////////////////////////////
function checkip_locations(checkstring) ''返回ip中分隔字符的位置函數
checkip_locations=instr(checkstring,".") ''將位置的值賦予給函數
end function
''///////////////////////////////////////////////////////////////////////
''以下函數為分割ip，取得每次分割后“.”符號右邊的ip剩余的字符串
function checkip_left(checkstring)
locations_left=checkip_locations(checkstring) ''得到在ip剩余的字符串中“.”第一次出現的位置
iplength_left=len(checkstring) ''取得ip剩余的字符串的長度
divide_locations_left=iplength_left-locations_left ''取得在ip剩余的字符串中“.”第一次出現的位置，從右往左數是多少位
ipstr_left=right(checkstring,divide_locations_left) ''取得本次分割后,“.”符號右邊的ip剩余的字符串
checkip_left=ipstr_left ''將上面得到的字符串賦給函數
end function
''///////////////////////////////////////////////////////////////////////
''以下函數為分割ip，取得每次分割后“.”符號左邊的ip字符串,即將ip分為四段，每一段的字符串
function checkip_right(checkstring)
locations_right=checkip_locations(checkstring) ''取得在ip中“.”第一次出現的位置
iplength_right=len(checkstring) ''取得ip字符串長度
divide_locations_right=iplength_right-locations_right ''取得在ip剩余的字符串中“.”第一次出現的位置，從右往左數是多少位
ipstr11=trim(replace(left(checkstring,locations_right),".","")) ''將得到的“.”左邊的字符串去掉"."符號
''如果ip分為4段后每一段不足3位則補0
if len(ipstr11)="2" then ipstr11="0"&ipstr11
if len(ipstr11)="3" then ipstr11=ipstr11
if len(ipstr11)="1" then ipstr11="00"&ipstr11
checkip_right=ipstr11 ''得到“.”符號之前的字符串，即本次分割后得到的ip分
