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