|
3、ASP编程
A,添加帐号
首先,要求用户输入注册信息,在数据库DZ中验证用户是否存在,在FTP表中验证是否该用户已申请过帐号以及是否帐号名已经使用,学生用户还要验证是否所在班级已申请帐号。
查找对应的模板,生成到期时间、用户目录、权限等信息,进行用户添加操作,更新数据库;
FTPRS为取得的模板信息。
dim l_values,l_fields,l_i
for l_i=0 to FTPrs.fields.count-1
select case FTPrs(l_i).name
case "ID":
case "UserName":
l_fields=FTPrs(l_i).name
l_values="'" & UserName & "'"
case "RecordType":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & "USER'"
case "UserType":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & "学生'"
case "Password":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & Password & "'"
case "HomeDir":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & l_HomeDir & "'"
case "Access":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & l_HomeDir & "|RWAMLCDP'"
case "Expire":
l_fields=l_fields & "," & FTPrs(l_i).name
l_tmpstr=trim(FTPrs(l_i))
if len(l_tmpstr)=1 and l_tmpstr>0 then
l_Expire=DateDiff("s","1970-01-01", DateAdd("yyyy",l_tmpstr,Now()))
end if
l_values=l_values & ",'" & l_Expire & "'"
case "Group":
l_fields=l_fields & ",[" & FTPrs(l_i).name & "]"
l_values=l_values & ",'" & "学生" & "'"
case "Name":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & Name & "'"
case "Class":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & ClassName & "'"
case "UserID":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & Student_Id & "'"
case "Model":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & "学生" & "'"
case "Question":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & Question & "'"
case "Answer":
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & Answer & "'"
case else:
l_fields=l_fields & "," & FTPrs(l_i).name
l_values=l_values & ",'" & FTPrs(l_i) & "'"
end select
next
l_sql="Insert into ftp (" & l_fields & ") VALUES (" & l_Values & ")"
if REGUSER=0 then FTPrs.open l_sql,FTPconn
(其它代码略)
B, 更改密码
首先,按用户输入验证姓名、用户名、密码是否正确,然后修改数据库和SERV-U信息,'更新FTP帐号
Set qiqi = Server.CreateObject("QiQiSoft.edituser")
qiqi.servupath=ServUPath '必须填写 (Serv-U的安装目录)
qiqi.adminname=QiqiName '必须填写 (管理员账号在qiqiservu.ini中设置)
qiqi.adminpass=QiqiPassword '必须填写 (管理员密码在qiqiservu.ini中设置)
qiqi.UserName=UserName '必须填写 (想要修改密码的用户名)
qiqi.Password="888" '必须填写 (旧密码)
qiqi.NeWPassword=NewPassword '必须填写 (新密码)
info=qiqi.edit
set qiqi=Nothing(其它代码略)
C,更改信息
类似更改密码。
D,找回密码
首先,在数据库中验证密码提示问题和答案,然后进行修改密码类似操作。
E, 删除帐号
管理员使用。
三、辅助工具
另外,最好编制好数据库和SERV-U的配置文件ServUDaemon.ini的数据协调工具,以备不时之需。
以上,在校园网中成功调试成功,并运行良好,大大减轻了网络管理员的工作量,并为学生和教师带来了方便。 
[align=right][此贴子已经被作者于2005-3-24 7:50:55编辑过][/align]
|