<% ' %> <% 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("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "システム情報", "", "" , "", "", "", "", "", "", "")) Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If FileName = "" Then Dim SFCServer1 Dim SFCServer2 SFCServer1 = "" SFCServer2 = "" SFCServer1 = "アクセスログ表示" 'FESアクセスログデータベースの存在チェック Dim FESAccessLog FESAccessLog = 1 On Error Resume Next Err.Clear() Dim ALdb Set ALdb = Server.CreateObject("ADODB.Connection") ALdb.ConnectionTimeout = 60 ALdb.CommandTimeout = 60 ALdb.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=fesaluser;Password=fesal;Initial Catalog=fesaccesslog;Data Source=" & SQLServer If Err.Description <> "" Then FESAccessLog = 0 End If On Error Goto 0 If FESAccessLog > 0 Then SFCServer2 = "window.open('/accesslog?admin=fesaclog&SystemCD=" & HomeAlias & "')" Else SFCServer2 = "tblbtn('/" & HomeAlias & "/admin/kihon/fm_accesslog.asp?TmpLoginID=ALL')" '内部アクセスログは廃止(200611小野) SFCServer1 = "" SFCServer2 = "" End If '2006.11.06 データ転送ボタンを削除 Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("データ転送", "SendData();", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("修正", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_kihon.asp');", "元号の設定", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_gengo.asp');", "タイトル背景設定", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_topimage.asp');", SFCServer1, SFCServer2, "", "")) '2006.11.06 ダウンロードボタンを削除 ' Response.Write(HttpL3_2("修正", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_kihon.asp');", "タイトル背景設定", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_topimage.asp');", SFCServer1, SFCServer2, "", "", "", "")) ' Response.Write(HttpL3_2("修正", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_kihon.asp')", "最新版のダウンロード", "NewWnd2('http://www2.sfc-jpn.jp/download')", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("転送ファイルをダウンロード", "NewWnd('" & FSend & "/" & FileName & "')", "", "", "", "", "", "", "", "")) '2006.11.06 アップロードボタンを削除 Response.Write(HttpL3_2("修正", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_kihon.asp')", SFCServer1, SFCServer2, "", "", "", "", "", "")) ' Response.Write(HttpL3_2("修正", "tblbtn( '/" & HomeAlias & "/admin/kihon/fm_kihon.asp')", "アップロード用ページを開く", "NewWnd('http://" & FtpServer & "/upload')", "", "", "", "", "", "")) End If Response.Write(HttpL4("システム情報", "照会")) If Msg <> "" Then Response.Write(HttpL5(Msg)) ElseIf FileName <> "" Then Response.Write(HttpL5("データ転送処理を終了しました")) End If %>
<% = HtmlFooter %> <% End Sub %>