<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if WS_S.MemberPriv("WS_SystemSetInterviewControl")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_LockIP":action=request("action"):startip1=WS_S.IpEncode(WS_s.HX_Replace(request("startip"))):endip1=WS_S.IpEncode(WS_s.HX_Replace(request("endip")))
select case action
  case "addiplock" 
    if startip1>0 or endip1>0 then
	  if startip1>0 and endip1=0 then endip1=startip1
	  if startip1=0 and endip1>0 then startip1=endip1
	  if endip1<startip1 then  HX_GoBack "起始ＩＰ不能小于结束ＩＰ！",""
	  ip=WS_S.IpEncode(Request.ServerVariables("REMOTE_ADDR"))
	  if ip<=endip1 and ip>=startip1 then  HX_GoBack "您也在这个ＩＰ段内，所以不能添加！",""  else Orderby=" where (WS_Startip<="&startip1&" and WS_endip>="&startip1&") or (WS_Startip<="&endip1&" and WS_endip>="&endip1&")"
	else
	  HX_GoBack "添加的IP段有问题！",""
	end if
  case else 
    Orderby=" ORDER BY WS_LOID DESC"
end select   
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
select case action
case "addiplock"
  if rs.recordcount>0 then  HX_GoBack "此ＩＰ段已在 "&WS_S.IpDecode(rs("WS_Startip"))&"　～　"&WS_S.IpDecode(rs("WS_endip"))&" 内！",""
  sql="insert into HX_LockIP(WS_Startip,WS_Endip)values("&startip1&","&endip1&")"
  conn.execute(sql)
  HX_GoBack "添加成功！","SystemInterviewControl.asp"
case "delip"
     msg=WS_S.IpDecode(rs("WS_Startip"))&"　～　"&WS_S.IpDecode(rs("WS_endip"))&"ＩＰ段被解除！"
 	 id=request.querystring("id")
	 if id<>"" and isnumeric(id) then
       conn.execute("delete * from HX_LockIP where WS_LOID="&id)  
	   call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
       HX_GoBack msg,"SystemInterviewControl.asp"
	 end if  
end select
response.Write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>系统访问控制</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>系统访问控制</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='0' bgcolor=FFFBE8><tr bgcolor='#BF9B73'><td height='25' colspan='2' class='td4'>&nbsp;已经被封禁的网段：</td></tr><tr bgcolor='#FFFBE8'><td colspan='2' valign=top><table width='100%'  border='0' cellspacing='1' cellpadding='2' bgcolor='#efefef'>"
if rs.recordcount<=0 then
response.write "<tr><td bgcolor=FFFBE8 height=25 align=center>没有被封禁的网段！</td></tr>"
else
do until rs.eof
 response.Write "<tr bgcolor='#FFFBE8'><td width='83%'>&nbsp;&nbsp;&nbsp;&nbsp;"&WS_S.IpDecode(rs("WS_Startip"))&"　～　"&WS_S.IpDecode(rs("WS_endip"))&"</td><td width='17%' align='center'><input type='button' name='Submit3' value=' 删 除 ' onClick=""javascript:location.href='?action=delip&id="&rs("WS_LOID")&"';""></td></tr>"
 rs.movenext
loop
end if
WS_S.HX_RSClose rs
response.Write "</table></td></tr><tr bgcolor='#BF9B73'><td height='25' colspan='2' class='td4'>&nbsp;IP 封锁添加</td></tr><tr bgcolor='#FFFBE8'><td colspan='2' valign=top><table width='100%'  border='0' cellspacing='1' cellpadding='2' bgcolor='#efefef'><form method='POST' action='?action=addiplock'><tr bgcolor='#FFFBE8'><td width='13%'><div align='right'>起始IP：</div></td><td width='28%'><input type='text' name='startip' size='25'></td><td width='13%'><div align='right'>结束IP：</div></td><td width='29%'><input type='text' name='endip' size='25'></td><td width='17%'><input type='submit' value='确 认 添 加' name='B12'></td></tr></form></table></td></tr></table></td></tr></table>"%>