Freeonline在线编辑器（自由软件）

最新推荐文章于 2017-01-08 14:32:48 发布

zgqtxwd

最新推荐文章于 2017-01-08 14:32:48 发布

阅读量340

点赞数

分类专栏： delphi javascript 文章标签： button function border input menu javascript

delphi 同时被 2 个专栏收录

758 篇文章 0 订阅

订阅专栏

javascript

589 篇文章 0 订阅

订阅专栏

<textarea id=xxcode style='width:100%;height:100%'>
<textarea style='display:none' name=xxabout>
    Freeonline[Version8],Copyright(C)2003,Bxxxr
    本程序是自由软件，遵循GPL，没有任何担保。详细情况请参阅GNU通用公共许可证。http://www.gnu.org/
    本程序是用JavaScript在网吧里写的。(98SE IE5 CR1G 128M)它的基本用途是在线编写脚本程序，还有一些小功能。
    Email:bxxxr@yahoo.com.cn
</textarea>
<textarea style='display:none' name=xxhelp>
    状态切换（Esc或RightClick）
    运行（F5或Ctrl+Enter）
    帮助（F1）
</textarea>
<script>
function window.onbeforeunload(){
if (event.clientY<0 && event.clientX>document.body.clientWidth-20
|| event.clientY<0 && event.clientX<20
|| event.altKey
|| event.clientY>document.body.clientHeight)
event.returnValue='Exit freeonline ?'
}

function window.onload()
{
document.title=xxabout.value
self.moveTo(-4,-4)
self.resizeTo(screen.availWidth+8,screen.availHeight+8)
xxcodearea.select()
xxsource.value=window.location.href
xxmenudiv.style.visibility="visible"
linebar.checked=1
xxlinenum()
}

function xxrun()
{
xxwww=xxcodearea.value;
xxrrr=open('','','');
xxrrr.document.open();
xxrrr.document.write(xxwww);
xxrrr.document.close();
}

function document.onkeydown()
{
if(event.ctrlKey&&event.keyCode==13)
{
    xxrun()
}
else if(event.keyCode==116)
{
    event.keyCode=0
    event.returnValue=false
    xxrun()
}
else if(event.keyCode==27)
{
    event.keyCode=0
    event.returnValue=false
    if(xxmenudiv.style.visibility=="visible")
    {
      xxmenudiv.style.visibility="hidden"
    }
    else if(xxmenudiv.style.visibility=="hidden")
    {
      xxmenudiv.style.visibility="visible"
    }
}
}

function document.onhelp()
{
alert(xxhelp.value)
return false
}

function xxlinenum()
{
if(linebar.checked)
{
    xxlinediv.style.visibility="visible"
    var xxthenum=xxcodearea.value
    xxthenum=xxthenum.split('')
    xxthenum=xxthenum.length
    xxlinearea.cols=xxthenum.toString().length
    xxcodediv.style.left=xxlinediv.clientWidth
    xxcodediv.style.width=document.body.clientWidth-xxlinediv.clientWidth

    xxlinearea.value=''
    var xxc=1
    while(xxthenum!=xxc-1)
    {
      var xxc1=xxthenum.toString().length-xxc.toString().length
      while(xxc1!=0)
      {
        xxlinearea.value=xxlinearea.value+'0'
        xxc1--
      }
      xxlinearea.value=xxlinearea.value+xxc
      xxc++
    }
}
else
{
    xxlinediv.style.visibility="hidden"
    xxcodediv.style.left=0
    xxcodediv.style.width=document.body.clientWidth
}
}
</SCRIPT>

</body>
</textarea>

<object
id=xxclose
type="application/x-oleobject"
classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="Command" value="Close">
</object>

<SCRIPT>
function window.onload()
{
xxclose.Click()
var xxclone=window.open("","","resizable=1,status=1")
xxclone.document.open()
xxclone.document.write(xxcode.value)
xxclone.document.close()
}
</SCRIPT>

zgqtxwd

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Freeonline在线编辑器（自由软件）

<script type="text/javascript"
复制链接

扫一扫