| 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 : |
''<!------------------------------------------------------------------ '' 履歴アプリの表示色の選択 '' 構文:Call FormSelectColr <Select名> <選択色> ''-------------------------------------------------------------------> ' Sub FormSelectColor $SelectName $Color <select name="$SelectName"> <option value="">黒 ' If $Color = "#888888" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#888888" style="color:#888888" $Selected>灰 ' If $Color = "#0000ff" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#0000ff" style="color:#0000ff" $Selected>青 ' If $Color = "#008800" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#008800" style="color:#008800" $Selected>緑 ' If $Color = "#ff0000" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#ff0000" style="color:#ff0000" $Selected>赤 ' If $Color = "#008888" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#008888" style="color:#008888" $Selected>水 ' If $Color = "#880088" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#880088" style="color:#880088" $Selected>紫 ' If $Color = "#888800" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#888800" style="color:#888800" $Selected>黄 ' If $Color = "#996633" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#996633" style="color:#996633" $Selected>茶 ' If $Color = "#99cc00" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#99cc00" style="color:#99cc00" $Selected>黄緑 ' If $Color = "#e0b060" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#e0b060" style="color:#e0b060" $Selected>オレンジ ' If $Color = "#e090b8" ' $Selected = "Selected" ' Else ' $Selected = "" ' EndIf <option value="#e090b8" style="color:#e090b8" $Selected>ピンク </select> ' EndSub '' ''<!------------------------------------------------------------------ '' 表示色の選択 '' 構文:Call SelectColr <Select名> <選択色> ''-------------------------------------------------------------------> ' Sub SelectColor $SelectName $ColorID ' var $ColorID_Black = 1 ' var $ColorID_Gray = 2 ' var $ColorID_Blue = 3 ' var $ColorID_Green = 4 ' var $ColorID_Red = 5 ' var $ColorID_Aqua = 6 ' var $ColorID_Purple = 7 ' var $ColorID_Yellow = 8 ' var $ColorID_Brown = 9 ' var $ColorID_YellowGreen = 10 ' var $ColorID_Orange = 11 ' var $ColorID_Pink = 12 ' Init $ColorID = 1 <select name="$SelectName"> ' If $ColorID = $ColorID_Black ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Black"$Selected>黒 ' If $ColorID = "$ColorID_Gray" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Gray"$Selected>灰 ' If $ColorID = "$ColorID_Blue" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Blue"$Selected>青 ' If $ColorID = "$ColorID_Green" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Green"$Selected>緑 ' If $ColorID = "$ColorID_Red" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Red"$Selected>赤 ' If $ColorID = "$ColorID_Aqua" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Aqua"$Selected>水 ' If $ColorID = "$ColorID_Purple" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Purple"$Selected>紫 ' If $ColorID = "$ColorID_Yellow" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Yellow"$Selected>黄 ' If $ColorID = "$ColorID_Brown" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Brown"$Selected>茶 ' If $ColorID = "$ColorID_YellowGreen" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_YellowGreen"$Selected>黄緑 ' If $ColorID = "$ColorID_Orange" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Orange"$Selected>オレンジ ' If $ColorID = "$ColorID_Pink" ' $Selected = " Selected" ' Else ' $Selected = "" ' EndIf <option value="$ColorID_Pink"$Selected>ピンク </select> ' EndSub '' ''<!------------------------------------------------------------------ '' 表示文字数の選択 '' 構文:Call SelectLength <Select名> <選択文字数> ''-------------------------------------------------------------------> ' Sub SelectLength $slName $slSelected <select name="$slName"> <option value="">(全て) ' Options $slSelected in 10 to 45 step 5 unit "文字まで" ' Options $slSelected in 50 to 100 step 10 unit "文字まで" ' Options $slSelected in 150 to 300 step 50 unit "文字まで" </select> ' EndSub