📄 ftp_option.asp
字号:
<%
Const_ServerUIni=servuini 'ServUDaemon.ini的文件路径
'增加用户
sub AddNew(sUser,sPass,sDiskQuota,suserdir)
dim fs
dim HomeDir
HomeDir =suserdir&sUser
if not fso.FolderExists(HomeDir) then
fso.CreateFolder(HomeDir)
end if
set sv = Server.CreateObject("XingerServU.Control")
sv.FilePath Const_ServerUIni
sv.AddUser sUser, sPass, sDiskQuota, HomeDir
set sv = nothing
end sub
'修改密码
sub ModifyPassword(sUser,sNewPass)
dim sv
set sv = Server.CreateObject("XingerServU.Control")
sv.FilePath Const_ServerUIni
sv.ModifyPassword sUser, sNewPass
set sv = nothing
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -