Serv-U 批量帐号创建

批量用户的创建。为了访问FTP服务器，需要为每个学生创建登录帐户。以我校为例，每年新招学生近6000人，单个创建用户会非常费时。我们使用ASP开发了管理系统，可按班级、按专业、按年级等批量创建用户。学生名单保存在表StuList中，有班级（ClsName）、学号（StuNo)、姓名（StuName）等数据项，对应的文件夹命名格式为“班级学号”，最大磁盘配额为30MB。按班级批量创建的部分ASP代码如下：

'取得班级名称

mClsName=Request("mClsName")

'班级文件夹

mPath="D:"

ClsFolder=mPath & mClsName

'班级文件夹不存在则创建

If not fso.FolderExists(ClsFolder) then

fso.CreateFolder (ClsFolder)

End if

'最大配额30MB

mQEnable=True

mQMax=1048576*30

'访问权限

mAccess="|RWAMLCDP"

'连接数据库

Db=Server.Mappath("dataServ_U.mdb")

Conn="Driver={Microsoft Access Driver (*.mdb)};dbq=" & Db

Set fso=CreateObject("Scripting.FileSystemObject")

Set Rs=Server.CreateObject("ADODB.Recordset")

'读班级中学生记录，分别创建

Sql=Select * from StuList where ClsName like %" & mClsName & ”%“

Rs.Open sql,conn,3,1

Do While Not Rs.Eof

mUserName=Rs(”StuNo")

mUserFolder=ClsFolder & mUserName

'创建学生的文件夹。

if not fso.FolderExists(mUserFolder) then

fso.CreateFolder (mUserFolder)

'往数据库添加用户信息

sql="Insert into User_accounts“

sql=sql & "(User,Access,Password,HomeDir, QuotaEnable,QuotaMax) "

sql=sql & "VALUES('"&mUserName&"','" & mAccess&"','"

sql=sql & mUserName &"','" & mHomeDir&"',"

sql=sql & mQEnable&","&mQMax) "

Conn.Execute(sql)

else

Response.Write mUserName & "用户已存在！"

end If

Rs.Next

Loop