主页 > 知识库 > asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码

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下实现代码的“运行代码”“复制代码”“保存代码”功能源码》,本文关键词  asp,下,实现,代码,的,运行代码,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码》相关的同类信息!
  • 本页收集关于asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章