| Line 6... |
Line 6... |
| 6 |
<%
|
6 |
<%
|
| 7 |
'------------ VARIABLE DEFINITION -------------
|
7 |
'------------ VARIABLE DEFINITION -------------
|
| 8 |
Dim rsAccessControl
|
8 |
Dim rsAccessControl
|
| 9 |
'------------ CONSTANTS DECLARATION -----------
|
9 |
'------------ CONSTANTS DECLARATION -----------
|
| 10 |
'------------ VARIABLE INIT -------------------
|
10 |
'------------ VARIABLE INIT -------------------
|
| - |
|
11 |
objAccessControl.objOraSession = OraSession ' Create database link for orasession
|
| - |
|
12 |
objAccessControl.objOraDatabase = OraDatabase ' Create database link for oradatabase
|
| 11 |
'----------------------------------------------
|
13 |
'----------------------------------------------
|
| 12 |
%>
|
14 |
%>
|
| 13 |
<%
|
15 |
<%
|
| 14 |
'-----------------------------------------------------------------------------------------------------------------------------
|
16 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 15 |
Sub LoginCheck ()
|
17 |
Sub LoginCheck ()
|
| Line 44... |
Line 46... |
| 44 |
End If
|
46 |
End If
|
| 45 |
End If
|
47 |
End If
|
| 46 |
|
48 |
|
| 47 |
End Sub
|
49 |
End Sub
|
| 48 |
'-----------------------------------------------------------------------------------------------------------------------------
|
50 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
51 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
52 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
53 |
' The folling function are wrappers around the general objAccessControl access function
|
| - |
|
54 |
' Pages shold ONLY use these access functions and not the lowerlevel ones
|
| - |
|
55 |
' Caveats:
|
| - |
|
56 |
' - Developer must know which access objects (controls) should be accessed in a project maner
|
| - |
|
57 |
' and which should be accessed in a global manner.
|
| - |
|
58 |
' Basically, use the ...InProject() variants for project based pages
|
| - |
|
59 |
'-------------------------------------------------
|
| - |
|
60 |
' Function: canShowControl
|
| - |
|
61 |
' Description: Determine if the named control should be shown
|
| - |
|
62 |
Function canShowControl (cname)
|
| - |
|
63 |
canShowControl = objAccessControl.IsDataVisible ("PROJECTS", -1, cname)
|
| - |
|
64 |
End Function
|
| - |
|
65 |
|
| - |
|
66 |
'-------------------------------------------------
|
| - |
|
67 |
' Function: canActionControl
|
| - |
|
68 |
' Description: Determine if the named control action can be performed
|
| - |
|
69 |
Function canActionControl (cname)
|
| - |
|
70 |
canActionControl = objAccessControl.IsDataActive ("PROJECTS", -1, cname)
|
| - |
|
71 |
End Function
|
| - |
|
72 |
|
| 49 |
%>
|
73 |
%>
|
| 50 |
<%
|
74 |
<%
|
| 51 |
'------------ RUN BEFORE CONTROL RENDER -------
|
75 |
'------------ RUN BEFORE CONTROL RENDER -------
|
| 52 |
|
76 |
|
| 53 |
'--- Login Check ---
|
77 |
'--- Login Check ---
|