作為Microsoft的最新建立動態(tài)Web網(wǎng)站的工具，ASP.NET相對于ASP和JSP在改變原始的Web編程方式方面有了長足的長進。它的代碼與頁面分離技術（CodeBehind）以及完善的Web服務器控件為程序員提供了一個更加符合傳統(tǒng)編程的Web服務器端開發(fā)方式。但Web編程還是有著與傳統(tǒng)編程不相同的特點，這些特點決定了ASP.NET編程中必須以一些特殊的技巧來完成程序要求，彈出窗口正是這類編程方式的代表。相當多的編程書籍對彈出窗口采取緘默或者一語帶過，似乎看不過彈出窗口的巨大使用天地。本文將為你解開彈出窗口使用中的大多數(shù)問題。

    為了提高網(wǎng)站的訪問的并發(fā)度和吞吐量，與其它服務器腳本一樣，ASP.NET同樣使用了客戶端腳本來減輕服務器的壓力。ASP.NET到現(xiàn)在(1.1版)為止并不直接支持彈出窗口，必須通過JavaScript（或VBScript）來使用客戶端彈出窗口。

一、 警告窗口與在CodeBehind中使用客戶端腳本的方式

要在瀏覽器中彈出一個最簡單的警告窗口，可以使用JavaScript語句：

window.alert( [sMessage])

其中，sMessage是提示信息。可惜，這樣的彈出窗口是只有一個“確定”按鈕，只能起到提示作用。如果我們要在刪除記錄時候彈出一個詢問的彈出窗口，此時你需要使用：

bConfirmed = window.confirm( [sMessage])

其中：bConfirmed是返回值，sMessage是提示信息。這個彈出窗口有兩種選擇：“確定”或“放棄”，其選擇的返回值放在bConfirmed中，可供代碼作出判斷。

為了提高代碼的可重用性與可讀性，應當使JavaScript與Codehind相互溶合。通常有兩種方式可以達到這樣的效果。

（1） 使用Response.Write方法：

使用Response.Write方法早在ASP時代就已經(jīng)被支持了。它可以把代碼寫到客戶端，是一種相當方便且直觀的方法。以下代碼演示了如何使用Response.Write方法來顯示一個警告信息。

Private Sub btAlert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAlert.Click

'演示Response.Write方法和alert窗口。

Response.Write(" ")

End Sub

（2） 使用RegisterXXX方法

如果你觀察Response.Write的生成HTML代碼，你會發(fā)現(xiàn)Response.Write方法生成的代碼是寫到了HTML代碼的最開始，即標簽之前。此時，所有的 HTML對象都還沒有生成，如果要想使用HTML內(nèi)的對象，并與之交互，就會出現(xiàn)“找不到對象”的錯誤。因此，筆者推薦一個更加符合CodeBehind方式的方式----使用RegisterXXX方法。RegisterXXX包括：RegisterClientScriptBlock、RegisterStartupScript以及用于判斷的IsStartupScriptRegistered函數(shù)。

RegisterStartupScript 的原型是：

Overridable Public Sub RegisterStartupScript( _

ByVal key As String, _

ByVal script As String _

)

其中：key表示這個腳本的唯一標識，script是代表腳本的字符串。

RegisterClientScriptBlock的原型與RegisterStartupScript相同，兩個函數(shù)不同在于將其包含的腳本代碼寫入到HTML文件的不同位置。RegisterClientScriptBlock在 Page 對象的 元素的開始標記后立即發(fā)出客戶端腳本，RegisterStartupScript則是在Page 對象的 元素的結束標記之前發(fā)出該腳本。如果你的腳本有與頁面對象(doucument對象)進行交互的語句（這在我們后面的例子中看到），則推薦使用RegisterStartupScript，反之如果要想客戶端腳本盡可能早的執(zhí)行，則可以使用RegisterClientScriptBlock或Response.Write。

為了防止在頁面中反復加入腳本，在注冊腳本時ReisterStartupScript/RegisterClientScriptBlock使用了key作為注冊的Key，然后在程序中可以使用IsClientScriptBlockRegistered作判斷。

以下例子將使用RegisterClientScriptBlock來演示confirm的使用方法。

Private Sub btConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btConfirm.Click

'演示RegisterClientScriptBlock方法和confirm窗口

If (Not IsClientScriptBlockRegistered("clientScript")) Then

‘判斷是否已經(jīng)加入了該腳本，沒有則加入。

Dim strScript As String

strScript = " "

‘注冊腳本

RegisterClientScriptBlock("clientScript", strScript)

‘如果選擇”否”，則繼續(xù)向下執(zhí)行。

End If

End Sub

[1] [2]  下一頁