% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" Dim UserName, ZipCode, Adress1, Adress2 'ユーザー名、郵便番号、住所1、住所2 Dim TelNo, FaxNo, KanrishaId, Password '電話番号、FAX、管理者ID、パスワード Dim KyotsuPath, KojinPath, SystemName, Version, IPAddress, GakkoCD, hoshiki '共通データパス、個人データパス、システム名称、バージョン Dim WebCollaboPort Dim ExtArray Dim FAXRiyo Dim TopMargin Dim LeftMargin Dim KoshoninMes Dim AdminMes Dim Query Dim Content Dim Msg Msg = Request("Msg") Dim FileName FileName = Request("FileName") Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then UserName = Content.Fields("ユーザー名") KanrishaId = Content.Fields("管理者コード") Password = Content.Fields("パスワード") KyotsuPath = Content.Fields("共通データパス") SystemName = Content.Fields("システム名称") Version = Content.Fields("バージョン") IPAddress = Content.Fields("IPアドレス") GakkoCD = Content.Fields("学校CD") hoshiki = Content.Fields("方式") FAXRiyo = "" & Content.Fields("FAX利用") ExtArray = Content.Fields("FAX利用可能拡張子") TopMargin = Content.Fields("名刺印刷余白上") LeftMargin = Content.Fields("名刺印刷余白左") KoshoninMes = "" & Content.Fields("会社設立時手数料メッセージ") AdminMes = "" & Content.Fields("メモ表示") End If 'IPアドレス・ポート番号分解 WebCollaboPort = "" If InStr("" & IPAddress, ":") > 0 Then Dim IPAddressAry IPAddressAry = Split(IPAddress, ":") If UBound(IPAddressAry) = 1 Then IPAddress = IPAddressAry(0) WebCollaboPort = IPAddressAry(1) End If End If If "" & TopMargin = "" Then TopMargin = 0 End If If "" & LeftMargin = "" Then LeftMargin = 0 End If If "" & KoshoninMes <> "1" Then KoshoninMes = "0" End If If "" & AdminMes <> "1" And "" & AdminMes <> "2" Then AdminMes = "0" End If Dim jj,tmps %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>