📄 ftpuser_admin.asp
字号:
<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<!--#include file="admin.asp"-->
<!--#include file="ftp_option.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
if not IsObjInstalled("XingerServU.Control") Then
Response.Write "<script>alert('您的服务器没有安装FTP功能插件，不能使用FTP功能！');location.href='javascript:history.back()'</script>"
Response.End
end if
sql="select * from ftpuser order by id"
if request("sname")<>"" then
sql="select * from [ftpuser] where username like '%"& request("sname") &"%' order by regdate"
end if
rs.open sql,conn,1,3
'删除操作
if Request("del")<>"" then
chk_admin_login(3)
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from [ftpuser] where username='"&Request("del")&"'"
rs1.open sql1,conn,1,3
rs1.delete
rs1.close
sUser=Request("del")
call DelUser( sUser )
Response.write("<script>alert('删除成功');location.href='ftpuser_admin.asp';</script>")
end if
'禁用操作
if request("Disable")<>"" then
chk_admin_login(3)
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from [ftpuser] where username='"&request("Disable")&"'"
rs1.open sql1,conn,1,3
rs1("lock")=True
rs1.update
sUser=Request("Disable")
call Disable( sUser )
Response.redirect("ftpuser_admin.asp")
end if
'启用
if request("Enable")<>"" then
chk_admin_login(2)
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from ftpuser where username='"&request("Enable")&"'"
rs1.open sql1,conn,1,3
rs1("lock")=False
rs1.update
sUser=Request("Enable")
call Enable( sUser )
Response.redirect("ftpuser_admin.asp")
end if
'解除开通
if request("yeskt")<>"" then
chk_admin_login(3)
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from ftpuser where username='"&request("yeskt")&"'"
rs1.open sql1,conn,1,3
rs1("ifkt")="False"
rs1.update
Response.redirect("ftpuser_admin.asp")
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/admin.css" rel=stylesheet type=text/css>
<script language=javascript>
function Confirm()
{
if(confirm("确定执行此项操作吗？"))
return true;
else
return false;
}
</script>
</head>
<body>
<%
if rs.eof and rs.bof then
response.write"<br><br><center>FTP用户列为空！</center>"
response.end
else
%>
<table width=95% border=1 align="center" cellpadding=4 cellspacing=0 class="table-line">
<form method="post" action="">
<tr align="center">
<td colspan="9" class="td-title-color"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="shadow">FTP用户管理</td>
</tr>
</table> </td>
</tr>
<tr>
<td height="30" colspan="9"> 搜索：用户名
<input name="sname" type="text" size="12">
<input type="submit" value="搜索"></td>
</tr>
</form>
<form method="post" action="ftpkt.asp" name="ftpkt">
<tr align="center" class="td-title-color">
<td width="8%">用户名</td>
<td width="9%">密码(加密)</td>
<td width="8%">空间容量</td>
<td width="21%">注册日期</td>
<td width="9%">是否开通</td>
<td width="19%">开通日期</td>
<td width="11%">当前状态</td>
<td width="15%">操作</td>
</tr>
<tbody>
<% do while not rs.eof%>
<tr class="td-body-color">
<td align="center"><strong><font face="Arial, Helvetica, sans-serif" color="#FF0000"><%=rs("username")%></font></strong></td>
<td align="center"><strong><%=left(md5(rs("password")),5)%>...</strong></td>
<td align="center"><%=rs("ftpsize")%>M</td>
<td align="center"><%=rs("regdate")%></td>
<td align="center"><%
if rs("ifkt")=True then
response.write "<a href=ftpuser_admin.asp?yeskt="&rs("username")&" onClick='return Confirm();'>已开通</a>"
else
response.write "未开通"
end if
%> </td>
<td align="center"><%=rs("ktdate")%></td>
<td align="center">
<%if rs("lock")=True then
Response.Write "<a href=?Enable="&rs("username")&">启用</a>"
else
Response.Write "<a href=?Disable="&rs("username")&" onClick='return Confirm();'>禁用</a>"
end if%></td>
<td align="center"><%if rs("ifkt")=True then
Response.Write "<a href=#none onclick=window.open('ftp_cpw.asp?ftpuser="&rs("username")&"','','width=310,height=150,toolbar=no')>修改密码</a> |"
else
Response.Write "<a href=ftpuser_kt.asp?ftpuser="&rs("username")&" onClick='return Confirm();'>开通</a> |"
end if%> <a href="?del=<%=rs("username")%>" onClick="return Confirm();">删除</a></td>
</tr>
<%
rs.movenext
loop%>
</tbody>
</form>
</table>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -