怎么JavaScript可运行代码框在火狐中就全都失效了？

<script language="javascript">//定义函数
function copyCode(obj) {
    var rng = document.body.createTextRange();
    rng.moveToElementText(obj);
    rng.scrollIntoView();
    rng.select();
    rng.execCommand("Copy");
    rng.collapse(false);
}
function paste() {
    var clipboard = window.clipboardData.getData('text');
    clipboard == null ? alert('您的剪切板中没有任何文本内容') : testcode0.value = clipboard;
}
function runCode(obj) {
    var winname = window.open('','');
    winname.document.open('text/html', 'replace');
    winname.document.writeln(obj.value);
    winname.document.close();
}
function saveCode(obj) {
    var winname = window.open('', '_blank', 'top=10000');
    winname.document.open('text/html', 'replace');
    winname.document.writeln(obj.value);
    winname.document.execCommand('saveas','','mycode.htm');
    winname.close();
}
</script>
<textarea name="run_code">代码内容</textarea>
<p><INPUT class="button" onclick="runCode(testcode0)" type=button value="预 览" name=Button>
<INPUT class="button" onclick=testcode0.select() type=button value="全 选" name=Button>
<INPUT class="button" onclick="testcode0.value=''" type=button value="清 空" name=Button>
<INPUT class="button" onclick="copyCode(testcode0)"; type=button value="复 制" name=Button>
<INPUT class="button" onclick="paste()"; type=button value="粘 帖" name=Button>
<INPUT class="button" onclick=saveCode(testcode0); type=button value="保 存" name=Button>
提示：你可以修改部分代码再运行！</p>代码如上，不知什么原因，在火狐浏览器中没有任何反应。希望大家能帮修改一下，感谢不尽！！！