1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
<%@LANGUAGE = "VBScript"%>
<!--#include file="umraglobal.inc"-->
<%
InitUmra
AuthorizeUser False
If Session("WebRole") <> "MANAGEMENT" then response.redirect "not-allowed.asp"
Session("UserObjectODN") = Request.Form("User")
RetVal = Umra.SetVariableText("%ObjectODN%", Request.Form("User"))
RetVal = Umra.ExecuteProjectScript("function-user-get-info")
RetVal = Umra.GetVariableText("%AD_username%", AD_username)
RetVal = Umra.GetVariableText("%AD_displayName%", AD_displayName)
RetVal = Umra.GetVariableText("%BO4_func_kd%", BO4_func_kd)
RetVal = Umra.GetVariableText("%BO4_func_oms%", BO4_func_oms)
RetVal = Umra.GetVariableText("%BO4_regio_code%", BO4_regio_code)
RetVal = Umra.GetVariableText("%BO4_regio_naam%", BO4_regio_naam)
RetVal = Umra.GetVariableText("%BO4_oe_kort_nm%", BO4_oe_kort_nm)
RetVal = Umra.GetVariableText("%BO4_oe_vol_nm%", BO4_oe_vol_nm)
RetVal = Umra.SetVariableText("%regio_code%", "%BO4_regio_code%")
RetVal = Umra.SetVariableText("%func_kd%", "%BO4_func_kd%")
Set DefaultPermissionTable = Server.CreateObject("UMRAcom.UmraDataTable")
Set JoinedApplPermissionTable = Server.CreateObject("UMRAcom.UmraDataTable")
Set JoinedNTFSPermissionTable = Server.CreateObject("UMRAcom.UmraDataTable")
RetVal = Umra.ExecuteProjectScript("web-generate-default-permission-table")
RetVal = Umra.GetVariableDataTable("%DefaultPermissionTable%", DefaultPermissionTable)
RetVal = Umra.GetVariableDataTable("%JoinedApplPermissionTable%", JoinedApplPermissionTable)
RetVal = Umra.GetVariableDataTable("%JoinedNTFSPermissionTable%", JoinedNTFSPermissionTable)
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK href="style.css" type=text/css rel=stylesheet>
</HEAD>
<%
HtmlWriteStyleElement_Top "Toevoegen autorisaties aan gebruiker"
%>
<table width="100%" border="0" cellpadding="10" cellspacing="0">
<tr>
<td>
<FORM NAME=UmraForm ACTION="manage-authorizations-confirm.asp" METHOD="POST" ID="Form1">
<table width="100%" border="0" cellpadding="3" cellspacing="0">
<tr>
<td colspan="2"><strong>Gegevens geselecteerde gebruiker:</strong></td>
</tr>
<tr>
<td width="50%">Naam: <% response.write AD_displayName & " (" & AD_username & ")"%></td>
<td width="50%">Functie: <% response.write BO4_func_oms & " (" & BO4_func_kd & ")"%></td>
</tr>
<tr>
<td width="50%">Afdeling (code): <% response.write BO4_oe_kort_nm%></td>
<td width="50%">Afdeling (naam): <% response.write BO4_oe_vol_nm%></td>
</tr>
<tr>
<td width="50%">Regio (code): <% response.write BO4_regio_code%></td>
<td width="50%">Regio (naam): <% response.write BO4_regio_naam%></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><strong>Standaard toegewezen rol:</strong></td>
</tr>
<tr>
<td colspan="2">
<%
RowIndex = 0
RetVal = DefaultPermissionTable.GetCellText(RowIndex,0,Column0)
RetVal = DefaultPermissionTable.GetCellText(RowIndex,1,Column1)
while (RetVal = 0)
Response.Write Column1
Response.Write "<BR>"
RowIndex=RowIndex+1
RetVal = DefaultPermissionTable.GetCellText(RowIndex,0,Column0)
RetVal = DefaultPermissionTable.GetCellText(RowIndex,1,Column1)
wend
%>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td><strong>Applicatie autorisaties:</strong></td>
<td><strong>Map autorisaties (Wijzigen / Lezen & Uitvoeren):</strong></td>
</tr>
<tr>
<td>
<%
RowIndex = 0
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,0,name)
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,1,cn)
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,5,JoinResult)
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,8,JoinResult1)
while (RetVal = 0)
if not joinresult1 = 2 then
Response.Write "<input type='checkbox' value='" & cn & "' name='chkAppl_" & RowIndex & "' id='chkAppl" & RowIndex & "'"
if JoinResult = 0 then
response.write " checked disabled> " & name & "<BR>"
response.write "<input type='hidden' value='" & cn & "' name='chkAppl_" & RowIndex & "' id='chkAppl" & RowIndex & "'>"
elseif JoinResult1 = 0 then
response.write " checked> " & name & "<BR>"
else
response.write "> " & name & "<BR>"
end if
end if
Session("UBoundTable1") = RowIndex
RowIndex=RowIndex+1
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,0,name)
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,1,cn)
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,5,JoinResult)
RetVal = JoinedApplPermissionTable.GetCellText(RowIndex,8,JoinResult1)
wend
%>
</td>
<td>
<%
RowIndex = 0
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,0,name)
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,1,cn)
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,5,JoinResult)
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,8,JoinResult1)
name = replace(name, " RX", "")
while (RetVal = 0)
if not joinresult1 = 2 then
Response.Write "<input type='checkbox' value='" & cn & "' name='chkNTFS_" & RowIndex & "' id='chkNTFS" & RowIndex & "'"
if JoinResult = 0 then
response.write " checked disabled> "
response.write "<input type='hidden' value='" & cn & "' name='chkNTFS_" & RowIndex & "' id='chkNTFS_" & RowIndex & "'>"
elseif JoinResult1 = 0 then
response.write " checked> "
else
response.write "> "
end if
if InStr(cn, ".RX") > 0 then response.write name & "<BR>"
end if
Session("UBoundTable2") = RowIndex
RowIndex=RowIndex+1
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,0,name)
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,1,cn)
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,5,JoinResult)
RetVal = JoinedNTFSPermissionTable.GetCellText(RowIndex,8,JoinResult1)
name = replace(name, " RX", "")
wend
%>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2">De autorisaties die bij de standaard toegewezen rol horen zijn reeds aangevinkt, deze kunnen niet aangepast worden.</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Volgende ->" name="Submit"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
|
Pastie << self Blog
