Subversion Repositories DevTools

Rev

Rev 4955 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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

            202