< HTML >  
< HEAD >  
    < Title > 正则表达式测试工具——JavaScript RegExp引擎</Title >  
    < META   http-equiv = "Content-Type"   content = "text/html; charset=gb2312" >  
    < META   name = "Generator"   content = "Asp Studio 1.0" >  
</ HEAD >  
 
< BODY   onKeyDown = ChkTest ( event ) >  
 
<!-- 请在这里输入您的HTML代码 -->  
< table   width = "90%" >  
    < tr   width = "100%" >  
        < th   width = "50%" >  
            < label > 正则字符</label >  
        </ th >  
        < th   width = "50%" >  
            < label > 匹配字符</label >  
        </ th >  
    </ tr >  
    < tr   width = "100%" >  
        < td   width = "50%" >  
            < p   align = "center" >  
                < TEXTAREA   rows = "15"   cols = "40"   id = "RegEx" > 这里输入正则匹配式 </ TEXTAREA >  
            </ p >  
        </ td >  
        < td   width = "50%" >  
            < p   align = "center" >  
                < TEXTAREA   rows = "15"   cols = "40"   id = "Subject" > 这里输入等待匹配的字符</TEXTAREA >  
            </ p >  
        </ td >  
    </ tr >  
    < tr   width = "100%"   align = "center" >  
        < td   width = "50%" >  
            < label > < INPUT   type = "checkbox"   ID = "Checkbox1"   NAME = "Checkbox1" > 忽略大小写</label >   
            < label > < INPUT   type = "checkbox"   ID = "Checkbox2"   NAME = "Checkbox2" > 单行模式</label >   
            < label > < INPUT   type = "checkbox"   ID = "Checkbox3"   NAME = "Checkbox3" > 多行模式</label >   < br >  
            < label > < INPUT   type = "checkbox"   ID = "Checkbox4"   NAME = "Checkbox4" > 全局模式</label >   
            < label > < INPUT   type = "checkbox"   ID = "Checkbox5"   NAME = "Checkbox5" > 扩展模式</label >   
        </ td >  
        < td   width = "50%" >  
            < INPUT   align = "center"   type = "button"   value = "验证" ID=" Button1 " NAME=" Button1 " onClick=RegTest();> 
            <label>Ctrl + Enter可快速验证</label> 
        </td> 
    </tr> 
</table> 
<Script language=" vbscript "> 
//请在这里输入您的Javascript代码 
function getOption() 
    dim i,objCheck 
     
    for i=1 to 5 
        objCheck=document.getElementById(" CheckBox " & i) 
        if objCheck.value  <> 0 then 
            msgbox " ok " 
        end if 
    next 
end function 
</Script> 
 
<Script language=" vbscript "> 
//请在这里输入您的Javascript代码 
function getOption() 
    dim i,objCheck 
     
    for i=1 to 5 
        objCheck=document.getElementById(" CheckBox " & i) 
        if objCheck.value  <> 0 then 
            msgbox " ok " 
        end if 
    next 
end function 
</Script> 
<Script language=" Javascript "> 
function RegTest(){ 
    var i=1; 
    var Obj; 
    var s; 
    for (i=1;i <6;i++) 
    { 
        Obj=document.getElementById(" CheckBox " + i); 
        if (Obj.checked) 
        { 
            if (i == 1 ) s=" i ";          
            if (i == 3 ) s=s + " m "; 
            if (i == 4 ) s=s + " g "; 
             
        } 
    } 
     
     
     
    var re = new RegExp(window.document.getElementById(" RegEx ").value, s); 
     
    // 查找 
    var mresult = re.exec(window.document.getElementById(" Subject ").value); 
     
    if( mresult != null ) 
    { 
         alert(" 找到了:  " + mresult); 
    } 
  else 
  { 
              alert(" 没有匹配式"); 
  } 
 
} 
 
function   ChkTest ( keys ) 
{ 
    if  ( keys . ctrlKey  &&  keys . keyCode  == 13 )  RegTest (); 
} 
</ Script >  
</ body >  
</ html >