ftp_option.asp

使用Asp+Access+FSO+Jmail+Servu开发

<%
set rsftp=server.createobject("ADODB.Recordset")
sqlftp="select * from config"
rsftp.open sqlftp,conn,1,1
	Const_ServerUIni=rsftp("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 Modify( sUser, sPass, sDiskQuota, sHomePath )
		set sv = Server.CreateObject("XingerServU.Control")
			sv.FilePath Const_ServerUIni
			sv.Modify sUser, sPass, sDiskQuota, sHomePath
	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
	'删除用户
	sub DelUser( sUser )
		set sv = Server.CreateObject("XingerServU.Control")
			sv.FilePath Const_ServerUIni
			sv.DelUser sUser
		set sv = nothing
	end sub
	'禁用帐号
	sub Disable( sUser )
		set sv = Server.CreateObject("XingerServU.Control")
			sv.FilePath Const_ServerUIni
			sv.Disable sUser
		set sv = nothing
	end sub
	'启用帐号
	sub Enable( sUser )
		set sv = Server.CreateObject("XingerServU.Control")
			sv.FilePath Const_ServerUIni
			sv.Enable sUser
		set sv = nothing
	end sub
	'检查用户是否存在
	sub IsUserExist( sUser )
		set sv = Server.CreateObject("XingerServU.Control")
			sv.FilePath Const_ServerUIni
			if sv.IsUserExist(sUser) then
				response.write "用户 " & sUser & " 已经存在"
			else
				response.write "用户 " & sUser & " 不存在"
			end if
		set sv = nothing
	end sub
	'将用户的下载线程设置为 1
	sub SetThread( sUser, nThread )
		set sv = Server.CreateObject("XingerServU.Control")
			sv.FilePath Const_ServerUIni
			sv.SetThread sUser, nThread
		set sv = nothing
	end sub
%>