在線更改Serv-U密碼示例代碼

2024-07-21 02:03:58

字體：大中小

來源：轉載

供稿：網友

我們利用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" 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%>

上一篇：總結一天來學習無閃爍刷新技術

下一篇：比較SMALLINT，INTEGER和DECIMAL的性能