<% ' %> <% main() Sub main() ExecCmd("cmd.exe /c " & Left(Server.MapPath("/sj4web"),3) & "sj4webetc\sj4dbmake\2--教科書に必要な演習をインポート.bat") ExecCmd("cmd.exe /c " & Left(Server.MapPath("/sj4web"),3) & "sj4webetc\sj4dbmake\04-テストデータをインポート.bat " & SQLServer) ' Response.Redirect("fm_kihon_view.asp?Msg=インポートを完了しました。") End Sub %>