ActiveServerPageにてプログラム内でPOST送信をしています。

URLEncodeも試しました。BASPを使って文字コード自体をUTF-8等に切り替えたりしてみたのですが、ダメでした。ASPファイルの文字コードはSJISです。

ありがとうございます。ADODB.Streamを使用しても以前文字化けするようです。

ただ、上記に加えxmlhttpをNothingすることで相手先のサーバーから帰ってくる（応答）HTMLの文字化けが解消されました。また、情報があればお教えいただければありがたいです。

現在、お教えいただいたコードを元に下記のようにしております。

「回答へのコメント」というのはどこから見るのでしょうか。（スミマセン。はてなの使い方がわかっていないかもしれません）

今一度情報を整理して記載します。

サーバーAからPOSTでデータをサーバーBに飛ばします。

サーバーBでは受け取ったデータをDBに格納し、サーバーAにHTMLを返します。

このHTMLは「処理が終了しました。」という内容だけのHTMLになります。

もともとの状況として、サーバーBでPOSTで受け取ったデータが文字化けしていて

且つ、戻ってくるHTMLも文字化けしているという状況でした。

festerさんに教えていただいたADODB.Streamでの文字コード変換によって、

HTMLの文字化けは解消したのですが、サーバーBでPOSTで受け取ったデータの

文字化けは改善されない状態です。

xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

を追加してもNGでした。

xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=SJIS"

としても同様にNGでした。

HTMLのフォームを作成してそこからPOSTした場合は正しく処理されるので、

サーバーBの問題ではなく、サーバーAのPOSTするプログラムの問題だと思っております。

たしか、はてなは回答が2回までとの制限があったかとおもいますので、

この質問の続きを別質問で立てまして、一人の回答数を50件までに拡張しました。

http://q.hatena.ne.jp/1226539573

こちらになります。

もし、お時間があいているときがあれば引き続きご教授いただけるとうれしいです。

Option Explicit

Dim html

Dim url, strPostData

url = "http://xxx/xxx.asp"

strPostData = "aaa=あああ"

html = GetHttpResponse("POST", url, strPostData, "Shift_JIS")

Response.Write html

Private Function GetHttpResponse(ByVal methodType, ByVal url, ByVal sendData, ByVal charset)

Const adTypeBinary = 1

Const adTypeText = 2

Const agent = "Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.1)"

Dim dst

Set dst = Server.CreateObject("ADODB.Stream")

dst.Open

dst.Type = adTypeBinary

Dim xmlhttp

Set xmlhttp = Server.CreateObject("Msxml2.XMLHTTP")

xmlhttp.Open methodType, url, False

xmlhttp.SetRequestHeader "User-Agent", agent

xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xmlhttp.send (sendData)

dst.Write (xmlhttp.responseBody)

dst.Position = 0

dst.Type = adTypeText

dst.charset = charset

GetHttpResponse = dst.ReadText

dst.Close

Set xmlhttp = Nothing

Set dst = Nothing

End Function