%@Language="vbscript"%> <% Option Explicit response.addheader "Pragma" ,"no-cache" Dim lngFontSize Dim lngColorType Dim lngNColor Dim arColor(7) '引継情報の取得 lngFontSize = request("fSz") lngColorType = request("cType") if len(lngFontSize) = 0 then lngFontSize = "100" end if if len(lngColorType) = 0 then lngColorType = 1 end if if clng(lngFontSize) <= 50 then lngFontSize = "100" end if if clng(lngFontSize) > 160 then lngFontSize = "100" end if if clng(lngColorType) >= 4 then lngNColor = 1 else lngNColor = lngColorType + 1 end if '色設定 select case clng(lngColorType) case 1 arColor(1) = "#FFFFFF" '背景色 arColor(2) = "#000000" '文字色 arColor(3) = "#0044ff" 'link色 arColor(4) = "#800080" 'vlink色 arColor(5) = "#FFFFFF" '部局別 arColor(6) = "#def38c" '上部バー arColor(7) = "#F7F3EF" '背景 case 2 arColor(1) = "#000000" arColor(2) = "#FFFF00" arColor(3) = "#FFFFFF" arColor(4) = "#FFFFFF" arColor(5) = "#000000" arColor(6) = "#000000" arColor(7) = "#000000" case 3 arColor(1) = "#00008B" arColor(2) = "#FFFF00" arColor(3) = "#FFFFFF" arColor(4) = "#FFFFFF" arColor(5) = "#00008B" arColor(6) = "#00008B" arColor(7) = "#00008B" case 4 arColor(1) = "#FFFF00" arColor(2) = "#000000" arColor(3) = "#000080" arColor(4) = "#800080" arColor(5) = "#FFFF00" arColor(6) = "#FFFF00" arColor(7) = "#FFFF00" end select %>
|
|
|
![]() |