<!-- #include file="common.asp" -->
<!-- #include file="admcomm.asp"-->
<!-- #include file="isadm.asp" -->
<%
Dim zsb_auth, hasAuth
hasAuth = False
zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )

For Each auth In zsb_auth
	If ( auth = "ipdenylist" ) Then
			hasAuth = True
		Exit For
	End If
Next

If hasAuth = false Then
	Response.Write("<script language=javascript>alert('对不起，你没有权限，请联系超级管理员！');history.back(-1);</script>")
End If
%>
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <title>回复留言</title>
  <link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
  <script src="common.js" type="text/javascript"></script>
  <link href="commcss.css" rel="stylesheet" type="text/css">
</head>

<body>
<div style="background-color:#fff;">
<%Call AdmPageTop()%>
<div style="background-image:url(<% =GBSkin %>/guest_top.gif); line-height: 24px; text-align:center;">被阻止IP列表</div>
<div style="background-image:url(<% =GBSkin %>/guest_bg.gif); line-height: 24px; text-align:center;">
<%
  On Error Resume Next
  Set rs = Server.CreateObject("ADODB.Recordset")
  sqlstr = "select * from DenyIP"
  rs.Open sqlstr,conn,1,3
  
  If Err.Number = 0 Then
  
  TotRsCount	 = rs.RecordCount	'总记录数
  PerPageRsCount = GBENum			'每页记录数 
  CurrPageNum 	 = Trim( Request("pn") )
  If CurrPageNum = "" Then
	CurrPageNum = 1
	rs.MoveFirst
  Else
	rs.Move Clng(CurrPageNum - 1) * PerPageRsCount
  End If
  
  If Not ( rs.BOF Or rs.EOF ) Then
%>
<div style="background-image:url(<% =GBSkin %>/guest_top.gif)">
<%Call DiPage( TotRsCount, PerPageRsCount, CurrPageNum, "DenyIPList.asp?", "条记录")%>
</div>
<div style="width:200px; margin:auto;">
<ul>
<%
    i=0
 	While i<PerPageRsCount And Not rs.EOF
%>
<li style="height:23px; padding-top:5px; text-align:left;"><%=rs("IPAddr")%>&nbsp;&nbsp;&nbsp;<a href="setdenyip.asp?IPAddr=<% =rs("IPAddr") %>&op=DelDenyIp&pn=<% =currentpage %>">[删除]</a></li>
<%
	  rs.MoveNext
	  i = i + 1
	Wend
%>
</ul>
<%
  End If
  rs.Close
  Set rs = Nothing
  
  Else
  	Response.Write("请点击<a href=zsbs30_db_denyip_update.asp>〖升级〗</a>进行系统升级！")
  End If
  'Response.Write(Err.Description)
  Err.Clear
  
  conn.Close
  Set conn = Nothing
%>
</div>
</div>
<div style="background-image:url(<% =GBSkin %>/guest_top.gif)">
<%Call DiPage( TotRsCount, PerPageRsCount, CurrPageNum, "DenyIPList.asp?", "条记录")%>
</div>
<%Call CopyRight()%>
</div>
</body>
</html>