レガシASPでサイトを作ってると、Shift-JISなサイトを作るのが基本になると思います。なんでかというと、FileSystemObjectが基本的にShift-JISの読み書きにしか対応しておらず（UTF-16もいけますが）、いまどきのUTF-8を使うのはちょっと面倒です（FSOの代わりにADODB.Streamを使えば行けますけどどうでしょうねー？私はあんまり好きじゃないです）。
ただ、UTF-8な他のWebサイト/サービスと連携する場合はどうしても避けて通れません。そこでレガシASPでShift-JISなページを作る際、UTF-8文字列を扱う上で知っておくべきこと。
1. escape関数を使うとShift-JISでURLエンコードがされる
ASPはだいたいVBScriptで書くと思うんですが、隠し関数であるescape関数を使うとURLエンコードができます。ですが、escape関数は呼び出し元のページコードの文字コードでエンコードします。なのでShift-JISなページで呼び出すとShift-JISのエンコードURLを出力します。（ちなみにWSHで使うとUTF-16のものになる）
JScriptのencodeURIComponent関数はどんな場合でもUTF-8文字列を出力するので、これを使うといいでしょう。使い方はこうです。
Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Set js = sc.CodeObject
Response.Write js.encodeURIComponent("文字列")
逆にShift-JISなページでShift-JISなエンコードURL文字列を取得したい場合は単にescape関数を呼び出せばいいです。
さらに別なケースですがUTF-8なページでShift-JISなエンコードURLを取得したい場合は、こんな関数を使うといいんじゃないでしょうか。
2. XMLHTTPでPostメソッドでSendする際は必ずUTF-8でURLエンコードがされる
Set xh = CreateObject("MSXML2.XMLHTTP")
xh.Open "POST", "http://hogehoge/hoge.aspx", False
xh.Send "文字列"
このように何も考えずに書いても、勝手にUTF-8でURLエンコードされてPostされるので大丈夫です。
3. UTF-8なページのHTMLを読み込む際
標準機能だけでやろうと思うとADODB.Streamを使うしかないと思います。
ちなみに読み込むページの文字コードが不明の場合は判定した上で変換する必要がありますが、これはかなり面倒なので、BASP21を使うといいんじゃないでしょうか。
Function GetPageString(strUrl)
Set bobj = CreateObject("basp21")
Set oHTTP = CreateObject("Msxml2.XMLHTTP")
oHTTP.Open "GET", strUrl, False
oHTTP.Send
GetPageString = bobj.Kconv (oHTTP.responseBody,4)
End Function
これは引数にURLを与えるとそのHTMLを文字列として取得します。対象の文字コードが何であってもOKなのがミソ。
4. UTF-8のURLエンコードされたクエリ、あるいはPOSTされたデータを受ける際
これのやり方が分からない！具体的にはトラックバックpingなんかを受け取る際に困ります（さすがにShift-JISでトラックバックpingを送れ！というのはゴーマンだと思います）。私はここだけASP.NETを使って逃げました。どなたかやり方わかります？
追記。Request.BinaryReadしたやつをADODB.Streamにかけたあと&でsplitして=でsplitしてDictionaryに入れてdecodeURIComponentすればいけるかな？
ただし、ここだけASP.NETを使う際にも注意が必要です。まずweb.configの＜system.web＞セクションに
＜globalization
requestEncoding="Shift-JIS"
responseEncoding="Shift-JIS"
fileEncoding="Shift-JIS"/＞
というのを埋め込んで、まずレスポンスエンコーディングをShift-JISにしておきます。IISの設定でもいいですが。
続いてコーディング。Request.QueryStringやRequest.Formは使えないので、Request.InputStreamを使ってごりごり読まないと駄目じゃないかな・・・。なぜかVB.NETですがUTF-8なトラックバックpingをShift-JISなページで受けるサンプルコードを。
Dim str As System.IO.Stream
Dim counter, strLen, strRead As Integer
str = Request.InputStream
strLen = CInt(str.Length)
Dim strArr(strLen) As Byte
strRead = str.Read(strArr, 0, strLen)
Dim Forms As New Dictionary(Of String, String)
For Each item As String In Split(Encoding.UTF8.GetString(strArr),"&")
If InStr(item, "=") Then
Dim s As String() = Split(item, "=")
If s.Length = 2 And Not Forms.ContainsKey(s(0)) Then
Forms.Add(s(0), HttpUtility.HtmlEncode(HttpUtility.UrlDecode(s(1), Encoding.UTF8)).Trim().Replace(vbNullChar, ""))
End If
End If
Next
↑自分でも謎なコードを書いてたのでちょっとマシなのに修正。コンパイル通るかどうかわかりませんが・・・さらにゴミコードが残ってたのでバッサリ切りました。
ただし！これの問題は改行コードが消えることなんです。対処法は見つけていません（勘違いでした）。もっといい方法があったら教えてください。そもそもInputStreamを使わないでRequest.Formとか使いたいんですが、Shift-JISのところにUTF-8が来るとうまくいかないですねぇー。
というわけで長々と書きましたが、Shift-JISにこだわらなければこんなに苦労することはないです。FileSystemObjectがUTF-8を読み書きできないので私はSJISにこだわってるだけです。FSOはWSHからも使いますので・・・