城区中学FTP教师用户注册系统

组件名称：FtpAdmin 作者：Webboy 日期：2002年10月 Email：webboy888@163.com FtpAdmin组件是配合Ftp Serv-U软件，通过WEB页面可以添加FTP用户的一个小组件。 使用本组件以前，系统内必须已经安装好Ftp Serv-U软件，并且最好还没有几个用户，否则工作量将非常之大。因为我无法知道Ftp Serv-U加密用户密码的具体加密过程（有网友说是DES加密算法），所以暂时只能不加密用户密码。使用此组件前必须修改Ftp Serv-U的配置并重设已有用户的密码。 使用本组件者必须对WIN2000及FtpServ-u的配置和管理非常熟悉，否则建议不要使用。因使用本组件造成的任何问题，Webboy概不负责。 一、文件说明： FtpAdmin.dll：组件名 FtpAdmin.ini：组件的配置文件，用于保存使用此组件的用户名及密码。使用前请自行修改其中用户名及密码。这是为了防止同一台服务器上非授权程序也能使用此组件。 FtpReg文件夹：是我校使用本组件进行FTP注册的ASP示例程序，程序中使用了本组件提供的所有属性和方法。你可在此基础上自行修改程序以满足你的要求。 二、FtpAdmin组件使用方法： 1、修改Ftp Serv-U软件的配置并重设已有用户的密码。 （1）启动Serv-U Administrator，然后展开相应的服务器（若是在本地操作，则是“本地服务器”一项），选中“设置”，然后选择右边的“高级”选项卡，去掉“加密密码”复选框的勾，点右键，选择“应用”。 （2）重设已有用户的密码。 2、将FtpAdmin.dll及FtpAdmin.ini文件复制到c:\winnt\system32文件夹中。（非必须，但WEBBOY建议你这样做，这样做不需再另设权限。千万不要复制在网站目录中！！！以免被其他人下载。） 3、修改FtpAdmin.ini文件中的用户名及密码。FtpAdmin.ini的文件默认内容及格式如下： [Admin] AdminName=Admin 'Admin为管理员用户名 AdminPassword=Admin888 'Admin888为管理员密码 4、注册FtpAdmin.dll组件。 方法是：依次点“开始---程序---附件---命令提示符”，进入DOS窗口。然后使用CD命令进入C:\Winnt\System32目录（FtpAdmin.dll所在的文件夹位置），键入： regsvr32 ftpadmin.dll 注册成功会弹出一个对话框提示已经成功注册FtpAdmin.dll组件。 5、在WIN2000中进行权限配置。 FTP用户的父目录：组件在创建FTP用户时，会在指定的目录下创建一个以FTP用户名为文件夹名的文件夹。因此必须让此目录对IUser_***（***为机器名）用户开放写入和修改权限。 Serv-U的配置文件：ServUDaemon.ini（默认安装位置：“C:\Program Files\Serv-U\ServUDaemon.ini”）组件在创建FTP用户时，需要修改Serv-U的配置文件ServUDaemon.ini，所以此文件也必须对IUser_***（***为机器名）用户开放写入和修改权限。 6、在ASP程序中调用此组件创建FTP用户。 详细方法请参看附带的FtpReg完整ASP示例程序。使用前参看“FtpReg\使用说明.txt”文件中内容修改相应配置文件以适应自己的需要。 三、FtpAdmin组件的属性（只写不能读）、方法及返回值：（以下的例子为ASP程序示例，VB程序类似） <% '各参数的默认值 Dim IniFileName,AdminName,AdminPassword,ParentDir,ChangePassword,MaxUsersLoginPerIP,SpeedLimitUp,SpeedLimitDown,strTimeOut,SessionTimeOut,MaxNrUsers,DiskQuota,Access1,Webmaster AdminName = "admin" '管理员用户名。为了防止出现同一台服务器的未经授权程序（不知道管理员用户名和密码的程序）也可以注册FTP用户，FtpAdmin组件首先对管理员用户名与密码进行检测，如果错误则拒绝执行方法。 '管理员用户名和密码保存在与此组件同目录下的FtpAdmin.Ini文件中。 AdminPassword = "admin888" '管理员密码 IniFileName = "C:\Program Files\Serv-U\ServUDaemon.ini" 'INI文件的名称，必须开放写和修改权限 ParentDir="f:\教师个人\" 'FTP用户的主目录所在文件夹，必须存在，必须开放写和修改权限 ParentUrl="http://cqzx.sdedu.net/teacher" 'FTP用户的网址的父目录 ChangePassword = 1 '用户是否可以修改密码，1：可以，0：不可以 MaxUsersLoginPerIP = 0 '同一IP最多可以同时登录的用户数，0为不限制 SpeedLimitUp = 0 '最大上传速度，0为不限制 SpeedLimitDown = 0 '最大下载速度，0为不限制 strTimeOut = 600 '空闲超时，以秒为单位，0为不限制 SessionTimeOut = 0 '任务超时，以秒为单位，0为不限制 MaxNrUsers = 0 '最大用户数，0为不限制 EnableDiskQuota = 1 '是否启用磁盘配额，1为启用，0为不启用 DiskQuotaSize = 104857600 '磁盘配额大小 Access1 = "|RWAMLCDP" '目录访问权限1 Webmaster = "WEBBOY" '管理员姓名 set AddFtpUser= Server.CreateObject("FtpAdmin.AddUser") AddFtpUser.AdminName = AdminName '管理员用户名 AddFtpUser.AdminPassword = AdminPassword '管理员密码 AddFtpUser.IniFileName = IniFileName 'INI文件的名称，必须开放写和修改权限 AddFtpUser.UserName=UserName '用户名 AddFtpUser.Password=Password '加密后的用户密码 AddFtpUser.HomeDir=HomeDir 'FTP用户的主目录 AddFtpUser.ChangePassword =ChangePassword '用户是否可以修改密码 AddFtpUser.MaxUsersLoginPerIP =MaxUsersLoginPerIP '同一IP最多可以同时登录的用户数 AddFtpUser.SpeedLimitUp = SpeedLimitUp '最大上传速度 AddFtpUser.SpeedLimitDown = SpeedLimitDown '最大下载速度 AddFtpUser.TimeOut = strTimeOut '空闲超时，以秒为单位 AddFtpUser.SessionTimeOut = SessionTimeOut '任务超时，以秒为单位 AddFtpUser.MaxNrUsers = MaxNrUsers '最大用户数 AddFtpUser.EnableDiskQuota = EnableDiskQuota '是否启用磁盘配额 AddFtpUser.DiskQuotaSize = DiskQuotaSize '磁盘配额大小 AddFtpUser.Access1 = HomeDir & Access1 '目录访问权限1 AddFtpUser.Note1 = rsTeacher.Fields("TeacherName") '用户注释 lngTemp=AddFtpUser.Add() select case lngTemp case -1 '返回值：未知错误 msg="对不起，系统配置错误导致你注册失败！请与你的系统管理员联系并告诉他下面的错误信息。<br><br>错误信息：未知错误！" case 0 msg= "<p><font color='#0000ff'>" & TeacherName & "</font>，恭喜你！你已经成功注册FTP用户：<font color='#ff0000'>"& UserName & "</font></p>" msg=msg & "<p>你的FTP用户名是：<font color='#ff0000'>" & UserName & "</font>&nbsp;&nbsp;&nbsp;&nbsp;密码是：<font color='#ff0000'>" & Password & "</font></p>" msg=msg & "<p>请记住你的FTP用户名和密码！系统已经即时为你开通你注册的用户名了！</p>" msg=msg & "<p>你现在就可以去试试上传文件到你的FTP用户目录下！</p>" msg=msg & "<p>如果你还不知道如何使用FTP，那么请你仔细阅读下面的<font color=#0000ff><a href='help.asp'>《城区中学FTP使用方法》</a></font>一文。这篇文章是WEBBOY特别为还不知道如何使用FTP的老师们精心撰写的。</p>" ' msg=msg & "<br>另外，系统已经同时为你开通你的个人主页！你的个人主页地址是：<a href='" & HomeUrl & "'>" & HomeUrl & "</a><br>" case 1 '返回值：配置文件名为空 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：配置文件名为空" case 2 '返回值：找不到配置文件 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：找不到配置文件" case 3 '返回值：用户名为空 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：用户名不能为空" case 4 '返回值：用户主目录为空 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：用户主目录不能为空!" case 5 '返回值：用户名已存在 msg="对不起，你申请的用户名已经有人注册过了，请重新申请另外一个用户名。" case 6 '返回值：无法写入配置文件 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：无法写入配置文件，请检查是否开放了相应权限。" case 7 '返回值：无法创建文件夹 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：无法创建文件夹，请检查是否开放了相应权限。" case 8 '返回值：用户目录已经存在 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：用户目录已经存在。" case 9 '返回值：找不到FtpAdmin的密码配置文件 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他下面的错误信息。<br><br>错误信息：找不到FtpAdmin的密码配置文件。" case 10 '返回值：管理员用户名或管理员密码不对 msg="对不起，系统配置错误导致你注册失败！请与 " & Webmaster & " 联系并告诉他�