📄 ftp_show.asp
字号:
<!--#include file="../inc/md5.asp"-->
<!--#include file="admin.asp"-->
<%
user=request("user")
sql="select * from [User accounts] where user='"&user&"'"
rs.open sql,connftp,1,3
if rs.eof and rs.bof then
response.write"<br><br><center>未找到此用户</center>"
response.end
end if
if request("action")="save" then
rs("Disable")=request.Form("Disable")
Password=request.Form("Password")
if Password<>rs("Password") then
rs("Password")=SerUPassEnCode(password)
end if
rs("MaxUsers")=request.Form("MaxUsers")
rs("Expiration")=request.Form("Expiration")
rs("QuotaEnable")=request.Form("QuotaEnable")
rs("QuotaMax")=request.Form("QuotaMax")
rs("QuotaCurrent")=fso.getfolder(request.Form("Homedir")).size
rs("Groups")=request.Form("Groups")
rs("QuotaEnable")=request.Form("QuotaEnable")
rs("QuotaMax")=request.Form("QuotaMax")*1048576
rs("PasswordType")=request.Form("PasswordType")
rs("lock")=request.Form("lock")
rs("encryption")=request.Form("encryption")
rs("hide")=request.Form("hide")
rs("alwayslogin")=request.Form("alwayslogin")
rs("maxup")=request.Form("maxup")*1024
rs("maxdown")=request.Form("maxdown")*1024
rs("maxuseronsameIP")=request.Form("maxuseronsameIP")
rs("idletimeout")=request.Form("idletimeout")*60
rs("sessiontimeout")=request.Form("sessiontimeout")*60
rs("notes")=request.Form("notes")
rs.update
rs.close
set rs=nothing
response.write"<script>alert('用户FTP信息修改成功！');location.href='ftp_admin.asp'</script>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<LINK href="../css/admin.css" rel=stylesheet type=text/css>
</head>
<body>
<table width="60%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form name="form1" method="post" action="?action=save">
<input name="user" type="hidden" value="<%=user%>">
<tr class="a1">
<td colspan="2" align="center"><%=rs("user")%></td>
</tr>
<tr class="a3">
<td width="30%">权限</td>
<td width="70%"><font face="Arial" color="#cccccc"><%=right(rs("Access"),8)%></font></td>
</tr>
<tr class="a4">
<td>是否禁用帐号</td>
<td><input type="radio" name="Disable" value="-1" <%if rs("Disable")=True then Response.Write(" checked")%>>
是
<input type="radio" name="Disable" value="0" <%if rs("Disable")=False then Response.Write(" checked")%>>
否 </td>
</tr>
<tr class="a3">
<td>密码</td>
<td><input name="Password" type="text" value="<%=rs("Password")%>"></td>
</tr>
<tr class="a4">
<td>是否允许修改密码</td>
<td><input type="radio" name="ChangePass" value="-1" <%if rs("ChangePass")=True then Response.Write(" checked")%>>
是
<input type="radio" name="ChangePass" value="0" <%if rs("ChangePass")=False then Response.Write(" checked")%>>
否 </td>
</tr>
<tr class="a3">
<td>主目录</td>
<td><input name="HomeDir" type="text" value="<%=rs("HomeDir")%>" readonly="yes"></td>
</tr>
<tr class="a4">
<td>最大用户数量</td>
<td><input name="MaxUsers" type="text" value="<%=rs("MaxUsers")%>">
填"-1"表示不限</td>
</tr>
<tr class="a3">
<td>截止日期</td>
<td><input name="Expiration" type="text" value="<%=rs("Expiration")%>">
格式:<%=date()%>,填:<a href="#" onClick="javascript:form1.Expiration.value='1980-1-1'">1980-1-1</a>表示不限</td>
</tr>
<tr class="a4">
<td>是否启用磁盘配额</td>
<td><input type="radio" name="QuotaEnable" value="-1" <%if rs("QuotaEnable")=True then Response.Write(" checked")%>>
是
<input type="radio" name="QuotaEnable" value="0" <%if rs("QuotaEnable")=False then Response.Write(" checked")%>>
否</td>
</tr>
<tr class="a3">
<td>最大空间</td>
<td><input name="QuotaMax" type="text" value="<%=rs("QuotaMax")/1048576%>"> MB</td>
</tr>
<tr class="a4">
<td>当前使用</td>
<td><font face="Arial" color="blue"><%
if rs("QuotaCurrent")=0 then
Response.Write("未使用")
elseif rs("QuotaCurrent")<1024 then
Response.Write (""&rs("QuotaCurrent")&" 字节")
elseif rs("QuotaCurrent")<1048576 then
Response.Write (""&round(rs("QuotaCurrent")/1024,2)&" KB")
else
Response.Write (""&round(rs("QuotaCurrent")/1048576,3)&" MB")
end if
%></font></td>
</tr>
<tr class="a3">
<td>所属组</td>
<td><select name="Groups" size="1" id="Groups">
<option value="">请选择</option>
<%
Set rsgp= Server.CreateObject("ADODB.Recordset")
sqlgp="select * from [Group accounts]"
rsgp.open sqlgp,connftp,1,1
do while not rsgp.eof
%>
<option value="<%=rsgp("User")%>" <%if rs("Groups")=rsgp("User") then Response.Write(" selected")%>><%=rsgp("User")%></option>
<%rsgp.movenext
loop
rsgp.close
set rsgp=nothing
%>
</select> </td>
</tr>
<tr class="a4">
<td>密码类型</td>
<td><select name="PasswordType" id="PasswordType">
<option>密码类型</option>
<option value="0" <%if rs("PasswordType")=0 then Response.Write(" selected")%>>规则密码</option>
<option value="1" <%if rs("PasswordType")=1 then Response.Write(" selected")%>>OTP S/KEY MD4</option>
<option value="2" <%if rs("PasswordType")=2 then Response.Write(" selected")%>>OTP S/KEY MD5</option>
</select> </td>
</tr>
<tr class="a3">
<td>是否将用户锁定于主目录</td>
<td><input type="radio" name="lock" value="-1" <%if rs("lock")=True then Response.Write(" checked")%>>
是
<input type="radio" name="lock" value="0" <%if rs("lock")=False then Response.Write(" checked")%>>
否</td>
</tr>
<tr class="a4">
<td>需要安全链接</td>
<td><input type="radio" name="encryption" value="-1" <%if rs("encryption")=True then Response.Write(" checked")%>>
是
<input type="radio" name="encryption" value="0" <%if rs("encryption")=False then Response.Write(" checked")%>>
否</td>
</tr>
<tr class="a3">
<td>隐藏隐藏文件</td>
<td><input type="radio" name="hide" value="-1" <%if rs("hide")=True then Response.Write(" checked")%>>
是
<input type="radio" name="hide" value="0" <%if rs("hide")=False then Response.Write(" checked")%>>
否</td>
</tr>
<tr class="a4">
<td>总是允许登录</td>
<td><input type="radio" name="alwayslogin" value="-1" <%if rs("alwayslogin")=True then Response.Write(" checked")%>>
是
<input type="radio" name="alwayslogin" value="0" <%if rs("alwayslogin")=False then Response.Write(" checked")%>>
否</td>
</tr>
<tr class="a3">
<td>最大上传速度</td>
<td><input name="maxup" type="text" value="<%=rs("maxup")/1024%>">
KB 填"0"表示不限</td>
</tr>
<tr class="a4">
<td>最大下载速度</td>
<td><input name="maxdown" type="text" value="<%=rs("maxdown")/1024%>">
KB 填"0"表示不限</td>
</tr>
<tr class="a3">
<td>同一IP只允许几个登录</td>
<td><input name="maxuseronsameIP" type="text" value="<%=rs("maxuseronsameIP")%>">
填"-1"表示不限</td>
</tr>
<tr class="a4">
<td>空闲超时(秒)</td>
<td><input name="idletimeout" type="text" value="<%=rs("idletimeout")/60%>">
分钟 填"0"表示不限</td>
</tr>
<tr class="a3">
<td>会话超时(秒)</td>
<td><input name="sessiontimeout" type="text" value="<%=rs("sessiontimeout")/60%>">
分钟 填"0"表示不限</td>
</tr>
<tr class="a4">
<td>备注</td>
<td><input name="notes" type="text" id="notes" value="<%=rs("notes")%>" maxlength="50">
50字符以内 </td>
</tr>
<tr align="center" class="a4">
<td colspan="2"><input type="submit" name="Submit" value=" 确 定 ">
<input type="reset" name="Submit2" value=" 恢 复 "></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -