• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
    Function content_Code(Str)
    dim ary_String,i,n,n_pos
    ary_String=split(Str,"[ code ]")
    n=ubound(ary_String)
    If n1 then
    content_Code=Str
    Exit function
    End If
    for i=1 to n
    n_pos=inStr(ary_String(i),"[/ code ]")
    If n_pos>0 then
    ary_String(i)="br />textarea class=gocode id=runcode"i" name=runcode"i">" server.HTMLEncode(left(ary_String(i),n_pos-1))"/textarea>br />input type=button class=input-code value=运行代码 onclick=runCode(runcode"i")>input type=button class=input-code value=复制代码 onclick=copycode(runcode"i")>input type=button class=input-code value=另存代码 onclick=saveCode(runcode"i")>span class=code-tishi>提示:您可以先修改部分代码再运行/span>br />" _
    right(ary_String(i),len(ary_String(i))-n_pos-6)
    Else
    ary_String(i)="[code]" ary_String(i)
    End if
    next
    content_Code=join(ary_String,"")
    End Function

    使用方法也很简单:
    发表文章时需用使用“运行代码”功能的,主要前后加上
    [ code ][/ code ]
    比如:
    [复制此代码]CODE:
    [ code ]
    script type="text/javascript">
    alert("简单吧");
    /script>
    [/ code ]
    需要注意的是,在显示的页面要进入以下javascript:

    function runCode(obj) {
    var winname = window.open('', "_blank", '');
    winname.document.open('text/html', 'replace');
    winname.opener = null
    winname.document.writeln(obj.value);
    winname.document.close();
    }
    function copycode(obj) {
    var rng = document.body.createTextRange();
    rng.moveToElementText(obj);
    rng.scrollIntoView();
    rng.select();
    rng.execCommand("Copy");
    rng.collapse(false);
    }
    function saveCode(obj) {
    var winname = window.open('', '_blank', 'top=10000');
    winname.document.open('text/html', 'replace');
    winname.document.write(obj.value);
    winname.document.execCommand('saveas','','code.htm');
    winname.close();
    }
    上一篇:ASP隐藏真实文件的下载功能实现代码
    下一篇:JS复制特定内容到粘贴板
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码 asp,下,实现,代码,的,运行代码,