皆様、混乱させてしまったようで申し訳ありません。
整理して、記載します。
以下がシンプルにしたコードです。伝わりますでしょうか？
■送信側
Protected Sub Btn_Post_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) _
Handles Btn_Post.Click
Dim enc As Encoding = Encoding.GetEncoding("Shift_JIS")
Dim url As String = "http://localhost:51103/a.aspx"
Dim param As String = ""
param = "testrequest=" & HttpUtility.UrlEncode("POSTデータ", enc)
Dim data As Byte() = enc.GetBytes(param)
' リクエストの作成
Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.ContentLength = data.Length
' ポスト・データの書き込み
Dim reqStream As Stream = req.GetRequestStream()
reqStream.Write(data, 0, data.Length)
reqStream.Close()
' 「aへ遷移しました」ページへリダイレクトする
Server.Transfer("Moved.aspx")
End Sub
■受信側(a.aspx)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim enc As Encoding = Encoding.GetEncoding("Shift_JIS")
Dim sPostData As String = ""
' 受信したPOSTデータをURLデコード
Dim len As Integer = Request.ContentLength
If len <> 0 Then
Dim bdata As Byte() = Request.BinaryRead(len)
sPostData = enc.GetString(bdata)
sPostData = HttpUtility.UrlDecode(sPostData, enc)
End If
Session("post_data") = sPostData
' sPostDataには正しく「POSTデータ」が格納されている事は確認
' このあとa.aspxがブラウザに表示されないので、
' b.aspxに遷移させてみる
Server.Transfer("b.aspx")
'Response.Redirect("b.aspx")
End Sub
■b.aspx
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' ここにブレークポイントを設定し、遷移は確認できるが、
' b.aspxはブラウザに表示されない
Me.Lbl_PostData.Text = CStr(Session("post_data"))
End Sub
■テスト方法
送信側webページをブラウザに表示させて、Btn_Postをクリックすると、Btn_Post_Clickに入り、
別PJで実行させておいた、受信用の"http://localhost:51103/a.aspx"へ遷移します。
（この時点でブラウザには送信側の"Moved.aspx"が表示されます）
あとは、a.aspxのPage_Load内でPOSTデータを展開後、Server.Transfer("b.aspx")で
b.aspxのPage_Loadにデバッグ実行で遷移しますが、
ブラウザにはb.aspxは表示されません。
ここでb.aspxを表示させたいと思っています。
伝わりましたでしょうか？
よろしくお願いします。
