EXCELダウンロード処理後の初期化

解決

みっち 2008-09-21 19:50:05 No: 140480

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

みっち 2008-09-26 05:29:58 No: 140481

原因が違ったのでクローズします。