conn.asp

限制IP访问系统 限制连续或单个ip访问 添加单个就只填起始IP就可以了 一： 在数据库中添加一个“ip”表 id－自动编号 IP_start－数字－双精度型 IP_end－数字

<%
'数据库地址
Const DB_Set="data/sjk.mdb"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DB_set)
conn.Open connstr
If Err Then
	Err.Clear
	Set conn = Nothing
	Response.Write "<br><br><br><center><font style=color:red;font-size:9pt;><b>数据库连接出错，请检查连接字串！</b></font></center>"
	Response.End
End If

ip=EnIP(Request.ServerVariables("remote_addr"))
set rs = server.createobject("adodb.recordset")
sql="select * from ip where ip_start<="&ip&" and ip_end>="&ip
rs.open sql,conn,0,1
if not rs.eof then
response.write "你的IP被封 请联系管理员。管理员QQ：管理员QQ"
response.end
end if
rs.close:set rs=nothing

Function EnIP(sIP)   
  Dim aIP   
  EnIP=Trim(CStr(sIP))   
  aIP=Split(EnIP,".")
  If UBound(aIP) <> 3 Then Exit Function 
  If Not (IsNumeric(aIP(0)) And IsNumeric(aIP(1)) And IsNumeric(aIP(2)) And IsNumeric(aIP(3))) Then Exit Function 
  EnIP = CInt(aIP(0))*256*256*256+CInt(aIP(1))*256*256+CInt(aIP(2))*256+CInt(aIP(3))-1
End Function

Function DeIP(nIP) 
  Dim nIP1,nIP2,nIP3,nIP4
  Dim nTmp
  DeIP=""
  If Not IsNumeric(nIP) Then Exit Function
  nIP=nIP+1
  nIP1=Int(nIP/256/256/256)
  nTmp=nIP1*256*256*256
  nIP2=Int((nIP-nTmp)/256/256)
  nTmp=nIP2*256*256+nTmp
  nIP3=Int((nIP-nTmp)/256)
  nIP4=nIP-nIP3*256-nTmp
  DeIP=CStr(nIP1)&"."&CStr(nIP2)&"."&CStr(nIP3)&"."&CStr(nIP4)
End Function
%>