ftp_option.asp

来自「使用Asp+Access+FSO+Jmail+Servu开发」· ASP 代码 · 共 25 行

<%
	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
%>