自动运行代码

自动运行代码

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

< div  align ="center" >< P  align =center >< TEXTAREA  rows ='12'  cols ='78'  class ='fm'  id ='code' >< br >
--完整的HTML代码放这--
</ TEXTAREA ></ P ></ div >
< INPUT  onclick ="runEx('code')"  type ="button"  value ="运行代码"  style ="cursor:hand" onFocus ="this.blur()" >  
< input  type ="button"  name ="Submit"  value ="复制到剪贴板"  onClick ="cycode(code)"  style ="cursor:hand;width:95px"  onFocus ="this.blur()" >  
< input  type ="button"  value ="另存代码"  onclick ="svcode(code)"  style ="cursor:hand"  onFocus ="this.blur()" >
< br > [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行] </ div >
< script >
function  runEx(cod) {
cod = document.all(cod)
var  code = cod.value;
if  (code != "" ){
var  newwin = window.open('','','');  // 打开一个窗口并赋给变量newwin。
newwin.opener  =   null   //  防止代码对页面修改
newwin.document.write(code);  // 向这个打开的窗口中写入代码code，这样就实现了运行代码功能。
newwin.document.close();
}
}
// 复制文本域代码
function  cycode(obj) {
var  rng  =  document.body.createTextRange();
rng.moveToElementText(obj);
rng.scrollIntoView();
rng.select();
rng.execCommand( " Copy " );
window.status = " 高亮度包含的代码已被复制到剪贴板！Contents highlighted and copied to clipboard! "
setTimeout( " window.status='' " , 1800 )
rng.collapse( false );
}
// 另存代码
function  svcode(obj) {
var  winname  =  window.open('', '_blank', 'top = 10000 ');
winname.document.open('text / html', 'replace');
winname.document.writeln(obj.value);
winname.document.execCommand('saveas','','code.htm');
winname.close();
}
</ script >

posted on 2007-12-12 19:00  Shicai Yang 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/youth0826/archive/2007/12/12/992588.html