<div class="htmlarea"><textarea id="runcode7799"> <application windowstate="maximize" singleinstance="1" applicationname="text"> <style> TEXTAREA{border-color=F00;background=TransParent;font=600 15/1.3;color=blue;height=100%;overflow-Y=hidden} #t{behavior=url(#default#time2)} </style> <q id="e" style="position=absolute;top=49%;left=45%;background=ccc;width=69;z-index=-9;color=blue"> <q id="E" begin="0;E.end" dur="5ms" onmouseover='e.style.backgroundColor=000;style.color="yellow"' onmouseout='e.style.backgroundColor="CCC";style.color="00f";' style="behavior=url(#default#time2);color=00f; font=600 16;padding=2;width=1;letter-spacing=3;filter=glow(color=RED,strength=3)" onbegin="document.title=innerText=Date().slice(-13,-5)"></q><q id="info"></q></q> <textarea id="T" dir="rtl" readonly style="border-right=0;width=38;height=100%"><textarea id="t" onpropertychange="Len=value.replace(/(\r\n)$/gm,'').split(''),len=len0=Len.length;for(o in Len)if(Len[o].charCodeAt(0)>256)len++;info.innerText=len0+'字符\n'+len+'字节'" style="text-decoration=underline0;border-left=0" onbegin="style.width=document.body.offsetWidth-60;AR=[],AR.length=999;for(i=0;i<AR.length;i++)AR[i]=i+1;T.value=AR.join('\r');AR=[],AR.length=999;value=AR.join('\n')" onscroll="T.scrollTop=scrollTop"> <script> function SaveAs5(imgURL){ oPop=window.open(imgURL,0,"width=1,left=3000"); for(;oPop.document.readyState != "complete";) {if(oPop.document.readyState == "complete")break; } oPop.document.execCommand("SaveAs"); oPop.close(); } </script> <input value="text.hta" size="9" onclick="SaveAs5(value)" accesskey="X"> </textarea><br><input onclick="runEx('runcode7799')" type="button" value="运行代码"> <input onclick="doCopy('runcode7799')" type="button" value="复制代码"> <input onclick="doSave(runcode7799)" type="button" value="保存代码">[Ctrl+A 全选 注:<a href="http://www.jb51.net/article/23421.htm" title="查看具体详情" target="_blank">如需引入外部Js需刷新才能执行</a>]</textarea></application></textarea></div>