結局、以下のように書きました
<%@ LANGUAGE="VBSCRIPT" %> <html> <head> <meta charset="utf-8"> <title>end0tknr's asp test page</title> </head> <body> <h1>end0tknr's asp test page</h1> This file exits in "C:\inetpub\wwwroot"<br/> Log files exits in "C:\inetpub\logs\LogFiles\ "<br/> <br/> 現在の時刻は、<%= Now() %> です。<br/> <br/> <br/> <% Sub SleepSeconds(sec) Dim oShell Set oShell = Server.CreateObject("WScript.Shell") oShell.Run "C:\Windows\System32\timeout.exe " + Cstr(sec), 1, True End Sub %> <% SleepSeconds(10) %> Sleep後の時刻は、<%= Now() %> です。<br/> </body> </html>
