Ajax 日本語処理 ( ASP )


  通常のコードページで UTF-8 -> EUC-JP



入力データは必ず UTF-8 なので、入力変換部分は同じになります。しかし、出力を EUC-JP にする為に変換関数が必要になります

また、EUC-JP は、デフォルトコードページからは、バイナリデータになるので、出力には Response.BinaryWrite を使用します。
( ※ Charset と実際のキャラクタセットを一致させるのを忘れないで下さい )

  
<%
Response.ContentType = "text/html"
Response.Charset= "euc-jp"
Response.ExpiresAbsolute=#May 31,2000 23:59:59#

Set Stream = Server.CreateObject( "ADODB.Stream" )
Set CAPIUtil = Server.CreateObject( "CAPICOM.Utilities" )
Set MyData = Server.CreateObject("Scripting.Dictionary")

' **********************************************************
' UTF-8 入力文字列の変換
' **********************************************************
Function ConvertQueryString()

	Dim InData,nData,aData,I,strChar

	Stream.Open

	InData = Split( Request.QueryString, "&" )
	For nData = 0 to Ubound( InData )
		
		Stream.Position = 0
		Stream.SetEOS
		Stream.Charset = "utf-8"
		Stream.Type = 1 ' バイナリ

		aData = Split( InData(nData), "=" )
		strChar =""
		For I = 1 to Len( aData(1) )
			strChar = Mid( aData(1), I, 1 )
			if strChar = "%" then
				I = I + 1
				strChar = ChrB(CLng( "&H" & Mid( aData(1), I, 2 ) ))
				I = I + 1
			else
				strChar = ChrB(Asc(strChar))
			end if

			ByteArray = CAPIUtil.BinaryStringToByteArray( strChar )
			Stream.Write ByteArray

		Next

		Stream.Position = 0
		Stream.Type = 2 ' テキスト
		MyData( aData(0) ) = Stream.ReadText()

	Next

	Stream.Close 

End Function

' ************************************************
' 内部コードを EUC-JP へ変換
' ************************************************
function ConvCharset( strValue )

	Stream.Open

	Stream.Position = 0
	Stream.SetEOS
	Stream.Type = 2	' テキスト
	Stream.Charset = "euc-jp"
	Stream.WriteText strValue
	Stream.Position = 0
	Stream.Type = 1 ' バイナリ
	ConvCharset = Stream.Read()

	Stream.Close 

end function

Call ConvertQueryString()

euc = ""
' shift_jis で比較
if MyData("value") = "送信" then
	euc  = ConvCharset( "送信を受信しました" )
end if

Response.BinaryWrite euc

%>
  










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




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


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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ