こんにちは。またおしえてください；；
vb.net2003でweb開発をしています。
excelをダウンロードする画面を作っています。
新規のプロジェクトを参照し、そのプロジェクトにtext1.aspxとtest2.aspx
を作ります。
そして、test1では、ファイルアップロードのコントロール、登録ボタン、
そして、エラーやメッセージを出力するReardOnlyのテキストボックスを貼り付けます。
また、test2では、test1の登録ボタンから
Response.Redirect("test2.aspx", False)
でexcelを出力しています。
'Test1.aspx.vb
Private Sub btnDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpLoad.Click
'メッセージクリア
Me.txtMsg.Text = String.Empty
'ファイルダウンロード
Response.Redirect("Test2.aspx", False)
End Sub
'Test2.aspx.vbのほうのダウンロード処理
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fi As FileInfo 'ファイル情報取得オブジェクト
Dim si As FileStream 'ダウンロードファイルストリーム
Response.ContentType = "Application/Vnd.MS-Excel"
Response.Buffer = True
Response.Clear()
flItem = New FileInfo("C:\temp\temp_sample.xls")
Dim Buffer(flItem.Length) As Byte
stItem = New FileStream("C:\temp\temp_sample.xls", FileMode.Open)
'StreamからBufferへ読み込む
si.Read(Buffer, 0, si.Length)
si.Close()
fi.Delete()
Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode("sample.xls"))
Response.BinaryWrite(Buffer)
'終了処理***
flItem = Nothing
End Sub
問題は、test2のダウンロード処理がおわったとき、test1のtxtMsgの内容が
残っているんです・・・・。
確かに処理は走っているのですが。
どなたか原因と対策をご教授願えないでしょうか？
原因が違ったのでクローズします。
編集 削除