Serv-U batch account management and application (Access + Asp) Graphic Method

1. First download the Asp program. The download contains the database required by Serv-U, named Serv # U. mdb.
2. Create a system Data source: ftp, connect to the database through ODBC, and connect to Serv # U. mdb. Step

3. After ODBC is successfully created, enable the Serv-U software to create an FTP domain. in Step 4, select Store in ODBC database.

4. Open the ServUDaemon. ini file under the Serv-U installation directory and perform the following operations:
(1) Use the following code to overwrite the original ODBCSource, ODBCTables, ODBCColumns
------------------------------------------
ODBCSource = ftp |
ODBCTables = user_accounts | group_accounts | user_access | group_access | user_IP_access | group_IP_access
Authorization = user | password | skey | homedir | access | disable | relpaths | changepass | quotaenable | maxusers | ratioup | ratiodown | ratiocredit | quotacurrent | quotamax | expiration | privilege | passtype | ratiotype | groups | notes | indexno
------------------------------------------
(2) copy the "ReloadSettings = True" Statement to the end of each node, such as [GLOGAL], [DOMAINS], [Domain1], and [Domain2 ].

5. Open the FTP domain of Serv-U and Click Reload Accounts From Database,

6. Open the ASP program and modify

'Website name
WebName = "FTP site of Miss Wang of Huizhou University"
'Server IP Address
ServUIp = "172.17.21.211"
'Contact email
Webserveremail = "whuab@163.com"
'User Directory Permissions
ServUAccess = "| RWAMLCDP"
'The absolute physical path of the user directory, which must end.
User_folder = "E: \ FTP \ hzucs.cn. ftp \"
'Whether to temporarily stop User Registration (Disable: true, allow: false)
RegClosed = false
'The prompt message displayed when the user registration is temporarily stopped.
RegClosed_txt = "Tip: due to a large number of users, registration has been suspended on this site. Thank you for your support and cooperation. "
'Password storage type 0: Rule password, 2: MD5 Encryption
AsanPasstype = 0
'Restrict space size: (YES: true, No: false ),
AsanQuotaEnable = true
'Whether to restrict the space size (unit: M ). This parameter is valid only when the space limit function is enabled.
QuotaMax = 10
'Specifies the time limit: (true, false ),
Expirationtime = false
'Account processing after expiration: 0 is deleted, 1 is disabled. It is valid only when the time limit function is enabled.
AsanExpirationtype = 1
'Account validity period (unit: day) is valid only when the time limit function is enabled.
AsanExpiration = 365
'Database path
Dim conn, connstr, datapath
Datapath = "daTa/Serv # U. mdb "'relative path of the database directory
Connstr = "Provider = Microsoft. Jet. OLEDB.4.0; DaTa Source = "& Server. MapPath (datapath)
7. Configure IIS so that you can register an FTP account on the webpage.

8. Modify Index. ASP in the asp program
<Title> <% = WebName %>-FTP site of Miss Wang, computer department, Huizhou University-<% = title %> </title>

9. Modify bottom. ASP in asp program
<Div align = "center"> <a href = "http://www.hzucs.cn" target = "_ blank"> Powered by hzucs </a> </div>

10. Access the FTP user application interface through IE and enter WEB server. http: // 172.17.21.211

11. Open Serv-U now. You can see the newly applied hzucs account in Users. Its main directory is E: \ FTP \ hzucs.cn. ftp \ hzucs.

12. In this case, you can log on to the FTP server with the hzucs user through IE for testing.

13. Return Serv-U to view the permissions of the hzucs user, which is basically consistent with ServUAccess = "| RWAMLCDP" in config. asp.

14. Use IE to log on to the WEB and modify the password of hzucs. Microsoft JET Database Engine (0x80040E14) and the UPDATE statement syntax is incorrect.

15. Open mycentre. asp. the keyword "password" in the next sentence is "Access". [] should be added.

Conn.exe cute ("update [User_accounts] set Password = '" & newdbpassword & "'where [User] ='" & UserName &"'")
Change
Conn.exe cute ("update [User_accounts] set [Password] = '" & newdbpassword & "'where [User] ='" & UserName &"'")