CGI、漢字コードの変換
Posted: 2006年9月30日(土) 15:54
CGIをABでつくろうと思いましたが
"あああ"
と入力して送信すると
inputtext=%82%A0%82%A0%82%A0
となってしまいます。
コード変換をする関数は自作すべきでしょうか？
"あああ"
と入力して送信すると
inputtext=%82%A0%82%A0%82%A0
となってしまいます。
コード変換をする関数は自作すべきでしょうか？
CGIのソース [ここをクリックすると内容が表示されます]
' ↓ ここからプログラムが実行されます
'ここで作成
Dim Text[1000] As Byte
Dim TextLength As Long
ReadFile(GetStdHandle(STD_INPUT_HANDLE), Text,1000,VarPtr(TextLength),ByVal 0)
Print Ex "Content-Type: text/html"
Print
Print Ex"<HTML>"
Print Ex "<BODY>"
Print Ex"POSTを使って長い文章を入れてみましょう。ＨＴＭＬ表示です。"
Print Ex"<FORM METHOD=\qPOST\q ACTION=\q/cgi-bin/a.exe\q>"
Print EX"<TEXTAREA NAME=\qinputtext\q ROWS=5 COLS=50></TEXTAREA>"
Print Ex"<INPUT TYPE=reset VALUE=\qクリア\q>"
Print Ex"<INPUT TYPE=submit VALUE=\q記入したら押してください\q>"
Print Ex"</FORM>"
Print MakeStr(Text)
Print Ex "</BODY>"
Print Ex "</HTML>"
'ここで作成
Dim Text[1000] As Byte
Dim TextLength As Long
ReadFile(GetStdHandle(STD_INPUT_HANDLE), Text,1000,VarPtr(TextLength),ByVal 0)
Print Ex "Content-Type: text/html"
Print Ex"<HTML>"
Print Ex "<BODY>"
Print Ex"POSTを使って長い文章を入れてみましょう。ＨＴＭＬ表示です。"
Print Ex"<FORM METHOD=\qPOST\q ACTION=\q/cgi-bin/a.exe\q>"
Print EX"<TEXTAREA NAME=\qinputtext\q ROWS=5 COLS=50></TEXTAREA>"
Print Ex"<INPUT TYPE=reset VALUE=\qクリア\q>"
Print Ex"<INPUT TYPE=submit VALUE=\q記入したら押してください\q>"
Print Ex"</FORM>"
Print MakeStr(Text)
Print Ex "</BODY>"
Print Ex "</HTML>"