例: 「%E3%83%86%E3%82%B9%E3%83%88」 ↓ 「テスト」
http://www.vector.co.jp/soft/win95/util/se343986.html
こちらを使うのは、どうでしょうか?
BASP21はご存知かと思いますが、
Kconv 漢字コード変換
を使用したらいかがでしょうか?
http://www.hi-ho.ne.jp/babaq/basp21.html#0030
やってみたんですけど、どれもテストって返ってこないんですよねぇ。
<%
Dim instr, basp, output
instr = "%E3%83%86%E3%82%B9%E3%83%88 "
Set bobj=Server.CreateObject("BASP21")
For ii = 0 To 6
For jj = 0 To 6
output = bobj.Kconv(instr, ii, jj)
Response.Write("ii:" & ii)
Response.Write("ii:" & jj)
Response.WRite(output)
Response.WRite("" & vbCrLf)
Next
%>
コメントはまだありません
これ以上回答リクエストを送信することはできません。制限について
ログインして回答する
やってみたんですけど、どれもテストって返ってこないんですよねぇ。
<%
Dim instr, basp, output
instr = "%E3%83%86%E3%82%B9%E3%83%88 "
Set bobj=Server.CreateObject("BASP21")
For ii = 0 To 6
For jj = 0 To 6
output = bobj.Kconv(instr, ii, jj)
Response.Write("ii:" & ii)
Response.Write("ii:" & jj)
Response.WRite(output)
Response.WRite("
" & vbCrLf)
Next
Next
%>