' オブジェクト作成
Set WshShell = CreateObject("WScript.Shell")
' 環境変数を取得
Set WshSysEnv = WshShell.Environment("PROCESS")
strMethod = UCase( WshSysEnv("REQUEST_METHOD") )
WScript.Echo "Content-Type: text/html; Charset=shift_jis"
WScript.Echo ""
WScript.Echo strMethod & "<br>"
if strMethod = "GET" then
strQueryString = WshSysEnv("QUERY_STRING")
WScript.Echo strQueryString
end if
if strMethod = "POST" then
WScript.Echo Wscript.StdIn.ReadAll
end if
|