<% ' %> <% main() Sub main() Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim ExcelDir ExcelDir = "/" & HomeAlias & "/data/user" If Not(fs.FolderExists(Server.MapPath(ExcelDir))) Then fs.CreateFolder(Server.MapPath(ExcelDir)) End If %> <% = HtmlHeader("") %> <% If BASPLEADDisable = 1 Then 'ASP.NETモード %>
<% 'アップロードファイルのフォーム要素名 %> <% '保存先フォルダ(実体パス) %> <% '全フォーム要素名の羅列(onLoadで取得される) %> "><% '再ポスト先URL %> <% ' %> <% Else %> <% End If %> <% Response.Write(HtmlDesign(8)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "ユーザー管理", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("ユーザー管理", "Excelデータのインポート")) Response.Write(HttpL5("全てのユーザーを表示しています。")) %>
<% = HtmlFooter %> <% End Sub %>