Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          _Logout					 	 |
 5 
'|                   _Logout                    |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
Line 16... Line 16...
16 
<!--#include file="common/common_subs.asp"-->
 16 
<!--#include file="common/common_subs.asp"-->
17 
<%
 17 
<%
18 
'------------ VARIABLE DEFINITION -------------
 18 
'------------ VARIABLE DEFINITION -------------
19 
'------------ CONSTANTS DECLARATION -----------
 19 
'------------ CONSTANTS DECLARATION -----------
20 
'------------ VARIABLE INIT -------------------
 20 
'------------ VARIABLE INIT -------------------
21 
objAccessControl.objOraSession = OraSession	' Create database link for orasession
 21 
objAccessControl.objOraSession = OraSession   ' Create database link for orasession
22 
objAccessControl.objOraDatabase = OraDatabase	' Create database link for oradatabase
 22 
objAccessControl.objOraDatabase = OraDatabase   ' Create database link for oradatabase
23 
'------------ CONDITIONS ----------------------
 23 
'------------ CONDITIONS ----------------------
24 
'----------------------------------------------
 24 
'----------------------------------------------
25 
%>
 25 
%>
26 
<%
 26 
<%
27 
'--------------------------------------------------------------------------------------------------------------------------
 27 
'--------------------------------------------------------------------------------------------------------------------------
28 
Sub Logout ()
 28 
Sub Logout ()
29
29 
 
30 
	' --- Update Login Audit ---
 30 
   ' --- Update Login Audit ---
31 
	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
31 
   OraDatabase.Parameters.Add "USER_ID",    objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
32 
	OraDatabase.Parameters.Add "APP_ID", 	APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
32 
   OraDatabase.Parameters.Add "APP_ID",    APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
33
33 
 
- 
 
 34 
   objEH.TryORA ( OraSession )
34 
	OraSession.BeginTrans
 35 
   On Error Resume Next
35
36 
 
36 
	OraDatabase.ExecuteSQL _
 37 
   OraDatabase.ExecuteSQL _
37 
	" UPDATE USER_APPLICATIONS SET"&_
 38 
   " UPDATE USER_APPLICATIONS SET"&_
38 
	" LAST_VISIT_STAMP = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
 39 
   " LAST_VISIT_STAMP = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
39 
	" WHERE USER_ID = :USER_ID"&_
 40 
   " WHERE USER_ID = :USER_ID"&_
40 
	"   AND APP_ID = :APP_ID"
 41 
   "   AND APP_ID = :APP_ID"
41
42 
 
- 
 
 43 
   If Err.Number = 0 Then
42 
	OraDatabase.ExecuteSQL _
 44 
      OraDatabase.ExecuteSQL _
43 
	" UPDATE USERS SET"&_
 45 
      " UPDATE USERS SET"&_
44 
	" IS_ONLINE = NULL,"&_
 46 
      " IS_ONLINE = NULL,"&_
45 
	" LAST_VISIT = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
 47 
      " LAST_VISIT = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
46 
	" WHERE USER_ID = :USER_ID"
48 
      " WHERE USER_ID = :USER_ID"
- 
 
 49 
   End If
47
50 
 
48 
	OraSession.CommitTrans
 51 
   objEH.CatchORA ( OraSession )
49
52 
 
50 
	OraDatabase.Parameters.Remove "USER_ID"
 53 
   OraDatabase.Parameters.Remove "USER_ID"
51 
	OraDatabase.Parameters.Remove "APP_ID"
 54 
   OraDatabase.Parameters.Remove "APP_ID"
52
55 
 
53 
	'--- Finally Logoff ---
 56 
   '--- Finally Logoff ---
54 
	objAccessControl.LogoffUser ()
 57 
   objAccessControl.LogoffUser ()
55
- 
 
56
- 
 
57
58 
 
58 
End Sub
 59 
End Sub
59 
'--------------------------------------------------------------------------------------------------------------------------
 60 
'--------------------------------------------------------------------------------------------------------------------------
60 
%>
 61 
%>
61 
<%
 62 
<%
62 
'**************************** M  A  I  N ******************************
 63 
'**************************** M  A  I  N ******************************
63 
If objAccessControl.UserLogedIn Then
 64 
If objAccessControl.UserLogedIn Then
64 
	Call Logout()
 65 
   Call Logout()
65 
End If
 66 
End If
66 
 
 67 
 
67 
Call OpenInWindow ( "index.asp" )
 68 
Call OpenInWindow ( "index.asp" )
68 
'**********************************************************************
 69 
'**********************************************************************
69 
%>
 70 
%>