''<!------------------------------------------------------------------
''  リストボックスの追加・変更・削除・順番変更が押されたときの関数
''  構文：Call lbFuncPost <選択項目のID> <選択項目リスト> <追加時のURL変数> <変更時のURL変数> <削除時のURL変数> <順番変更時のURL変数>
''------------------------------------------------------------------->
' Sub lbFuncPost $lbID $lbList $lbArgAdd $lbArgModify $lbArgDelete $lbArgOrder
'  If $Add
'   $System.Redirect $Server?$lbArgAdd
'  Elif $lbID
'   If $Modify
'    $System.Redirect $Server?$lbArgModify
'   Elif $Remove
'    $System.Redirect $Server?$lbArgDelete
'   Else
'    If $Top
'     $System.OrderTop $lbList $lbID
'    Elif $Up
'     $System.OrderUp $lbList $lbID
'    Elif $Down
'     $System.OrderDown $lbList $lbID
'    Elif $Bottom
'     $System.OrderBottom $lbList $lbID
'    EndIf
'    $System.Redirect $Server?$lbArgOrder
'   EndIf
'  Else
'   $System.Redirect $Server?$lbArgOrder
'  EndIf
' EndSub
''<!------------------------------------------------------------------
''  リストボックスの選択肢の記述
''  構文：Call ListBox <選択肢リスト> <選択要素>
''------------------------------------------------------------------->
' Sub ListOptions $loOptions $loSelected
'  Options $loSelected in $loOptions
' EndSub
''<!------------------------------------------------------------------
''  リストボックス
''  構文：Call ListBox <リストボックス名> <選択肢リスト> <選択要素> <追加・変更・削除ボタン不要>
''------------------------------------------------------------------->
' Sub ListBox $lbName $lbOptions $lbSelected $lbNoButton
<!--#include file="LibraryCommon.html"-->
<!--#include file="LibraryForm.html"-->
<table border="0" cellspacing="0" cellpadding="2">
 <tr>
  <td align="middle">\\
' Call cmImageButton "" "order_top20.png" "Top"
<br><br>
' Call cmImageButton "" "order_up20.png" "Up"
<br><br>
' Call cmImageButton "" "order_down20.png" "Down"
<br><br>
' Call cmImageButton "" "order_bottom20.png" "Bottom"
</td>
  <td>
<select name="$lbName" size="10">
'  Call ListOptions $lbOptions $lbSelected
<option value="">　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　</option>
</select>
</td></tr>
'  If ! $lbNoButton
<tr><td><br></td>
<td>\\
'   Call formSubmit "Add" "追加する"
</td>
<td>\\
'   Call formSubmit "Modify" "変更する"
</td>
<td>\\
'   Call formSubmit "Remove" "削除する"
</td>
</tr>
'  EndIf
</table>
' EndSub