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

解決

みっち 2008-09-21 10: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-25 20:29:58 No: 140481

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