ＡＳＰ(VBScript) にて、

今手元に環境が無いのでスクリプトを書いて確認はできませんが、

1.BASP21のKConvでEUCに変換

2.Server.URLEncodeでURLエンコード

で対応できると思います。

こちらは いかがでしょうか？

相変わらず環境が無いのですが、おそらくこれで行けると思うのですが・・・。

（BASP21のインストールは先に行ってください。）

Set bobj = Server.CreateObject(”basp21”)

Response.Write(Server.URLEncode(bobj.Kconv(”あいうえお”,2)))

EUCでEUCに変換とありますが、目的によって回答が変わります。

aspのデフォルトの文字コードはSJISです（プログラム内の文字データはunicodeですが）。そのためEUCの文字データを正しく変数に格納することができません。

単純にaspからEUCでページ内容を出力するだけでいいなら、aspファイルをEUCで作成し、

<%@codepage=51932%>

<%

Response.Write(.....)

%>

とすれば、ページの文字コードはEUCになります。（上記ページの通り、一部コードに不一致がありますが）

basp21のKconvメソッドでも、EUCには変換できているのです。しかし返値が文字列ではなく「バイト配列」であることに注意が必要です。

このままではResponse.Writeしても文字化けしますし、Server.URLEncodeでも期待する結果は返りません。

aspファイルの文字コードはSJISのままEUCの文字列を出力するのが目的なら、以下のコードでOKです。

Set bobj = Server.CreateObject(”basp21”)

Response.BinaryWrite(bobj.Kconv(”あいうえお”,2))

URLエンコードの結果が必要なら、無理矢理ですがこんな感じで。

txt = ”アイウエオ”

set basp = Server.CreateObject(”basp21”)

euc = basp.Kconv(txt, 2)

set xml = Server.CreateObject(”Msxml2.DOMDocument”)

set node = xml.createElement(”data”)

node.dataType = ”bin.hex”

node.nodeTypedValue = euc

for i = 0 to len(node.text) step 2

Response.Write(”%” + mid(node.text, i, i + 2))

next

VBScriptは不慣れなんで間違ってたらすいません。