lockip.asp

fdafaf af

<%
'封IP
user_ip=request.ServerVariables("remote_addr")'用户IP
call opendb()
set lock_ip=conn.execute("select ip from lockip")
array_user_ip=split(user_ip,".")
do while not lock_ip.eof
	array_lock_ip=split(lock_ip("ip"),".")
	if ubound(array_lock_ip)=2 and array_user_ip(0)=array_lock_ip(0) and array_user_ip(1)=array_lock_ip(1) and array_user_ip(2)=array_lock_ip(2) or ubound(array_lock_ip)=3 and user_ip=lock_ip("ip") then
	call error("你的IP补拒绝！")
	call error("<a href='http://jjxy.zj.com'>前往-->Eric工作室</a>")
	call Iserror()
	response.end
	end if
lock_ip.movenext
loop
lock_ip.close
set lock_ip=nothing
call closedb()
%>