線上更改Serv-U密碼範例程式碼

來源:互聯網
上載者:User
serv-u|樣本|線上

我們利用Serv-U的obdc功能,可以把FTP使用者資訊存在資料庫中,這樣對Web操作方便了很多,下面是線上更改密碼的列子,資料庫為Access,表和欄位的設計請參考Serv-U的協助檔案。

密碼編譯演算法為隨機碼與MD532位加密,例如:
兩個隨機字母:ab
使用者輸入密碼:123456
產生的密碼為:ab +MD5(ab123456)

參考:

補充:md5返回為32位的大寫字元

提示:代碼僅實現更改密碼的功能,並不一定完全符合或達到您的需求。


<!--#includefile='conn.asp'-->
<!--#includefile='include/md5.asp'-->
<%
dimact,UserName,OldPassword,NewPassword,reNewPassword
act=Request.form("act")
ifact="update"then

 UserName  =Request.form("UserName")
 OldPassword  =Request.form("OldPassword")
 NewPassword  =Request.form("NewPassword")
 reNewPassword =Request.form("reNewPassword")
 UserName  =Replace(UserName,"'","'")

 iflen(UserName)<1orlen(OldPassword)<1orlen(NewPassword)<1orlen(reNewPassword)<1then
  alert("表單沒有填寫完整")
 endif

 iftrim(NewPassword)<>trim(reNewPassword)then
  alert("密碼與確認密碼不一樣")
 endif

 Sql0="selecttop1name,[password]from[useraccounts]wherename='"&UserName&"'"
 setrs0=conn.execute(Sql0)
 ifrs0.eofandrs0.bofthen
  alert("使用者名稱不存在")
 else
  dbname=rs0("name")
  dbpassword=rs0("password")
 endif

 iftrim(cdbpassword)<>trim(dbpassword)then
  alert("密碼錯誤")
 else
  rndstr=MyRandc(2) '兩位隨機字母
  newdbpassword=rndstr& md5(rndstr&NewPassword)
  sql2="update[useraccounts]set[password]='"&newdbpassword&"'wherename='"&UserName&"'"
  conn.execute(sql2)
  alert("密碼已經更改,可能要幾鐘後才會生效")
 endif
endif

functionalert(x)
 response.write"<scriptlanguage='JavaScript'>alert('"&replace(x,"""","""")&"');history.go(-1);</script>"
 conn.close
 setconn=nothing
 response.end
endfunction

functionMyRandc(n)'產生隨機字元,n為字元的個數
 thechr=""
 fori=1ton
  Randomizetimer
  zNum=cint(25*Rnd)
  ifzNummod2=0then
   zNum=zNum+97
  else
   zNum=zNum+65
  endif
  thechr=thechr&chr(zNum)
 next
 MyRandc=thechr
endfunction
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<METANAME="Author"CONTENT="海娃(51windows)">
<METANAME="Keywords"CONTENT="">
<title>更改FTP(Serv-U)密碼-51windows.net</title>
</head>
<body>
<formmethod="POST"action=""name="form"autocomplete="off">
<inputtype="hidden"name="act"value="update">
<divalign="center">
 <center>
     <tableborder="0"width="480"cellpadding="2"cellspacing="1"class="table"style="border:1solid#336699;font-size:14px;">
       <tr>
         <tdwidth="100%"align="center"colspan="2"class="title"style="background:#336699;color:#FFFFFF;">更改FTP(Serv-U)密碼</td>
       </tr>

       <tr>
         <tdwidth="30%"align="left"> 使用者名稱[√]:</td>
         <tdwidth="70%"><inputclass="input"type="text"maxlength=20 name="UserName"size="25"value=""/>(FTP登陸使用者名稱)</td>
       </tr>
 
       <tr>
         <tdwidth="30%"align="left"> 舊密碼[√]:</td>
         <tdwidth="70%"><inputclass="input"type="password"maxlength=20 name="OldPassword"size="25"value=""/>(必須輸入舊密碼)</td>

相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。