1 function vbscript(){
2 try{
3 var script=document.getElementById("K1").value;
4 if(script.trim()=="")return;
5 window.execScript('On Error Resume Next \n'+script+'\n If Err.Number<>0 Then \n MsgBox "请输入正确的VBScript脚本!",48,"脚本错误!" \n End If',"vbscript")
6 }catch(e){
7 alert(e.message);
8 }
9 }