% if request("mid")="" then mid="admin" response.Redirect("news.htm") response.end else mid=chkform(request("mid")) end if %> <% dim mid dim rs_ip dim email dim n_name dim ip dim oicq dim introduce dim bbs dim news dim count dim strsql if session("hacker")>2 then response.Redirect("goout.asp") response.end end if ip=Request.ServerVariables("REMOTE_ADDR") 'set rs_ip=conn.execute("select * from lockip where get_ip='"&ip&"'") 'if not rs_ip.eof then 'response.write "系统已对你实行关闭!想了解原因请联系mrlxx@sina.com" 'rs_ip.close 'set rs_ip=nothing 'response.end 'end if %>
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||