AnonSec Shell
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 :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     

Current File : /install/page/PartsFormIndex.html
''<!------------------------------------------------------------------
''  履歴の一覧表示
''  構文：Call viewFormIndex <フォームID> <履歴情報> <履歴リスト> <CGI引数> <カレント履歴ID>
''------------------------------------------------------------------->
' Sub viewFormIndex $vfiBS $vfiFormProfile $vfiRS $vfiArgs $vfiCurID
'  $DateType = $vfiFormProfile.DateTime.Type
'  $RowNum = 0
'  For Each $d in $vfiRS
'   If ! $d.Init
'    Continue
'   EndIf
'   $RID = $d.OID
'   $DBID = $d.DBID
'   Inc $RowNum
'   If $RID = $vfiCurID
'    $RowClass = "currentRow"
'   Else
'    $Remainder = $Command.Math.Modulus $RowNum 2
'    If $Remainder = 0
'     $RowClass = "evenRow"
'    Else
'     $RowClass = "oddRow"
'    EndIf
'   EndIf
<tr class="$RowClass overline">
<td valign="top"><font size="-1">
'   If $vfiFormProfile.DateTime.Color
<font color="$vfiFormProfile.DateTime.Color">
'   EndIf
'   If $vfiFormProfile.DateTime.Bold
<b>
'   EndIf
'   $SetDate = $d.SetDate
'   $EndDate = $d.EndDate
'   $SetTime = $d.SetTime
'   $EndTime = $d.EndTime
'   If $DateType = 1
'    If $SetDate.Year != $Date.Year
$SetDate.Year/\\
'    EndIf
$SetDate.Month/$SetDate.Day($SetDate.WDay) ～
'    If $EndDate
'     If $EndDate.Year != $Date.Year
$EndDate.Year/\\
'     EndIf
$EndDate.Month/$EndDate.Day($EndDate.WDay)
'    EndIf
'   Elif $DateType = 2
'    If $SetDate.Year != $Date.Year
$SetDate.Year/\\
'    EndIf
$SetDate.Month/$SetDate.Day($SetDate.WDay)
'    If $SetTime
$SetTime.Hour:$SetTime.Minute00
'    EndIf
'   Elif $DateType = 3
'    If $SetDate.Year != $Date.Year
$SetDate.Year/\\
'    EndIf
$SetDate.Month/$SetDate.Day($SetDate.WDay)
'    If $SetTime
$SetTime.Hour:$SetTime.Minute00
'    EndIf
～
'    If $EndDate
'     If $EndDate.Year != $Date.Year
$EndDate.Year/\\
'     EndIf
$EndDate.Month/$EndDate.Day($EndDate.WDay)
'     If $EndTime
$EndTime.Hour:$EndTime.Minute00
'     EndIf
'    EndIf
'   Else
'    If $SetDate.Year != $Date.Year
$SetDate.Year/\\
'    EndIf
$SetDate.Month/$SetDate.Day($SetDate.WDay)
'   EndIf
'   If $vfiFormProfile.DateTime.Bold
</b>
'   EndIf
'   If $vfiFormProfile.DateTime.Color
</font>
'   EndIf
</font></td>
'   If ! $vfiFormProfile.Creator.Hidden
'    $UID = $d.UID
'    $UserName = $Users.$UID.Name
'    Init $UserName = $d.Creator
<td valign="top"><font size="-1">
'    If $vfiFormProfile.Creator.Color
<font color="$vfiFormProfile.Creator.Color">
'    EndIf
'    If $vfiFormProfile.Creator.Bold
<b>
'    EndIf
$UserName
'    If $vfiFormProfile.Creator.Bold
</b>
'    EndIf
'    If $vfiFormProfile.Creator.Color
</font>
'    EndIf
</font></td>
'   EndIf
'   If ! $vfiFormProfile.Code.Hidden
<td valign="top"><font size="-1">
'    If $vfiFormProfile.Code.Color
<font color="$vfiFormProfile.Code.Color">
'    EndIf
'    If $vfiFormProfile.Code.Bold
<b>
'    EndIf
$d.Code\\
'    If $vfiFormProfile.Code.Bold
</b>
'    EndIf
'    If $vfiFormProfile.Code.Color
</font>
'    EndIf
</font><br></td>
'   EndIf
<td valign="top"><font size="-1">
'   If $vfiFormProfile.Subject.Bold
<b>
'   EndIf
'   If $FormProfile.Image
'    $Image = $FormProfile.Image
'   Else
'    $Image = "browse20.png"
'   EndIf
'   If $FormProfile.Subject.Length
'    $Subject = $Command.String.StrHead $d.Subject $FormProfile.Subject.Length
'   Else
'    $Subject = $d.Subject
'   EndIf
'   Call cmLink $Subject $Image "$Server?page=FormDocView&wid=$WID&bs=$vfiBS&vid=$VID&rid=$RID&dbid=$DBID$$vfiArgs"
'   If $vfiFormProfile.Subject.Bold
</b>
'   EndIf
</font></td>
'   If ! $vfiFormProfile.Customer.Hidden
<td valign="top">
'    If $d.Customers.Count
<font size="-1">
'     If $vfiFormProfile.Customer.Color
<font color="$vfiFormProfile.Customer.Color">
'     EndIf
'     If $vfiFormProfile.Customer.Bold
<b>
'     EndIf
'     For Each $c in $d.Customers
'      If $FormProfile.Customer.Length
'       $CustomerName = $Command.String.StrHead $c.Name $FormProfile.Customer.Length
'      Else
'       $CustomerName = $c.Name
'      EndIf
'      If $c.Company
'       Call cmImage "company20.png"
'      Else
'       Call cmImage "person20.png"
'      EndIf
$CustomerName<br>
'     Next
'     If $vfiFormProfile.Customer.Bold
</b>
'     EndIf
'     If $vfiFormProfile.Customer.Color
</font>
'     EndIf
</font>
'    Else
<br>
'    EndIf
</td>
'   EndIf
'   For Each $Item in $vfiFormProfile.Items
'    If $Item.Hidden
'     Continue
'    EndIf
<td valign="top">
'    If $Item.Color
<font color="$Item.Color">
'    EndIf
'    If $Item.Bold
<b>
'    EndIf
'    $IID = $Item.ID
'    Set $Values = $d.Items.$IID
'    $Type = $Item.Type
'    $First = 1
'    If $Type = "Date"
'     For Each $Value in $Values
<font size="-1">$Value.Year/$Value.Month/$Value.Day($Value.WDay)</font>
'      $First = 0
'      Exit
'     Next
'    Elif $Type = "User"
'     For Each $Value in $Values
'      $UserName = $Command.User.GetUserName $Value
'      If ! $UserName
'       Continue
'      EndIf
<font size="-1">$UserName</font>
'      $First = 0
'      If $Item.Multiple
<br>
'      Else
'       Exit
'      EndIf
'     Next
'    Elif $Type = "Select"
'     For Each $Value in $Values
<font size="-1">$Value</font>
'      $First = 0
'      If $Item.Multiple
<br>
'      Else
'       Exit
'      EndIf
'     Next
'    Else
'     For Each $Value in $Values
'      If ( $Item.Type = "Text" ) and $Item.Length
'       $Value = $Command.String.StrHead $Value $Item.Length
'      EndIf
'      View $Value 1
'      $First = 0
'      Exit
'     Next
'    EndIf
'    If $First
<br>
'    EndIf
'    If $Item.Bold
</b>
'    EndIf
'    If $Item.Color
</font>
'    EndIf
</td>
'   Next
</tr>
'   If ( ! $vfiFormProfile.Comment.Hidden ) and $d.Comments.Count
<tr class="$RowClass"><td colspan="$vfiHeadCols"><br></td>
<td colspan="$vfiCols" valign="top">\\
<div class="comment">
'    If $vfiFormProfile.Comment.Color
<font color="$vfiFormProfile.Comment.Color">
'    EndIf
'    If $vfiFormProfile.Comment.Bold
<b>
'    EndIf
'    For Each $Comment in $d.Comments
'     var $localData = $Command.String.Trim $Comment.Data
'     var $localMultiLine = $Command.String.IsMultiLine $localData
'     If $localMultiLine
'      If $Comment.UID == $Login.ID
<div class="mycomment-block">
'      Else
<div class="comment-block">
'      EndIf
'      View $localData 1
</div>
'     Else
'      If $Comment.UID == $Login.ID
<span class="mycomment-inline">
'      Else
<span class="comment-inline">
'      EndIf
'      View $localData 1 0 1
</span>
'     EndIf
'    Next
'    If $vfiFormProfile.Comment.Bold
</b>
'    EndIf
'    If $vfiFormProfile.Comment.Color
</font>
'    EndIf
</div>\\
</td></tr>
'   EndIf
'  Next
' EndSub
''
'  Sub viewFormTitle $vfiFormProfile
'   $vfiHeadCols = 1
'   $vfiCols = 1
<tr class="table-header">
<td nowrap>日時</td>
'  If ! $vfiFormProfile.Creator.Hidden
<td nowrap>作成者</td>
'   Inc $vfiHeadCols
'  EndIf
'  If ! $vfiFormProfile.Code.Hidden
<td nowrap>番号</td>
'   Inc $vfiHeadCols
'  EndIf
<td nowrap>件名</td>
'  If ! $vfiFormProfile.Customer.Hidden
<td nowrap>顧客</td>
'   Inc $vfiCols
'  EndIf
'  For Each $Item in $vfiFormProfile.Items
'   If ! $Item.Hidden
<td nowrap>$Item.Name<br></td>
'    Inc $vfiCols
'   EndIf
'  Next
</tr>
'  EndSub

Anon7 - 2022
AnonSec Team