js自定義提示框

  window.confirm   =   function(str)    
  {  

          //實現換行
          str=str.replace(//'/g,   "'&chr(39)&'").replace(//r/n|/n|/r/g,   "'&VBCrLf&'");
          execScript("n   =   msgbox('"+   str   +"',   4,   '操作提示')",   "vbscript");  
          return(n==6);  
  }

測試代碼：alert(confirm('1./'第一行/';/r/n2.第二行;/r/n'))

在頁面開始處加上這段JS腳本，就可以實現了。

紅色的“4”是VBS中MsgBox函數的一個參數，等於 vbYesNo

也可以使用其他參數，達到不同的提示按鈕效果

參數說明：

//      值                     描述
//    vbOKOnly       　　　　　　 0            只有 OK 按鈕（缺省值）
//    vbOKCancel   　　　　　　　 1   　　　　　OK 和 Cancel 按鈕
//    vbAbortRetryIgnore 　　　  2  　　　　　 Abort、Retry，和 Ignore 按鈕
//    vbYesNoCancel   　　　　　 3   　　　　　 Yes、No，和 Cancel 按鈕
//    vbYesNo   　　　　　　　　　4   　　　　　 Yes 和 No 按鈕
//    vbRetryCancel   　　　　　 5   　　　　　 Retry 和 Cancel 按鈕
//    vbCritical                16           關鍵消息
//    vbQuestion                32           警告詢問
//    vbExclamation             48           警告消息
//    vbInformation             64           通知消息
//    vbDefaultButton1          0            第一個按鈕是缺省的（缺省值）
//    vbDefaultButton2          256          第二個按鈕是缺省的
//    vbDefaultButton3          512          第三個按鈕是缺省的
//    vbDefaultButton4          768          第四個按鈕是缺省的
//    vbApplicationModal        0            應用程序形態的消息框（缺省值）
//    vbSystemModal             4096         系統強制返回的消息框
//    vbMsgBoxHelpButton        16384        添加Help按鈕到消息框
//    VbMsgBoxSetForeground     65536        指定消息框窗口作爲前景窗口
//    vbMsgBoxRight             524288       文本是右對齊的
//    vbMsgBoxRtlReading        1048576      指定在希伯來語和阿拉伯語系統中，文本應當顯示爲從右到左讀
//    MsgBox          返回值常數             值                描述
//    vbOK            1                 按下 OK 按鈕
//    vbCancel        2                 按下 Cancel 按鈕
//    vbAbort         3                 按下 Abort 按鈕
//    vbRetry         4                 按下 Retry 按鈕
//    vbIgnore        5                 按下 Ignore 按鈕
//    vbYes           6                 按下 Yes 按鈕
//    vbNo            7                 按下 No 按鈕

//測試  confirm("【注意】刪除後無法恢復數據，確定刪除?")