在线更改Serv-U密码示例代码_语言综合

概述我们利用Serv-U的obdc功能，可以把FTP用户信息存在数据库中，这样对Web *** 作方便了很多，下面是在线更改密码的列子，数据库为Access，表和字段的设计请参考Serv-U的帮助文件。加密算法为随机码与MD5 32 位加密，例如...

我们利用Serv-U的obdc功能，可以把FTP用户信息存在数据库中，这样对Web *** 作方便了很多，下面是在线更改密码的列子，数据库为Access，表和字段的设计请参考Serv-U的帮助文件。

加密算法为随机码与MD5 32 位加密，例如：
两个随机字母：ab
用户输入密码：123456
生成的密码为：ab + MD5(ab123456)

补充：md5返回为32位的大写字符，附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 iffunction alert(x) response.write "<script language='JavaScript'>alert('"& replace(x,"""",""""") &"');history.go(-1);</script>" conn.close set conn = nothing response.endend functionfunction 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" > <tr> <td wIDth="100%" align="center" colspan="2" >更改FTP (Serv-U) 密码</td> </tr> <tr> <td wIDth="30%" align="left">　用户名[√]：</td> <td wIDth="70%"><input type="text" maxlength=20 name="Username" size="25" value="" /> (FTP登陆用户名)</td> </tr> <tr> <td wIDth="30%" align="left">　旧密码[√]：</td> <td wIDth="70%"><input type="password" maxlength=20 name="oldPassword" size="25" value="" /> (必须输入旧密码)</td> </tr> <tr> <td wIDth="30%" align="left">　新密码[√]：</td> <td wIDth="70%"><input type="password" name="NewPassword" size="25" value="" /> (输入新密码)</td> </tr> <tr> <td wIDth="30%" align="left">　确　认[√]：</td> <td wIDth="70%"><input type="password" name="reNewPassword" size="25" value="" /> (再次输入新密码)</td> </tr> <tr> <td wIDth="100%" height="30" align="center" colspan="2"><input type="submit" size="10" value="确定" class=button></td> </tr> </table> </center></div></HTML><%set rs = nothingconn.closeset conn = nothing%>

总结

以上是内存溢出为你收集整理的在线更改Serv-U密码示例代码全部内容，希望文章能够帮你解决在线更改Serv-U密码示例代码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/langs/1220017.html

在线更改Serv-U密码示例代码

发表评论

评论列表（0条）