| 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 : |
' $System.Print = 1 ' Set $FormProfile = $Command.Form.GetFormTop $BS ' Set $PersonalImport = $Command.Form.GetPersonalImport $BS ' $ImportForm.BS = $BS ' $fencoding = $Command.String.DecodeURLEncode $fencoding ' $ImportForm.Encoding = $fencoding ' Set $CSVFile = $ImportForm.CSVFile '' <!-- テーブルの表示 --> <table width="100%" border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff"> <tr bgcolor="#cccccc"> ' $Size = 0 ' For Each $Item in $PersonalImport.Items ' Inc $Size ' $IID = $Item.IID ' If $IID = "DateAndTime" ' $Type = $FormProfile.DateTime.Type ' If ( $Type = 1 ) <td nowrap>開始日</td> <td nowrap>終了日</td> ' Inc $Size ' ElIf ( $Type = 2 ) <td nowrap>日時</td> ' ElIf ( $Type = 3 ) <td nowrap>開始日時</td> <td nowrap>終了日時</td> ' Inc $Size ' Else <td nowrap>日付</td> ' EndIf ' Elif $IID = "DateTime" ' $Type = $FormProfile.DateTime.Type ' If ( $Type = 1 ) <td nowrap>開始日</td> <td nowrap>終了日</td> ' Inc $Size ' ElIf ( $Type = 2 ) <td nowrap>日付</td> <td nowrap>時刻</td> ' Inc $Size ' ElIf ( $Type = 3 ) <td nowrap>開始日</td> <td nowrap>開始時刻</td> <td nowrap>終了日</td> <td nowrap>終了時刻</td> ' Inc $Size 3 ' Else <td nowrap>日付</td> ' EndIf ' Elif $IID = "Code" <td nowrap>(番号)</td> ' Elif $IID = "CTime" <td nowrap>作成日時</td> ' Elif $IID = "Creator" <td nowrap>作成者</td> ' Elif $IID = "Subject" <td nowrap>件名</td> ' Elif $IID = "Customers" <td nowrap>顧客</td> ' Elif $IID = "Customer1" ' Inc $Size 2 <td nowrap>会社コードまたは顧客コード1</td><td nowrap>会社名1</td><td nowrap>名前1</td> ' Elif $IID = "Customer2" ' Inc $Size 2 <td nowrap>会社コードまたは顧客コード2</td><td nowrap>会社名2</td><td nowrap>名前2</td> ' Elif $IID = "Customer3" ' Inc $Size 2 <td nowrap>会社コードまたは顧客コード3</td><td nowrap>会社名3</td><td nowrap>名前3</td> ' Elif $IID = "FileName" <td nowrap>(添付ファイル名)</td> ' Elif $IID = "Comment" <td nowrap>コメント</td> ' Else ' Set $FormItem = $FormProfile.Items.$IID <td nowrap>$FormItem.Name<br></td> ' EndIf ' Next </tr> ' $Count = 0 ' $Skip = $PersonalImport.ItemName ' For Each $Row in $CSVFile ' If $Skip ' $Skip = 0 ' Continue ' EndIf <tr valign="top"> ' $i = 1 ' For Each $Cell in $Row ' If $i > $Size ' Exit ' EndIf ' Inc $i <td nowrap>\\ ' If $Cell ' View $Cell ' Else <br>\\ ' EndIf </td> ' Next ' For $j = $i to $Size <td><br></td> ' Next </tr> ' Inc $Count ' If $Count = 5 ' Exit ' EndIf ' Next </table>