Subversion Repositories DevTools

Rev

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