| 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 : |
''<!------------------------------------------------------------------ '' viewUserProfile '' ユーザー情報の表示 '' 構文：Call viewUserProfile <ユーザーオブジェクト> ''-------------------------------------------------------------------> ' Sub viewUserProfile $u <table width="640" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff"> <tr><td class="title" width="200" valign="top" nowrap>ユーザーID</td><td width="100%">$u.ID</td></tr> <tr><td class="title" width="200" valign="top" nowrap>名前</td><td width="100%">$u.Name</td></tr> ' If ( ( $u.ID = $Login.ID ) or $IsAdminPage ) and ( $Connect.To != "cb4" ) <tr><td class="title" width="200" valign="top" nowrap>ログイン名</td><td width="100%">$u.Account<br></td></tr> ' EndIf <tr><td class="title" width="200" valign="top" nowrap>メールアドレス</td><td width="100%"> ' $m = $u.Mail ' If $m $_m.MailTo ' Else <br> ' EndIf </td></tr> <tr><td class="title" width="200" valign="top" nowrap>連絡先</td><td width="100%">$u.Tel<br></td></tr> ' If ! $System.IsCloudUserAdmin <tr><td class="title" width="200" valign="top" nowrap>画像</td><td width="100%"> ' $FileName = $u.FileName ' If $FileName ' $System.SetParameter Inline "Inline$WID" ' $System.FileLink $u SystemUser $Login.$Inline 0 "&admin=$IsAdminPage" ' Else <br> ' EndIf ' EndIf </td></tr> <tr><td class="title" width="200" valign="top" nowrap>メモ</td><td> ' View $u.Memo </td></tr> <tr><td class="title" width="200" valign="top" nowrap>グループ</td><td width="100%"> ' If $u.Groups.Count ' For Each $g in $u.Groups $g.Name<br> ' Next ' Else <br> ' EndIf </td></tr> ' If ( $u.ID = $Login.ID ) or $IsAdminPage ' $FirstGID = $u.FirstGID <tr><td class="title" width="200" valign="top" nowrap>最初に表示するグループ</td><td width="100%">$Groups.$FirstGID.Name<br></td></tr> ' $WSCount = 0 ' For Each $ws in $mw.WorkSpaces ' $Access = $Command.System.IsWorkSpaceAccess $ws.ID $u.ID ' If $Access ' Inc $WSCount ' EndIf ' Next ' If $WSCount > 1 ' $FirstWID = $u.FirstWID <tr><td class="title" width="200" valign="top" nowrap>最初に表示するメールスペース</td><td width="100%">$mw.WorkSpaces.$FirstWID.Name<br></td></tr> ' EndIf ' EndIf </table> ' EndSub