点击按钮复制文本框内容

< script > ...
function findObj(n, d) ...{
   var p,i,x;
   if(!d) d=document;
   if((p=n.indexOf("?"))>0&&parent.frames.length)...{
       d =parent.frames[n.substring(p+1)].document; n=n.substring(0,p);
   }
   if(!(x=d[n])&&d.all) x=d.all[n];
   for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
   if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function copy(ob)...{
   var obj=findObj(ob);
   if (obj) ...{
       obj.select();js=obj.createTextRange();js.execCommand("Copy");
   }
   alert("已经复制成功，你可以在任何地方粘贴出去了！快捷键: Ctrl+V  ");
}
</ script >

< TEXTAREA  cols =80  name =text  rows =22 ></ TEXTAREA >
< INPUT  name =select  onclick =copy("text")   type =button  value =复制 >