作為Microsoft的最新建立動態Web網站的工具,ASP.NET相對於ASP和JSP在改變原始的Web編程方式方面有了長足的長進。它的代碼與頁面分離技術(CodeBehind)以及完善的Web服務器控件為程序員提供了一個更加符合傳統編程的Web服務器端開發方式。但Web編程還是有著與傳統編程不相同的特點,這些特點決定了ASP.NET編程中必須以一些特殊的技巧來完成程序要求,彈出窗口正是這類編程方式的代表。相當多的編程書籍對彈出窗口采取緘默或者一語帶過,似乎看不過彈出窗口的巨大使用天地。本文將為你解開彈出窗口使用中的大多數問題。
為了提高網站的訪問的並發度和吞吐量,與其它服務器腳本一樣,ASP.NET同樣使用了客戶端腳本來減輕服務器的壓力。ASP.NET到現在(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時代就已經被支持了。它可以把代碼寫到客戶端,是一種相當方便且直觀的方法。以下代碼演示了如何使用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代碼,你會發現Response.Write方法生成的代碼是寫到了HTML代碼的最開始,即標簽之前。此時,所有的 HTML對象都還沒有生成,如果要想使用HTML內的對象,並與之交互,就會出現“找不到對象”的錯誤。因此,筆者推薦一個更加符合CodeBehind方式的方式----使用RegisterXXX方法。RegisterXXX包括:RegisterClientScriptBlock、RegisterStartupScript以及用於判斷的IsStartupScriptRegistered函數。
RegisterStartupScript 的原型是:
Overridable Public Sub RegisterStartupScript( _
ByVal key As String, _
ByVal script As String _
)
其中:key表示這個腳本的唯一標識,script是代表腳本的字符串。
RegisterClientScriptBlock的原型與RegisterStartupScript相同,兩個函數不同在於將其包含的腳本代碼寫入到HTML文件的不同位置。RegisterClientScriptBlock在 Page 對象的 元素的開始標記後立即發出客戶端腳本,RegisterStartupScript則是在Page 對象的 元素的結束標記之前發出該腳本。如果你的腳本有與頁面對象(doucument對象)進行交互的語句(這在我們後面的例子中看到),則推薦使用RegisterStartupScript,反之如果要想客戶端腳本盡可能早的執行,則可以使用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
‘判斷是否已經加入了該腳本,沒有則加入。
Dim strScript As String
strScript = " "
‘注冊腳本
RegisterClientScriptBlock("clientScript", strScript)
‘如果選擇”否”,則繼續向下執行。
End If
End Sub