使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]
Serv-U 支持基于ODBC数据库的用户和用户组设置,这为我们基于Serv-U编程提供了良好的接口,接下来我们介绍如何具体实现。
一、使用ODBC数据库管理Serv-U
前提条件:企业版的Serv-U(4.1以上版本)才能够支持ODBC,常见可支持的数据库包括access、mysql、oracle和mssql等。
Serv-U英文官方网站上提供了部分数据库示例,本站提供下载,请选择:
·Access示例:MS Access ODBC Example
·Ms SQL示例:MS SQL Server ODBC Example
·MySQL示例:MySQL ODBC Example
·Oracle创建表结构的SQL文件:Oracle database for use with Serv-U
以下以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_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
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
本文完全原创,请尊重作者劳动,转载请注明出处,谢谢。
上一篇: 郑州造环卫机器人“首秀”