400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码

asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
热门标签：服务器配置 电子围栏 科大讯飞语音识别系统 团购网站 阿里云 银行业务 Mysql连接数设置 Linux服务器
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下实现代码的“运行代码”“复制代码”“保存代码”功能源码》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：ASP隐藏真实文件的下载功能实现代码

    下一篇：JS复制特定内容到粘贴板

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266