EXCELダウンロード処理後の初期化 (ID:140480)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは。またおしえてください；；
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の内容が
残っているんです・・・・。
確かに処理は走っているのですが。
どなたか原因と対策をご教授願えないでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る