<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim UserName, ZipCode, Adress1, Adress2 'ユーザー名、郵便番号、住所１、住所２ Dim TelNo, FaxNo, KanrishaId, Password '電話番号、ＦＡＸ、管理者ＩＤ、パスワード Dim KyotsuPath, KojinPath, SystemName, Version '共通データパス、個人データパス、システム名称、バージョン 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("バージョン") End If Dim jj,tmps %> <% = AppTitle %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu_w.asp')", "システム情報", "tblbtn( '/sj4web/admin/kihon/fm_kihon_view.asp')", "データ転送" , "", "", "", "", "", "", "")) Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn('fm_kihon_view.asp')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("データ転送", "")) If Msg <> "" Then Response.Write(HttpL5(Msg)) ElseIf FileName <> "" Then Response.Write(HttpL5("データ転送を終了しました")) End If %>
<% = HtmlFooter %> <% End Sub %>