<!--#include file="lockipfun.asp"-->
<%
dim stop_ip,un_ip,rs_ip
un_ip=0
stop_ip= Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If stop_ip="" Then  stop_ip= Request.ServerVariables("REMOTE_ADDR")
call fiship(stop_ip)
if un_ip=0 then
    set rs_ip=conn.execute("select viw From Web_rui_v_stopip where viw<>0 and ("&fishcip(stop_ip)&" between oneip and endip)",0,1)
	if not rs_ip.eof then
	if rs_ip("viw")=1 then Response.write"对不起,您的IP已被锁定.如有疑问,请联系我们!<br>"
    rs_ip.close
	set rs_ip=nothing
	Response.end
	end if
end if
%>