| 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.Access Form ' $Command.Form.AccessFile $BS ' Set $FormProfile = $Command.Form.GetFormTop $BS ' $AppliName = $WorkSpace.Forms.$BS.Name ' $Command.System.OnExport $AppliName $WID ' If $CT ' If $Env.IsMSIE ' $System.ContentType application/csv ' Else ' $System.ContentType application/octet-stream ' EndIf ' $System.CSV = 1 ' Set $Export = $Command.Form.GetPersonalExport $BS ' If $Export.ItemName ' $First = 1 ' For Each $ExportItem in $Export.Items ' $Item = $ExportItem.Item ' If $First ' $First = 0 ' Else ,\\ ' EndIf ' If $Item = "DateAndTime" ' $Type = $FormProfile.DateTime.Type ' If ( $Type = 1 ) "開始日","終了日"\\ ' ElIf ( $Type = 2 ) "日時"\\ ' ElIf ( $Type = 3 ) "開始日時","終了日時"\\ ' Else "日付"\\ ' EndIf ' Elif $Item = "DateTime" ' $Type = $FormProfile.DateTime.Type ' If ( $Type = 1 ) or ( $Type = 3 ) "開始日"\\ ' Else "日付"\\ ' EndIf ' If $Type = 2 ,"時刻"\\ ' Elif $Type = 3 ,"開始時刻"\\ ' EndIf ' If ( $Type = 1 ) or ( $Type = 3 ) ,"終了日"\\ ' If $Type = 3 ,"終了時刻"\\ ' EndIf ' EndIf ' Elif $Item = "CTime" "作成日時"\\ ' Elif $Item = "Creator" "作成者"\\ ' Elif $Item = "Code" "番号"\\ ' Elif $Item = "Subject" "件名"\\ ' Elif $Item = "Customers" "顧客"\\ ' Elif $Item = "Customer1" "会社コードまたは顧客コード1","会社名1","名前1"\\ ' Elif $Item = "Customer2" "会社コードまたは顧客コード2","会社名2","名前2"\\ ' Elif $Item = "Customer3" "会社コードまたは顧客コード3","会社名3","名前3"\\ ' Elif $Item = "FileName" "添付ファイル名"\\ ' Elif $Item = "Comment" "コメント"\\ ' Else ' $IID = $ExportItem.IID "$FormProfile.Items.$IID.Name"\\ ' EndIf ' Next ' EndIf ' $Command.Form.Export $BS $ST ' Exit ' EndIf