<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "‘¹‰v•ªŠò“_•ªÍ" Dim JissekiSonekiBunkitenUriage, JissekiUriagedakaRiekiRitsu Dim JissekiMokuhyoUriageDaka, JissekiUriagedakaHi, JissekiUriageGenka, JissekiUriageGenkaHi, JissekiGenkaiRieki, JissekiGenkaiRiekiHi, JissekiKoteihiHi, JissekiZeibikimaeRieki, JissekiZeibikimaeRiekiHi, JissekiKoteihi JissekiMokuhyoUriageDaka = 0 JissekiUriagedakaHi = 0 JissekiUriageGenka = 0 JissekiUriageGenkaHi = 0 JissekiGenkaiRieki = 0 JissekiGenkaiRiekiHi = 0 JissekiKoteihi = 0 JissekiKoteihiHi = 0 JissekiZeibikimaeRieki = 0 JissekiZeibikimaeRiekiHi = 0 Dim Query, Content Query = "exec SPR•ªÍ_‘¹‰vŽÀю擾" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰KCD Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim Meisyo Meisyo = Content.Fields("–¼Ì") If Meisyo = "ŒÅ’è”ï" Then JissekiKoteihi = Content.Fields("‹àŠz") ElseIf Meisyo = "•Ï“®”ï" Then JissekiUriageGenka = UriageGenkaSyutoku(GB_KaikeiSyuryobi) + Content.Fields("‹àŠz") ElseIf Meisyo = "”„ã‚" Then JissekiMokuhyoUriageDaka = Content.Fields("‹àŠz") ElseIf Meisyo = "•Ï“®”ï" Then End If Content.MoveNext Loop JissekiGenkaiRieki = JissekiMokuhyoUriageDaka - JissekiUriageGenka JissekiZeibikimaeRieki = JissekiGenkaiRieki - JissekiKoteihi JissekiUriagedakaHi = 100 If JissekiMokuhyoUriageDaka <> 0 Then JissekiUriageGenkaHi = Int(JissekiUriageGenka * 100 / JissekiMokuhyoUriageDaka) JissekiGenkaiRiekiHi = Int(JissekiGenkaiRieki * 100 / JissekiMokuhyoUriageDaka) JissekiKoteihiHi = Int(JissekiKoteihi * 100 / JissekiMokuhyoUriageDaka) JissekiZeibikimaeRiekiHi = Int(JissekiZeibikimaeRieki * 100 / JissekiMokuhyoUriageDaka) JissekiUriagedakaRiekiRitsu = 1 - (JissekiUriageGenka / JissekiMokuhyoUriageDaka) End If If JissekiUriagedakaRiekiRitsu <> 0 Then JissekiSonekiBunkitenUriage = Int(JissekiKoteihi / JissekiUriagedakaRiekiRitsu) End If %> <% = AppTitle %>
<% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("ƉïEWŒvƒEƒBƒ“ƒhƒE" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "ŽÐ’·ŽºE‘–±•”", "", "à–±WŒv", "", PageType, "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("ƒƒCƒ“ƒƒjƒ…[" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "à–±”•\", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac5.asp')", PageType, "", "", "", "", "", "", "")) Else Response.Write(HttpL2("‰ïŽÐ‘I‘ð" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "ŽÐ’·ŽºE‘–±•”", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "à–±”•\", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", PageType, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("ˆóü", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %>
<% = HtmlFooter %> <% End Sub %>