Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6048 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				    Chage Password			         |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="sec/Crypt.asp"-->
20 
<%
21 
'------------ ACCESS CONTROL ------------------
22 
%>
23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim parReturn
27 
Dim parUsername
28 
Dim parPassword
29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
31 
parUsername = QStrPar("FRuser")
32 
parPassword = Session("RELEASEMANAGER_logininfo")
33 
parReturn = QStrPar("rfile")
34 
'----------------------------------------------
35 
%>
36 
<%
37 
Function PassRequireChange ( SSusername )
38 
	Dim Query_String, rsTemp
39 
	Query_String = _
40 
	"SELECT * FROM users WHERE user_name='"& SSusername &"'"
41 
 
42 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
43 
 
44 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
45 
		If IsNull(rsTemp.Fields("user_password")) Then
46 
			PassRequireChange = TRUE
47 
		Else
48 
			'Password does not Require change
5957 dpurdie 49 
            Call Destroy_All_Objects
5357 dpurdie 50 
			Response.Redirect("message.asp?msg=400-1")
51 
		End If
52 
	End If
53 
End Function
54 
 
55 
 
56 
Sub Change_Password ( SSusername, SSPassword )
57 
	Dim rsTemp, Query_String
58 
	Query_String = _
59 
	"SELECT user_password FROM users WHERE user_name='"& SSusername &"'"
60 
 
61 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
62 
 
63 
 
64 
	'update fields
65 
	rsTemp.Edit
66 
	rsTemp.Fields("user_password").Value = EnCrypt ( SSPassword )
67 
	rsTemp.Update
68 
 
69 
	rsTemp.Close
70 
	Set rsTemp = nothing
71 
End Sub
72 
%>
73 
<%
74 
'------------ Process submition -------------------
75 
If CBool(QStrPar("action")) AND (QStrPar("FRchangepass")) Then
76 
 
77 
	'If EnCrypt( Request("FRpassc") ) <> parPassword Then
78 
 
79 
	If Request("FRpassc") <> parPassword Then
80 
		' Password confirmation is incorrect
5957 dpurdie 81 
        Call Destroy_All_Objects
5357 dpurdie 82 
		Response.Redirect("message.asp?msg=401-7")
83 
	End If
84 
 
85 
	If PassRequireChange ( parUsername ) Then
86 
		Call Change_Password ( parUsername, parPassword )
87 
	End If
88 
 
89 
	' Now Login
5957 dpurdie 90 
    Call Destroy_All_Objects
5357 dpurdie 91 
	Response.Redirect( "login.asp?action=true&FRuser="& parUsername &"&rfile="& QStrPar("rfile")  )
92 
 
93 
End If
94 
%>
95 
<html>
96 
<head>
97 
<title>Release Manager</title>
98 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
99 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
100 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
101 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
102 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
103 
<script language="JavaScript" src="images/common.js"></script>
104 
<!-- DROPDOWN MENUS -->
105 
<!--#include file="_menu_def.asp"-->
106 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
107 
</head>
108 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="document.chpass.FRpassc.focus()">
109 
<!-- MENU LAYERS -------------------------------------->
110 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
111 
</div>
112 
<!-- HEADER -->
113 
 
114 
<!-- BODY ---->
115 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
116 
  <tr>
117 
    <td background="images/bg_lght_gray.gif" align="left" valign="top">
118 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
119 
        <tr>
120 
          <td valign="top" width="1%"><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
121 
          <td valign="top" width="1%">
122 
            <!-- LEFT -->
123 
          </td>
124 
          <td valign="top" width="1%"><img src="images/h_trsp_dot.gif" width="30" height="10"></td>
125 
          <td valign="top" width="100%">
126 
            <!-- MIDDLE -->
127 
            <table width="400" border="0" cellspacing="0" cellpadding="0">
128 
              <tr>
129 
                <td>
130 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
131 
                    <tr>
132 
                      <td width="1%">&nbsp;</td>
133 
                      <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
134 
                      <td width="1%">&nbsp;</td>
135 
                    </tr>
136 
                    <tr>
137 
                      <td width="1%">&nbsp;</td>
138 
                      <td align="left" valign="bottom" class="form_ttl">LOGIN</td>
139 
                      <td width="1%">&nbsp;</td>
140 
                    </tr>
141 
                    <tr>
142 
                      <td align="left" valign="top" width="1%" background="images/lbox_bg_orange.gif"><img src="images/lbox_tl_cnr.gif" width="13" height="13"></td>
143 
                      <td background="images/lbox_bg_orange.gif" width="100%">&nbsp;
144 
                      </td>
145 
                      <td align="right" valign="top" width="1%" background="images/lbox_bgside_orange.gif"><img src="images/lbox_tr_cnr.gif" width="21" height="20"></td>
146 
                    </tr>
147 
                    <tr>
148 
                      <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="150"></td>
149 
                      <td bgcolor="#FFFFFF" valign="top">
150 
                        <table width="100%" border="0" cellspacing="1" cellpadding="2">
151 
                          <form name="chpass" method="post" action="<%=scriptName%>?done=done<%=QSTR_FullQuery%>">
152 
                            <tr>
153 
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
154 
                              <td width="1%" nowrap class="form_group" valign="bottom"></td>
155 
                              <td nowrap width="100%" valign="bottom" align="right">&nbsp;</td>
156 
                            </tr>
157 
                            <tr>
158 
                              <td width="1%">&nbsp;</td>
159 
                              <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Password
160 
                                Confirm </td>
161 
                              <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
162 
                                <input type="password" name="FRpassc">
163 
                                <input type="hidden" name="rfile" value="<%=parReturn%>">
164 
								<input type="hidden" name="FRuser" value="<%=parUsername%>">
165 
                                <input type="hidden" name="FRchangepass" value="true">
166 
                                <input type="hidden" name="action" value="true">
167 
                              </td>
168 
                            </tr>
169 
                            <tr>
170 
                              <td width="1%">&nbsp;</td>
171 
                              <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
172 
                              <td nowrap width="100%">
173 
                                <input type="submit" name="btn" value=" Login " class="sublbox_item" onClick="MM_validateForm('FRuser','','R');return document.MM_returnValue">
174 
                                <input type="reset" name="btn" value="Cancel" class="sublbox_item" onclick="history.back()">
175 
                              </td>
176 
                            </tr>
177 
                          </form>
178 
                        </table>
179 
                      </td>
180 
                      <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
181 
                    </tr>
182 
                    <tr>
183 
                      <td width="1%" background="images/lbox_bg_orange.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
184 
                      <td background="images/lbox_bg_orange.gif"></td>
185 
                      <td width="1%" background="images/lbox_bgside_orange.gif"></td>
186 
                    </tr>
187 
                  </table>
188 
                </td>
189 
              </tr>
190 
            </table>
191 
            <!-- END MIDDLE -->
192 
          </td>
193 
        </tr>
194 
      </table>
195 
    </td>
196 
  </tr>
197 
</table>
198 
<!-- FOOTER -->
199 
<!--#include file="_footer.asp"-->
200 
</body>
201 
</html>