使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程

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

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

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

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

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

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

行该文件，创建六个表，分别为
·ftp_users
·ftp_userIPs
·ftp_userAess
·ftp_groups
·ftp_groupIPs
·ftp_groupAess
其中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_userAess|ftp_groupAess|ftp_userIPs|ftp_groupIPs
ODBCColumns=ftpUserName|ftpPassword|sKey|dirHome|loginMsgFile|aessRule|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

Function SerUPassEnCode(strPass) 
Dim Char1,Char2,Seed,prePass,EncodePass,FinalPass 
If IsNull(strPass) Or strPass="" Then Exit Function 
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 
End Function
Function Rand(n,m)
Dim a,b,t
a = n : b = m
If b < a Then t = b : b = a : a = t
Randomize
Rand = Int(rnd(b-a+1)+a)
End Function
本文完全原创，请尊重作者劳动，网络推广网站推广转载请注明出处，谢谢。