アラビア語がばかげて表示される

Question

私のユーザーは、アラビア語の新聞のアラビア語テキストをテキストエリアにコピー＆ペーストします。 私は、&＃1500のような文字コードに関してアラビア語を格納できるようにしたいと思います。 &＃1501;等々。それ、どうやったら出来るの？

私は次のスニペットを使用すると、間違った数字になってしまいます... まず、数字に変換する各文字は3桁の数字になりますが、アラビア文字コードのエンティティは4桁です。

IncomingArabic = request("IncomingArabic") 
MaxLen = Len(IncomingArabic) 
For i = 1 To MaxLen 
    curChar = Mid(IncomingArabic, lLoop, 1) 
    ''# curChar is an arabic char 
    iChr = Asc(curChar) ''# this gives me a 3 digit! And when I tried HEX(curChar) here, it gave a type mismatch error. 

    Encoded = Encoded & "&#" & iChr & ";" 
Next 
Response.write Encoded ''# shows gibberish! 

Answer 1

まあ、私は整理しました。下に置いたArabize関数を使うだけです。

''# example usage 
response.write Arabize(request("IncomingArabic")) //gives you the correct 4 digit sequence! 


Function Arabize(Str) 
    Dim Bytes 
    dim FromCharset, ToCharset 
    FromCharset = "windows-1256" 
    ToCharset = "windows-1256" 
    Bytes = StringToBytes(Str, FromCharset) 
    dim temp 
    temp = BytesToString(Bytes, ToCharset) 
    Arabize = server.htmlencode(temp) 

End Function 

''# you are gonna need the rest too... 
Const adTypeBinary = 1 
Const adTypeText = 2 

''# accept a string and convert it to Bytes array in the selected Charset 
Function StringToBytes(Str,Charset) 
    Dim Stream : Set Stream = Server.CreateObject("ADODB.Stream") 
    Stream.Type = adTypeText 
    Stream.Charset = Charset 
    Stream.Open 
    Stream.WriteText Str 
    Stream.Flush 
    Stream.Position = 0 
    ''# rewind stream and read Bytes 
    Stream.Type = adTypeBinary 
    StringToBytes= Stream.Read 
    Stream.Close 
    Set Stream = Nothing 
End Function 

''# accept Bytes array and convert it to a string using the selected charset 
Function BytesToString(Bytes, Charset) 
    Dim Stream : Set Stream = Server.CreateObject("ADODB.Stream") 
    Stream.Charset = Charset 
    Stream.Type = adTypeBinary 
    Stream.Open 
    Stream.Write Bytes 
    Stream.Flush 
    Stream.Position = 0 
    ''# rewind stream and read text 
    Stream.Type = adTypeText 
    BytesToString= Stream.ReadText 
    Stream.Close 
    Set Stream = Nothing 
End Function 

Answer 2

ここが私の考えです。 UTF-8を使用するためにすべてを切り替えます。フォームを投稿したページがResponse.CharSet = "UTF-8"とそのResponse.CodePage = 65001で送信されていることを確認してください。受信ページと同じですか？今では、どの言語が使用されているにせよ、あなたは何のためにも心配する必要はありません。