<% @Page CodePage="932" %>
<SCRIPT language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim sjis As String = ""
Response.Charset = "shift_jis"
if Request.QueryString("value") = "送信" then
sjis = "送信を受信しました"
end if
Response.Write( sjis )
End Sub
</SCRIPT>
ASP での問題点は全く姿を消しています。
入力がたとえ UTF-8 日本語でも、SHIFT_JIS に変換してくれます。
<% @Page CodePage="932" %>
<SCRIPT language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Response.Write( Server.UrlEncode("送信") & "<br>" )
Response.Write( Server.UrlEncode(Request.QueryString("value")) & "<br>" )
End Sub
</SCRIPT>
