CGI 的標準入出力


  VB + Framework



  
Imports System.Environment
Imports System.IO

Module MyModule

' ********************************************************
' * 実行
' ********************************************************
Sub Main()

	' PATH 環境変数取得
	Dim strMethod as String = GetEnvironmentVariable( "REQUEST_METHOD" )

	Console.WriteLine("Content-Type: text/html; Charset=shift_jis")
	Console.WriteLine("")

	Console.WriteLine("{0}<br>", strMethod )

	if strMethod = "GET"  then
		Dim strQueryString as String = GetEnvironmentVariable( "QUERY_STRING" )
		Console.WriteLine(strQueryString)
	end if

	if strMethod = "POST"  then
		Dim line As String
		line = Console.ReadLine()
		Do While Not line Is Nothing
			Console.WriteLine(line)
			line = Console.ReadLine()
		Loop
	end if

End Sub

End Module
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ