ip.asp

来自「超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来」· ASP 代码 · 共 38 行

<%
'用户来源
function address(sip)
'打开IP地址源
	address_db="database/address.mdb"
	Set address_conn = Server.CreateObject("ADODB.Connection")
	address_connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&address_db&"")
	address_conn.Open address_connstr

	set iprs=server.createobject("adodb.recordset")
	if sip="127.0.0.1" then sip="192.168.0.1"
	str1=left(sip,instr(sip,".")-1)
	sip=mid(sip,instr(sip,".")+1)
	str2=left(sip,instr(sip,".")-1)
	sip=mid(sip,instr(sip,".")+1)
	str3=left(sip,instr(sip,".")-1)
	str4=mid(sip,instr(sip,".")+1)
	if isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 then

	else
    num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
	ipsql="select Top 1 country,city from address where ip1 <="&num&" and ip2 >="&num&""
	iprs.open ipsql,address_conn,1,1
		if iprs.eof and iprs.bof then 
		country="未知地区"
		city=""
		else
		country=iprs("country")
		city=iprs("city")
		end if
	iprs.close
	set iprs=nothing
	end if
	address=country&city
     address_conn.close
     set address_conn=nothing
end function
%>