<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim UserName, ZipCode, Adress1, Adress2 'ユーザー名、郵便番号、住所1、住所2 Dim TelNo, FaxNo, KanrishaId, Password '電話番号、FAX、管理者ID、パスワード Dim KyotsuPath, KojinPath, SystemName, Version, IPAddress, GakkoCD, hoshiki '共通データパス、個人データパス、システム名称、バージョン Dim WebCollaboPort 'TV電話ポート番号 Dim FAXRiyo Dim ExtArray Dim TopMargin Dim LeftMargin Dim Query Dim Content 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("名刺印刷余白左") 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 '学校CD固定 If "" & GakkoCD = "" Then GakkoCD = "0123" End If If "" & TopMargin = "" Then TopMargin = 0 End If If "" & LeftMargin = "" Then LeftMargin = 0 End If Dim objFS Set objFS = Server.CreateObject("Scripting.FileSystemObject") Dim FileFolder FileFolder = "/" & HomeAlias & "/data/topimage" If Not(objFS.FolderExists(Server.MapPath(FileFolder))) Then objFS.CreateFolder(Server.MapPath(FileFolder)) End If Dim jj,tmps %> <% = HtmlHeader("") %> <% If BASPLEADDisable = 1 Then 'ASP.NETモード %>
<% 'アップロードファイルのフォーム要素名 %> <% '保存先フォルダ(実体パス) %> <% '全フォーム要素名の羅列(onLoadで取得される) %> "><% '再ポスト先URL %> <% ' %> <% Else %> <% End If %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp');", "システム情報", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "タイトル背景設定" , "", "", "", "", "", "", "")) Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("タイトル背景", "設定")) %>
<% = HtmlFooter %> <% End Sub %>