| Server IP : 133.18.244.157 / Your IP : 216.73.217.20 Web Server : Apache System : Linux o4022v-135.kagoya.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : main2 ( 81069) PHP Version : 5.6.34 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /install/page/ |
Upload File : |
''<!------------------------------------------------------------------ '' アクセス権のユーザー表示 '' 構文：Call accessView <アプリケーションオブジェクト> <アクセス権プロパティ名> <アクセスユーザーID一覧オブジェクト名> <アクセスグループID一覧オブジェクト名> ''-------------------------------------------------------------------> ' Sub accessUsers $Application $AccessProperty $AccessObject $AccessGroups $CaptionAll <table width="100%" border="0" cellspacing="0" cellpadding="2"> ' If $Application.$AccessProperty ' $j = 0 ' $i = 0 ' For Each $UID in $Application.$AccessGroups ' Set $g = $Groups.$UID ' If ! $g ' Continue ' EndIf ' Inc $j ' If $i = 5 </tr> ' $i = 0 ' EndIf ' If $i = 0 <tr> ' EndIf <td width="20%" nowrap> ' Call cmImage "group20.png" $g.Name </td> ' Inc $i ' Next ' If ( $i != 0 ) and ( $i != 5 ) ' $cols = 5 - $i <td\\ ' If $cols > 1 colspan="$cols"\\ ' EndIf ><br></td> </tr> ' EndIf ' $i = 0 ' For Each $UID in $Application.$AccessObject ' Set $u = $Users.$UID ' If ! $u ' Continue ' EndIf ' Inc $j ' If $i = 5 </tr> ' $i = 0 ' EndIf ' If $i = 0 <tr> ' EndIf <td width="20%" nowrap> ' If $UID = $Login.ID ' Call cmImage "loginuser20.png" ' Elif $u.Suspend ' Call cmImage "suspenduser20.png" ' Else ' Call cmImage "user20.png" ' EndIf $u.Name </td> ' Inc $i ' Next ' If ( $i != 0 ) and ( $i != 5 ) ' $cols = 5 - $i <td\\ ' If $cols > 1 colspan="$cols"\\ ' EndIf ><br></td> </tr> ' EndIf ' If $j = 0 <tr><td nowrap>(なし)</td></tr> ' EndIf ' Else ' If ! $CaptionAll ' $CaptionAll = "(全員)" ' EndIf <tr><td nowrap>$CaptionAll</td></tr> ' EndIf </table> ' EndSub '' ''<!------------------------------------------------------------------ '' アクセス権の表示 '' 構文：Call accessView <アクセス権のタイトル> <アプリケーションオブジェクト> <アクセス権プロパティ名> <アクセスユーザーID一覧オブジェクト名> <アクセスグループID一覧オブジェクト名> ''-------------------------------------------------------------------> ' Sub accessView $Caption $Application $AccessProperty $AccessObject $AccessGroups $CaptionAll <tr><td width="180" class="title" valign=top nowrap>$Caption</td><td width="600" valign="top"> ' Call accessUsers $Application $AccessProperty $AccessObject $AccessGroups $CaptionAll </td></tr> ' EndSub