📄 admin_bbsftpipaccess.asp
字号:
<!--#include file="inc/ftp.asp"-->
<%
if CheckAdmin()= false then response.end
dim OrderName
OrderName = "orderid"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin_bbsftp.asp?css=1" rel=STYLESHEET type=text/css>
<title>BBSFTP Web配置管理</title>
<script language=JavaScript>
function chkchk(obj)
{
obj.value = (obj.checked?1:0);
}
</script>
</head>
<body bgcolor="#eeeeee" text="#000000" leftmargin="0" topmargin="2" style="SCROLLBAR-FACE-COLOR: #f1f1f1; SCROLLBAR-HIGHLIGHT-COLOR: #9e9e9e; SCROLLBAR-SHADOW-COLOR: #9e9e9e; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #9e9e9e; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #ffffff" link="#000000" vlink="#000000">
<br>
<H1 align='center'>IP访问规则管理</H1>
<br>
<hr>
<%
if request("action")="add" then
call add_IPCfg
elseif request("action")="edit" then
call Edit_IPCfg
elseif request("action")="update" then
call addip
elseif request("action")="addip" then
call addip
elseif request("action")="delete" then
call delete_ipcfg()
elseif request("action")="deleteip" then
call deleteip
elseif request("action")="editip" then
call editip
else
call list_IPCfg()
end if
If Err Then
response.write Err.Description
End If
BBSFTP_Footer()
sub delete_ipcfg()
if request("id")<>"" then
LOGconn.execute "delete from FTPIPAccess where IDX=" & request("id")
end if
call list_IPCfg()
end sub
sub list_IPCfg()
set rs = server.createobject("adodb.recordset")
rs.Open "select IDX from FTPIPAccess group by IDX", LOGconn, 1, 3
response.write "<p align='center'>IP访问规则组列表</p><p align='center'>"
response.write "<table border='1' width=200 cellspacing='0' cellpadding='0'>"
response.write "<tr><td width='25%' align='center'>组号</td><td align='center'>操作</td></tr>"
if not(rs.bof and rs.eof) then
rs.movefirst
while not rs.eof
response.write "<tr><td align='center'>" & rs(0) & "</td><td align='center'>[<a href='?action=edit&id=" & rs(0) & "'>编辑</a>] [<a href='?action=delete&id="& rs(0) & "'>删除</a>]</td></tr>"
rs.movenext
wend
end if
%>
<tr><td colspan='2' align='center'><a href='?action=add'>添加组</a></td></tr></table></p>
<%
end sub
sub add_IPCfg()
dim tmpid,iorder
if request("id")="" then
tmpid=-1
else
tmpid=request("id")
end if
iorder = 0
%>
<form method="post" action="?action=addip">
<%if request("id")<>"" then
set rs = server.createobject("adodb.recordset")
rs.Open "select max(["&OrderName&"]) from FTPIPAccess", LOGconn, 1, 3
if rs.bof and rs.eof then
iorder = 2
else
rs.movefirst
iorder = rs(0) + 5
end if
rs.close
set rs=nothing
%>
<input type="hidden" name="id" value="<%=tmpid%>">
<%else%>
<p align='center'><b>添加一个新的IP规则组</b></p><br>
<p align='center'>请输入组号：<input type="text" name="id" size="5"><br>
<br>
<font color=red>同时请添加一条IP访问规则；</font>
</p>
<%end if%>
<p align='center'>
<table border='1' width='400' cellspacing='0' cellpadding='0'>
<tr><td colspan='3' align='center'>添加一条新的IP规则</td></tr>
<tr><td width=150>IP地址（范围）</td><td width=100>访问权限</td><td width=50>规则优先级</td></tr>
<tr><td><input type="text" name="ip" size="30"></td><td><input type="radio" value="1" checked name="access">允许<input type="radio" value="0" name="access">拒绝</td>
<td><input type="text" name="orderid" size="5" value="<%=iorder%>"></td></tr>
</table></p>
<p align='center'>
<input type="submit" value="提交" name="B1"></p>
<p>IP地址（范围）规则和ServU一样，如1：202.*.11?.12-35 如2： 202.112.*.*；</p>
</form>
<%
end sub
'添加ip函数；
sub addip()
dim tmpid,astr,iorder
if request("id")="" then
response.write "组号错误！"
exit sub
end if
if request("ip")="" then
response.write "IP地址（范围）错误！"
exit sub
end if
if request("orderid")="" then
response.write "优先级错误！"
exit sub
end if
tmpid=request("id")
iorder=request("orderid")
astr=request("ip")
if request("access")=1 then
astr = "A|" & astr
else
astr = "D|" & astr
end if
dim rs
set rs = server.createobject("adodb.recordset")
if request("action")="update" then ' update
rs.Open "select * from FTPIPAccess where IDX=" & tmpid & " and AccessString='" & request("oldip") & "'", LOGconn, 1, 3
if not(rs.bof and rs.eof) then
rs.movefirst
rs("AccessString")=astr
rs(OrderName)=iorder
rs.update
end if
else ' add
rs.Open "select * from FTPIPAccess", LOGconn, 1, 3
rs.addnew
rs("IDX")=tmpid
rs("AccessString")=astr
rs(OrderName)=iorder
rs.update
end if
rs.close
set rs=nothing
call edit_IPCfg
end sub
'编辑组函数
sub edit_IPCfg()
dim tmpid
tmpid=request("id")
dim rs
set rs = server.createobject("adodb.recordset")
rs.Open "select * from FTPIPAccess where IDX=" & tmpid & " order by [" &OrderName&"]", LOGconn, 1, 3
if rs.bof and rs.eof then
rs.close
set rs=nothing
call list_IPCfg
exit sub
end if
response.write "<p align='center'>编辑IP访问规则组【组号："&tmpid&"】</p><p align='center'>"
response.write "<table border='1' width=400 cellspacing='0' cellpadding='0'>"
response.write "<tr><td width='55%' align='center'>访问规则</td><td width='15%' align='center'>优先级</td><td width='30%' align='center'>操作</td></tr>"
if not(rs.bof and rs.eof) then
rs.movefirst
while not rs.eof
response.write "<tr><td align='center'>" & rs("AccessString") & "</td><td align='center'>"&rs(OrderName)&"</td><td align='center'>[<a href='?action=editip&id=" & rs("IDX") & "&orderid="& rs(OrderName) &"&ip="&rs("AccessString")&"'>编辑</a>][<a href='?action=deleteip&id="& rs("IDX") & "&ip="&rs("AccessString")&"'>删除</a>]</td></tr>"
rs.movenext
wend
end if
%>
<tr><td colspan='3' align='center'><a href='?action=add&id=<%=tmpid%>'>添加一条新的IP规则</a></td></tr></table></p>
<%
end sub
'删除ip函数
sub deleteip()
if request("id")<>"" and request("ip")<>"" then
LOGconn.execute "delete from FTPIPAccess where IDX=" & request("id") & " and AccessString='" & request("ip") & "'"
end if
call edit_IPCfg
end sub
'编辑IP函数
sub editip()
dim tmpip,tmpid,tmpastr,tmpav,ballow
if request("id")="" or request("ip")="" then
call edit_IPCfg
exit sub
end if
tmpastr=request("ip")
tmpid=request("id")
tmpav=split(tmpastr,"|")
if tmpav(0)="A" or tmpav(0)="a" then
ballow=1
else
ballow=0
end if
tmpip=tmpav(1)
%>
<p align='center'>编辑IP访问规则</p>
<form method="post" action="?action=update">
<input type="hidden" name="oldip" value="<%=tmpastr%>">
<input type="hidden" name="id" value="<%=tmpid%>">
<p align='center'>
<table border='1' width='400' cellspacing='0' cellpadding='0'>
<tr><td colspan='3' align='center'>编辑IP规则</td></tr>
<tr><td width=150>IP地址（范围）</td><td width=100>访问权限</td><td width=50>规则优先级</td></tr>
<tr><td><input type="text" name="ip" size="30" value="<%=tmpip%>"></td>
<%if ballow=1 then%>
<td><input type="radio" value="1" checked name="access">允许<input type="radio" value="0" name="access">拒绝</td>
<%else%>
<td><input type="radio" value="1" name="access">允许<input type="radio" value="0" checked name="access">拒绝</td>
<%end if%>
<td><input type="text" name="orderid" size="5" value="<%=request("orderid")%>"></td></tr>
</table></p>
<p align='center'>
<input type="submit" value="提交" name="B1"></p>
<p>IP地址（范围）规则和ServU一样，可参见ServU的帮助；如1：202.*.11?.12-35 如2： 202.112.*.*；</p>
</form>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -