Serv-U是一种被广泛运用的FTP服务器端软件，支持3x/9x/ME/NT/2K等全Windows系列。可以设定多个FTP服务器、限定登录用户的权限、登录主目录及空间大小等，功能非常完备。它具有非常完备的安全特性，支持SSlFTP传输，支持在多个Serv-U和FTP客户端通过SSL加密连接保护您的数据安全等。

Serv-U支持基于ODBC数据库的用户和用户组设置，这为我们基于Serv-U编程提供了良好的接口，接下来我们介绍如何具体实现。

一、使用ODBC数据库管理Serv-U
前提条件：企业版的Serv-U（4.1以上版本）才能够支持ODBC，常见可支持的数据库包括access、mysql、oracle和mssql等。

Serv-U英文官方网站上提供了部分数据库示例，本站提供下载，请选择：
·Access示例：MSAccessODBCExample
·MsSQL示例：MSSQLServerODBCExample
·MySQL示例：MySQLODBCExample
·Oracle创建表结构的SQL文件：OracledatabaseforusewithServ-U

以下以MsSQL为例介绍使用方法
1、安装好Serv-U企业版（4.1以上版本），创建一个新的域，在第四步中，域类型选择“存储于ODBC数据库中”，如图：

2、下载MSSQLServerODBCExample示例包，获得CreateServUTables.sql（用于在mssql中创建Serv-U的对应表结构）文件，并在mssql中执

行该文件，创建六个表，分别为：
·ftp_users
·ftp_userIPs
·ftp_userAccess
·ftp_groups
·ftp_groupIPs
·ftp_groupAccess
其中ftp_users为存放用户的表，最为重要。

3、建立ODBC。示例过程如下
(1)添加系统DSN（系统数据源），选择SQL Server，填好数据源名称和服务器（本机使用local）

(2)登录验证方式根据你的mssql设置决定，这里用SQL验证的方式登录

(3)更改数据库为你创建好Serv-U表的数据库，确认，完成ODBC设置。现在你有了一个名为Serv-U的系统数据源，记得这个名字和登录使用用户和密码。

4、配置Serv-U
(1)关闭Serv-U，从MS SQL Server ODBC Example示例包中获得Add-to-Ini.txt文件，打开此文件，完整复制以下代码：
[Domain1]
ODBCTables=ftp_users|ftp_groups|ftp_userAccess|ftp_groupAccess|ftp_userIPs|ftp_groupIPs
ODBCColumns=ftpUserName|ftpPassword|sKey|dirHome|loginMsgFile|accessRule|disabled|sessionEncryption|dirHomeLock|hideHidden|alwaysAllowLogin|changePassword|quotaEnable|maxUsersLoginPerIP|speedLimitUp|speedLimitDown|maxUsersConcurrent|timeOutIdle|timeOutSession|ratioUp|ratioDown|ratioCredit|quotaCurrent|quotaMax|expiration|privilege|ftpPasswordType|ratioType|groups|notes|indexNo

(2)打开Serv-U的安装目录，找到ServUDaemon.ini文件，将对应[Domain1]及其后面的对应设置用上面的代码替换。

(3)重新打开你的Serv-U，找到刚才你新建的域，在ODBC设置中应该已经能够看到ODBC链接设置中，除了ODBC源名称、帐号和密码部分空的外，其他的表名和列名都已经设置好了。

(4)填写好你的ODBC源名称、帐号和密码，应用设置，如果你的设置没有问题的话，域前面的图标将不再是禁止的样子，表示已经设置好了

(5)随便建立一个用户，然后对应在你的ftp_users表中查找看是否存在，如果没有问题，你已经完成了Serv-U的ODBC设置。

二、编程实现ODBC管理Serv-U用户
有了数据库，用编程实现管理Serv-U用户应该是一件非常简单而轻松的事情，唯一的难点在于密码的加密。
我们知道Serv-U三种加密算法，默认情况下是32位的md5加密算法，这和有的16位和64位加密算法有所不同，因此我们在编程中要使用32位的

MD5加密算法来实现密码的加密。以下以ASP编程为例：

用以下两个函数完成对密码的加密，32位MD5加密文件在此下载MD5.ASP

FunctionSerUPassEnCode(strPass)
DimChar1,Char2,Seed,prePass,EncodePass,FinalPass
IfIsNull(strPass)OrstrPass=""ThenExitFunction
Char1=Chr(Rand(97,122))
Char2=Chr(Rand(97,122))
Seed=Char1&Char2
prePass=Seed&strPass
EnCodePass=Ucase(md5(prePass))'32位md5
FinalPass=Seed&EnCodePass
SerUPassEnCode=FinalPass
EndFunction
FunctionRand(n,m)
Dima,b,t
a=n:b=m
Ifb<aThent=b:b=a:a=t
Randomize
Rand=Int(rnd*(b-a+1)+a)
EndFunction
本文完全原创，请尊重作者劳动，转载请注明出处，谢谢。