| 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 : |
<!--#include file="LibraryForm.html"--> <!--#include file="LibrarySelect.html"--> ''<!------------------------------------------------------------------ '' アクセス権の設定 '' 構文：Call accessSet <アクセス権のタイトル> <対象オブジェクト> <アクセス権プロパティ名> <アクセスユーザーID一覧オブジェクト名> <アクセスグループID一覧オブジェクト名> <リストボックス名に付けるPrefix> <全員を表す文言> <特定のユーザーを表す文言> <注意書き> ''-------------------------------------------------------------------> ' Sub accessSet $Caption $Application $AccessProperty $AccessObject $AccessGroups $AccessPrefix $CaptionAll $CaptionMember $CaptionNote <p><img src="$IMG_PATH/pin.png"> <b>$Caption</b> ' If $CaptionNote <br> <font size="-1" color="#008800">$CaptionNote</font> ' EndIf </p> ' If $Application.$AccessProperty ' $AccessAll = 0 ' $AccessLimited = 1 ' Else ' $AccessAll = 1 ' $AccessLimited = 0 ' EndIf ' If ! $CaptionAll ' $CaptionAll = "ユーザー全員" ' EndIf ' If ! $CaptionMember ' $CaptionMember = "特定のユーザー(選択してください)" ' EndIf <table border="0" cellspacing="0" cellpadding="4"> <tr><td nowrap> ' Call formRadio $AccessProperty $CaptionAll $AccessAll 0 "$AccessPrefix$All" </td></tr> <tr><td nowrap> ' Call formRadio $AccessProperty $CaptionMember $AccessLimited 1 "$AccessPrefix$Limited" </td></tr> </table> <blockquote> ' Call selectUser "$AccessPrefix$GID" $AccessObject "$AccessPrefix$UID" $Application.$AccessObject "" $Login.FirstGID "$AccessProperty[1].checked=true;" "" 0 $AccessGroups $Application.$AccessGroups </blockquote> ' EndSub