注册
登录
| 关键词： nbsp Default nVarChar int Name 密码 CREATE Index Access IDENTITY |
下面是以Serv-U 6.0和Sql Server 2000相结合的演示。 建表Sql 语句： CREATE TABLE [groupaccounts] ( [id] int IDENTITY (1,1) PRIMARY KEY, [Index] int Default 0, [Name] nVarChar(50) default '', [Notes] nVarChar(255) default '' )CREATE INDEX [Name] on [groupaccounts]([Name] ) CREATE TABLE [groupdiraccess] ( [id] int IDENTITY PRIMARY KEY, [Access] nVarChar(255) default '', [Index] int Default 0, [Name] nVarChar(50) default '' )CREATE INDEX [Name] on [groupdiraccess]([Name] ) CREATE TABLE [groupipaccess] ( [id] int IDENTITY PRIMARY KEY, [Access] nVarChar(255) default '', [Index] int Default 0, [Name] nVarChar(50) default '' )CREATE INDEX [Name] on [groupipaccess]([Name] ) CREATE TABLE [useraccounts] ( [id] int IDENTITY PRIMARY KEY, [Access] nVarChar(255) default '', [AlwaysLogin] int Default 0, [ChangePass] int Default 0, [Disable] int Default 0, [Expirationtype] int Default 0, [Expiration] datetime Default '1980-1-1', [Groups] nVarChar(50) default '', [HideHidden] int Default 0, [HomeDir] nVarChar(100) default '', [idleTimeOut] int Default 0, [LogMesfile] nVarChar(100) default '', [MaxIp] int Default -1, [MaxSpeedDown] decimal Default 0, [MaxSpeedUp] decimal Default 0, [MaxUsers] int Default -1, [Name] nVarChar(50) default '', [Needsecure] int Default 0, [Notes] nVarChar(255) default '', [PassType] int Default 0, [Password] nVarChar(50) default '', [Privilege] int Default 0, [QuotaCurrent] decimal Default 0, [QuotaEnable] int Default 0, [QuotaMax] decimal Default 0, [RatioCredit] decimal Default 0, [RatioDown] int Default 0, [RatioType] int Default 0, [RatioUP] int Default 0, [RelPaths] int Default 0, [SessionTimeOut] int Default 0, [SkeyValues] nVarChar(50) default '' )CREATE INDEX [Name] on [useraccounts]([Name] ) CREATE TABLE [userdiraccess] ( [id] int IDENTITY PRIMARY KEY, [Access] nVarChar(255) default '', [Index] int Default 0, [Name] nVarChar(50) default '' )CREATE INDEX [Name] on [userdiraccess]([Name] ) CREATE TABLE [useripaccess] ( [id] int IDENTITY PRIMARY KEY, [Access] nVarChar(255) default '', [Index] int Default 0, [Name] nVarChar(50) default '' )CREATE INDEX [Name] on [useripaccess]([Name] ) ServUDaemon.ini中的ODBC信息：ODBCSource=Serv-U||ODBCTables=useraccounts|groupaccounts|userdiraccess|groupdiraccess|useripaccess|groupipaccessODBCColumns=Name|Password|SkeyValues|HomeDir|LogMesfile|Access|Disable|Needsecure|RelPaths|HideHidden| AlwaysLogin|ChangePass|QuotaEnable|MaxIp|MaxSpeedUp|MaxSpeedDown|MaxUsers|idleTimeOut|SessionTimeOut|RatioUP| RatioDown|RatioCredit|QuotaCurrent|QuotaMax|Expiration|Privilege|PassType|RatioType|Groups|Notes|Index 我们利用Serv-U的obdc功能，可以把FTP用户信息存在数据库中，这样对Web操作方便了很多，下面是在线更改密码的列子，数据库为Access，表和字段的设计请参考Serv-U的帮助文件。 加密算法为随机码与MD5 32 位加密，例如：两个随机字母：ab用户输入密码：123456生成的密码为：ab + MD5(ab123456) 补充：md5返回为32位的大写字符，附md5.asp 提示：代码仅实现更改密码的功能，并不一定完全符合或达到您的需求。 <!--#include file='conn.asp'--><!--#include file='include/md5.asp'--><%dim act,UserName,OldPassword,NewPassword,reNewPasswordact = Request.form("act")if act = "update" then UserName = Request.form("UserName") OldPassword = Request.form("OldPassword") NewPassword = Request.form("NewPassword") reNewPassword = Request.form("reNewPassword") UserName = Replace(UserName,"'","'") if len(UserName)<1 or len(OldPassword)<1 or len(NewPassword)<1 or len(reNewPassword)<1 then alert("表单没有填写完整") end if if trim(NewPassword)<>trim(reNewPassword) then alert("密码与确认密码不一样") end if Sql0 = "select top 1 name,[password] from [useraccounts] where name = '"& UserName &"'" set rs0 = conn.execute(Sql0) if rs0.eof and rs0.bof then alert("用户名不存在") else dbname = rs0("name") dbpassword = rs0("password") end if cdbpassword = left(dbpassword,2) & md5(left(dbpassword,2) & OldPassword) if trim(cdbpassword) <> trim(dbpassword) then alert("密码错误") else rndstr = MyRandc(2) '两位随机字母 newdbpassword = rndstr & md5(rndstr & NewPassword) sql2 = "update [useraccounts] set [password] = '"& newdbpassword &"' where name='"& UserName &"'" conn.execute(sql2) alert("密码已经更改，可能要几钟后才能生效") end ifend if function alert(x) response.write "<script language='JavaScript'>alert('"& replace(x,"""","\""") &"');history.go(-1);</script>" conn.close set conn = nothing response.endend function function MyRandc(n)'生成随机字符，n为字符的个数 thechr = "" for i=1 to n Randomize timer zNum = cint(25*Rnd) if zNum mod 2 = 0 then zNum = zNum + 97 else zNum = zNum + 65 end if thechr = thechr & chr(zNum) next MyRandc = thechrend function%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META NAME="Author" CONTENT="海娃(51windows)"><META NAME="Keywords" CONTENT="http://www.51windows.Net"><title>更改FTP (Serv-U) 密码 - 51windows.net</title></head><body><form method="POST" action="" name="form" autocomplete="off"><input type="hidden" name="act" value="update"><div align="center"> <center> <table border="0" width="480" cellpadding="2" cellspacing="1" class="table" style="border: 1 solid #336699;font-size:14px;"> <tr> <td width="100%" align="center" colspan="2" class="title" style="background:#336699;color:#FFFFFF;">更改FTP (Serv-U) 密码</td> </tr> <tr> <td width="30%" align="left"> 用户名[√]：</td> <td width="70%"><input class="input" type="text" maxlength=20 name="UserName" size="25" value="" /> (FTP登陆用户名)</td> </tr> <tr> <td width="30%" align="left"> 旧密码[√]：</td> <td width="70%"><input class="input" type="password" maxlength=20 name="OldPassword" size="25" value="" /> (必须输入旧密码)</td> </tr> <tr> <td width="30%" align="left"> 新密码[√]：</td> <td width="70%"><input class="input" type="password" name="NewPassword" size="25" value="" /> (输入新密码)</td> </tr> <tr> <td width="30%" align="left"> 确 认[√]：</td> <td width="70%"><input class="input" type="password" name="reNewPassword" size="25" value="" /> (再次输入新密码)</td> </tr> <tr> <td width="100%" height="30" align="center" colspan="2"><input style="font-size:14px;" type="submit" size="10" value="确 定" class=button></td> </tr> </table> </center></div></html><%set rs = nothingconn.closeset conn = nothing%> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
