<script language=javascript><!--
/*@cc_on @*/
/*@if (@_win32 && @_jscript_version>=5)
window.confirm = function(str)  //Author: meizz
{
    str=str.replace(/\'/g, "'&chr(39)&'").replace(/\r\n|\n|\r/g, "'&VBCrLf&'");
    execScript("n = msgbox('"+ str +"', 3, '自定的的 confirm')", "vbscript");
    return(n == 6);
}
@end @*/
alert(confirm('1.\'第一行\';\r\n2.第二行;\r\n'));
// --></script>

解决方案 »

  1.   

    以前写的一个玩的,不是很好,慎用<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <script language="JavaScript">
    <!--
    var oPopup=window.createPopup();
    var oPopbody=oPopup.document.body;
    function EditBox(strMsg){
    if(typeof(strMsg)!="string") throw(new Error(-1, '传入的参数类型不是字符串!'));
    if(arguments.length==1) throw(new Error(-1, 无法创建没有按钮的对话框!'));
    //arguments
    var strHtml= '<table width="100%" height="100%" cellpadding="0" cellspacing="0" border="0">';
    strHtml += '<tr height="20" style="background-color:blue"><td colspan="3"align="right"><input type="button" id="0" style="width:20px; height:20px" onclick="parent.btnClk(this)" value="&iexcl;&Aacute;"></td></tr>';
    strHtml += '<tr><td width="15%">&nbsp;</td><td width="70%" align="left" valign="middle">'+arguments[0]+'</td><td width="15%">&nbsp;</td></tr>';
    strHtml += '<tr height="22"><td>&nbsp;</td><td id="btnArea">';
    for(var i=1;i<arguments.length;i++)
    strHtml +='<input type="button" id='+i+' value='+ arguments[i]+' onclick="parent.btnClk(this)">&nbsp;';
    strHtml += '</td><td>&nbsp;</td></tr>';
    strHtml += '<tr height="10"><td colspan="3" align="right"><font style="font-size:10px">code by meixx!</font></td></tr>';
    strHtml += '</table>';
    strHtml += '';
    oPopbody.style.cssText="background-color: buttonface;border:3px solid; border-color: buttonhighlight buttonshadow buttonshadow buttonhighlight;;overflow:hidden;margin:0";
    oPopbody.innerHTML=strHtml;
    oPopup.show(100,100,240,120,document.body);}
    function btnClk(src){
    var winRtnVal=parseInt(src.id,10);
    oPopup.hide();
    switch(winRtnVal){
    case 1: break;
    default: break;
    }
    alert(winRtnVal);
    }//-->
    </script>
    </head>
    <body>
    <script language="JavaScript">
    <!--
    EditBox("&Ccedil;&euml;&Ntilde;&iexcl;&Ocirc;&ntilde;&Ograve;&ordf;&frac12;&oslash;&ETH;&ETH;&micro;&Auml;&sup2;&Ugrave;×÷!","&Ocirc;&ouml;&frac14;&Oacute;","&ETH;&THORN;&cedil;&Auml;","&Eacute;&frac34;&sup3;&yacute;");
    //-->
    </script>
    <table width="100%" height="100%" cellpadding="0" cellspacing="0" border="1" style="display:none">
    <tr height="20"><td colspan="3"></td></tr>
    <tr><td width="15%"></td><td width="70%" align="left" valign="middle"></td><td width="15%"></td></tr>
    <tr height="22"><td></td>
    <td id="btnArea"></td>
    <td></td></tr>
    <tr height="10"><td colspan="3" align="right"><font style="font-size:10px">code by meixx!</font></td></tr>
    </table>
    </body>
      

  2.   

    偶也来一个
    <script language=javascript>
    function msgbox()
    {
    vbmsgbox();
    }
    </script>
    <script language=vbscript>
    function vbmsgbox
    msgbox "您好",3,"大家好"
    end function
    </script>
    <input name=a123 type=button onclick=msgbox() value="弹出">
      

  3.   

    老大就是把confirm方法转化了一下VBSCRIPT中msgbox
    然后判断返回值6,是6证明点的是YES