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("【注意】删除后无法恢复数据，确定删除?")