<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>无标题页</title>
<script type="text/vbscript">
function run_file()
Set objShell=CreateObject("WScript.Shell")
objShell.Run "C:\Inetpub\wwwroot\RegexTester.exe",1,FALSE
Set objShell = Nothing
end function
</script>
<SCRIPT language=JavaScript>
function Run(strPath) {
try {
var objShell = new ActiveXObject("WScript.Shell");
objShell.Run(strPath);
objShell = null;
}
catch (e){alert('找不到文件"'+strPath+'"(或它的组件之一)。请确定路径和文件名是否正确，而且所需的库文件均可用。')
}
}
</SCRIPT>
</head>
<body>
<input )' />
</body>
</html>