重寫javascript中window.confirm的行為_javascript技巧

javascript中window.confirm這個方法很好用，可以彈出一個確認對話框

我們之所以彈出這個對話框，可能就是因為該操作很危險，所以要用戶確認。但如果預設選擇"確定"，則可能違背了這個原則。
另外，confirm對話框的按鈕都是固定在"確定"和"取消"這兩個。可能有些時候也不是很直覺。
所以，可以考慮用vbscript裡的msgbox來改寫這個行為。以下是一個範例

複製程式碼 程式碼如下:

<script> <BR>function deleteConfirm(msg) <BR>{ <BR>function window.confirm(str) <BR>{ <BR>function window.confirm(str) <BR>{ <BR>str= str.replace(/'/g, "'& chr(39) &'").replace(/rn/g, "'& VBCrLf &'"); <BR>execScript("n = msgbox('" str "', 289, '刪除框')", "vbscript"); <BR>return(n == 1); <BR>} <BR>return window.confirm(msg); <BR>} <BR></script>

onclick="deleteButton_Click" />

關於msgbox 方法的具體細節，也可以參考下面的介紹

MsgBox 函數
在對話方塊中顯示訊息，等待使用者點擊按鈕，並傳回一個值指示使用者單擊的按鈕。
MsgBox(prompt[, buttons][, title][, helpfile, context])
參數
prompt
作為訊息顯示在對話方塊中的字串表達式。 prompt 的最大長度大約是 1024 個字符，這取決於所使用的字符的寬度。如果prompt 中包含多個行，則可在各行之間用回車符(Chr(13))、換行符(Chr(10)) 或回車換行符的組合(Chr(13) & Chr(10) ) 分隔各行。
Buttons
數值表達式，是表示指定顯示按鈕的數目和類型、使用的圖示樣式，預設按鈕的標識以及訊息框樣式的數值的總和。有關數值，請參閱“設定”部分。如果省略，則buttons 的預設值為 0。
Title
顯示在對話方塊標題列中的字串表達式。如果省略 title，則將應用程式的名稱顯示在標題列中。
Helpfile
字串表達式，用於標識為對話方塊提供上下文相關幫助的幫助文件。如果已提供helpfile，則必須提供 context。在 16 位元系統平台上不可用。
Context
數值表達式，用於標識由說明文件的作者指定給某個幫助主題的上下文編號。如果已提供 context，則必須提供 helpfile。在 16 位元系統平台上不可用。
設定
buttons 參數可以有下列數值： 

常數	值	描述
vbOKOnly	0	只顯示確定按鈕。
vbOKCancel	1	顯示確定和取消按鈕。
vbAbortRetryIgnore	2	顯示放棄、重試和忽略按鈕。
vbYesNoCancel	3	顯示是、否和取消按鈕。
vbYesNo	4	顯示是和否按鈕。
vbRetryCancel	5	顯示重試和取消按鈕。
vbCritical	16	顯示臨界資訊圖示。
vbQuestion	32	顯示警告查詢圖示。
vbExclamation	48	顯示警告訊息圖示。
vbInformation	64	顯示訊息訊息圖示。
vbDefaultButton1	0	第一個按鈕為預設按鈕。
vbDefaultButton2	256	第二個按鈕為預設按鈕。
vbDefaultButton3	512	第三個按鈕為預設按鈕。
vbDefaultButton4	768	第四個按鈕為預設按鈕。
vbApplicationModal	0	應用程式模式：使用者必須回應訊息框才能繼續在目前應用程式中工作。
vbSystemModal	4096	系统模式：在用户响应消息框前，所有应用程序都被挂起。

第一组值 (0 - 5) 用于描述对话框中显示的按钮类型与数目；第二组值 (16, 32, 48, 64) 用于描述图标的样式；第三组值 (0, 256, 512) 用于确定默认按钮；而第四组值 (0, 4096) 则决定消息框的样式。在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。

返回值
MsgBox 函数有以下返回值：

常数	值	按钮
vbOK	1	确定
vbCancel	2	取消
vbAbort	3	放弃
vbRetry	4	重试
vbIgnore	5	忽略
vbYes	6	是
vbNo	7	否

說明
如果同時提供了 helpfile 和 context，則使用者可以按 F1 鍵以查看與上下文相對應的說明主題。

如果對話方塊顯示取消按鈕，則按 ESC 鍵與按一下取消的效果相同。如果對話方塊包含幫助按鈕，則有為對話方塊提供的上下文相關幫助。但是在單擊其他按鈕之前，不會傳回任何值。

當MicroSoft Internet Explorer使用MsgBox函數時，任何對話方塊的標題總是包含"VBScript",以便於將其與標準對話方塊區分開來。

下面的範例示範了MsgBox 函數的用法：

複製程式碼

複製程式碼

程式碼>
Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")

' MyVar contains either 1 or 2, depending on which button is clicked