<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "‘¹‰vŽÀÑ" Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, UriagedakaRiekiRitsu Dim Query, Content Query = "exec SPR•ªÍ_‘¹‰vŒv‰æŽæ“¾" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰KCD Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shihonkin = Content.Fields("Ž‘–{‹à") ShihonkinRiekiRitsu = Content.Fields("Ž‘–{‹àƒ—˜‰v—¦") KazeiRitsu = Content.Fields("‰ÛÅ—¦") Koteihi = Content.Fields("ŒÅ’è”ï") UriagedakaRiekiRitsu = Content.Fields("”„ã‚‘—˜‰v—¦") End If Dim MokuhyoUriageDaka, UriagedakaHi, UriageGenka, UriageGenkaHi, Sorieki, SoriekiHi, KoteihiHi, ZeibikimaeRieki, ZeibikimaeRiekiHi Dim Jyunriekigaku, SonekiBunkitenUriage Dim JissekiMokuhyoUriageDaka, JissekiUriagedakaHi, JissekiUriageGenka, JissekiUriageGenkaHi, JissekiSorieki, JissekiSoriekiHi, JissekiKoteihiHi, JissekiZeibikimaeRieki, JissekiZeibikimaeRiekiHi, JissekiKoteihi Dim HiritsuMokuhyoUriageDaka, HiritsuUriageGenka, HiritsuSorieki, HiritsuKoteihi, HiritsuZeibikimaeRieki Jyunriekigaku = Shihonkin * ShihonkinRiekiRitsu If KazeiRitsu <> 1 Then ZeibikimaeRieki = Int(Jyunriekigaku / ( 1 - KazeiRitsu )) If UriagedakaRiekiRitsu <> 0 Then MokuhyoUriageDaka = Int((Int(Koteihi) + Int(ZeibikimaeRieki)) * 10 / UriagedakaRiekiRitsu) / 10 SonekiBunkitenUriage = Int(Koteihi * 10 / UriagedakaRiekiRitsu) / 10 SoriekiHi = Int(UriagedakaRiekiRitsu * 100 * 10) / 10 UriageGenkaHi = Int((100 - SoriekiHi) * 10) / 10 If UriagedakaRiekiRitsu <> "" Then KoteihiHi = Int(Koteihi * 100 / MokuhyoUriageDaka) ZeibikimaeRiekiHi = SoriekiHi - KoteihiHi Sorieki = Int(Koteihi) + Int(ZeibikimaeRieki) UriageGenka = MokuhyoUriageDaka - Sorieki MokuhyoUriageDaka = ConvIntToMoney(Int(MokuhyoUriageDaka), false, false) UriageGenka = ConvIntToMoney(Int(UriageGenka), false, false) Sorieki = ConvIntToMoney(Int(Sorieki), false, false) Koteihi = ConvIntToMoney(Int(Koteihi), false, false) ZeibikimaeRieki = ConvIntToMoney(Int(ZeibikimaeRieki), false, false) End If End If End If JissekiMokuhyoUriageDaka = 0 JissekiUriagedakaHi = 0 JissekiUriageGenka = 0 JissekiUriageGenkaHi = 0 JissekiSorieki = 0 JissekiSoriekiHi = 0 JissekiKoteihi = 0 JissekiKoteihiHi = 0 JissekiZeibikimaeRieki = 0 JissekiZeibikimaeRiekiHi = 0 HiritsuMokuhyoUriageDaka = 0 HiritsuUriageGenka = 0 HiritsuSorieki = 0 HiritsuKoteihi = 0 HiritsuZeibikimaeRieki = 0 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 JissekiSorieki = JissekiMokuhyoUriageDaka - JissekiUriageGenka JissekiZeibikimaeRieki = JissekiSorieki - JissekiKoteihi JissekiUriagedakaHi = 100 If JissekiMokuhyoUriageDaka <> 0 Then JissekiUriageGenkaHi = Int(JissekiUriageGenka * 100 * 10 / JissekiMokuhyoUriageDaka) / 10 JissekiSoriekiHi = Int(JissekiSorieki * 100 * 10 / JissekiMokuhyoUriageDaka) / 10 JissekiKoteihiHi = Int(JissekiKoteihi * 100 * 10 / JissekiMokuhyoUriageDaka) / 10 JissekiZeibikimaeRiekiHi = Int(JissekiZeibikimaeRieki * 100 * 10 / JissekiMokuhyoUriageDaka) / 10 JissekiMokuhyoUriageDaka = ConvIntToMoney(Int(JissekiMokuhyoUriageDaka), false, false) JissekiUriageGenka = ConvIntToMoney(Int(JissekiUriageGenka), false, false) JissekiSorieki = ConvIntToMoney(Int(JissekiSorieki), false, false) JissekiKoteihi = ConvIntToMoney(Int(JissekiKoteihi), false, false) JissekiZeibikimaeRieki = ConvIntToMoney(Int(JissekiZeibikimaeRieki), false, false) End If If MokuhyoUriageDaka <> 0 Then HiritsuMokuhyoUriageDaka = Int(JissekiMokuhyoUriageDaka * 100 / MokuhyoUriageDaka) End If If UriageGenka <> 0 Then HiritsuUriageGenka = Int(JissekiUriageGenka * 100 / UriageGenka) End If If Sorieki <> 0 Then HiritsuSorieki = Int(JissekiSorieki * 100 / Sorieki) End If If Koteihi <> 0 Then HiritsuKoteihi = Int(JissekiKoteihi * 100 / Koteihi) End If If ZeibikimaeRieki <> 0 Then HiritsuZeibikimaeRieki = Int(JissekiZeibikimaeRieki * 100 / ZeibikimaeRieki) End If %> <% = HtmlHeader("") %> <% 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 %>