Rev 1283 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Change Password |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/config.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="sec/Crypt.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------'------------ Constants Declaration -----------'------------ Variable Init -------------------'----------------------------------------------%><%Sub Change_Password ( NNuser_id, SSoldpassword, SSpassword )Dim rsTemp, Query_StringQuery_String = _"SELECT * FROM users WHERE user_id= "& NNuser_idSet rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))If rsTemp.Fields("domain") <> "" Then' No need for passwordSession("AdditionalParams") = "$USERNAME$,"& objAccessControl.UserNameResponse.Redirect("message.asp?msg=202-15")ElseIf EnCrypt( SSoldpassword ) <> rsTemp.Fields("user_password") Then' Old Password MismatchResponse.Redirect("message.asp?msg=401-8")End IfEnd If' All conditions mat. Change password'update fieldsrsTemp.EditrsTemp.Fields("user_password").Value = EnCrypt( SSpassword )rsTemp.UpdatersTemp.CloseSet rsTemp = nothingEnd Sub%><%'--- Process submition ---If CBool(QStrPar("action")) Then' All mandatory parameters FOUNDCall Change_Password ( objAccessControl.UserId, Request("FRoldpassword"), Request("FRpassword") )Response.Redirect("message.asp?msg=200-7")End If%><html><head><title>Release Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="scripts/deployment_manager.css" type="text/css"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="scripts/common.js"></script><!-- TIPS --><script language="JavaScript" src="images/tipster.js"></script><script language="JavaScript" src="images/_help_tips.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- TIPS LAYERS --------------------------------------><div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10"> </div><!-----------------------------------------------------><!-- HEADER ++++++++++++++++ --><!--#include file="_header.asp"--><!-- +++++++++++++++++++++++ --><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_member_dark.gif" valign="top"><!-- MEMBERS MENU ----------------------------------------------><!--#include file="members_menu_def.asp"--><%Call Member_Menu( "my details" )%><!-- MEMBERS MENU END ------------------------------------------></td><td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td><td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap><!-------------------------------------------><br><span class="mmb_ttl">Change Password</span><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><form name="chpass" method="post" action="members_change_password.asp"><tr><td width="1%"> </td><td><img src="images/h_trsp_dot.gif" width="500" height="30"></td><td width="1%"> </td></tr><tr><td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td><td background="images/bg_member_dark.gif" align="left" class="wform_ttl"> </td><td align="right" valign="top" width="1%" background="images/bg_member_dark.gif"> </td></tr><tr><td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td><td bgcolor="#FFFFFF" valign="top" class="form_item"> <br><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td width="1%" nowrap class="form_group" valign="bottom"> </td><td nowrap width="100%" align="right" class="form_step"><img src="images/h_trsp_dot.gif" width="350" height="10"></td></tr><tr><td width="1%"> </td><td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">OLD Password</td><td nowrap width="100%" background="images/bg_form_lightbluedark.gif"><input type="password" name="FRoldpassword" class="form_item"></td></tr><tr><td width="1%"> </td><td width="1%" nowrap class="form_field"> </td><td nowrap width="100%"> </td></tr><tr><td width="1%"> </td><td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">NEW Password</td><td nowrap width="100%" background="images/bg_form_lightbluedark.gif"><input type="password" name="FRpassword" class="form_item"></td></tr><tr><td width="1%"> </td><td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">NEW Password Confirm </td><td nowrap width="100%" background="images/bg_form_lightbluedark.gif"><input type="password" name="FRpasswordc" class="form_item"></td></tr><%If (objAccessControl.Domain <> "") Then %><td width="1%"> </td><td width="1%" nowrap class="form_field err_alert" colspan=2>The User Password cannot be managed from Release Manager<br>as the User is configured to use Domain Authentication</td></tr><% End If %><tr><td width="1%"> </td><td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td nowrap width="100%"><input type="hidden" name="action" value="true"><%If (objAccessControl.Domain <> "") Then %><input disabled type="submit" name="btn" value="Change" class="form_btn_disabled" ><% Else %><input type="submit" name="btn" value="Change" class="form_btn" onClick="MM_validateForm('FRoldpassword','OLD Password','RisCleanStr','FRpassword','NEW Password','RisCleanStrisChangePasswordinLength6:');return document.MM_returnValue"><% End If %><input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();"><br><br></td></tr></table><br><br></td><td width="1%" background="images/lbox_bgside_white.gif"> </td></tr><tr><td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td><td background="images/bg_member_dark.gif"></td><td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td></tr></form></table><!--------------------------------------------------------><br></td><td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_member.gif" width="160" height="230" vspace="10" hspace="10"></td></tr><tr><td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td><td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>