Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置:首页 > 技术文档 > asp技巧

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

来源:中文源码网    浏览:221 次    日期:2024-03-27 08:31:35
【下载文档:  asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码.txt 】


asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
看到很多人需要,就放出来,好东西大家一起分享。 复制代码 代码如下:Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,"[ code ]") n=ubound(ary_String) If n<1 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)="

提示:您可以先修改部分代码再运行
" & _ 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 ] 需要注意的是,在显示的页面要进入以下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(); }

相关内容