作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:25:10 阅读 我要评论

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)="<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 Access实现网站计数器(访问量)

<% set conn=server.createobject("adodb.connection") connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("cou.mdb") //cou是数据库名 conn.open connstr if session("visited")<>"yes" t>>>详细阅读


本文标题:asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码

地址:http://www.17bianji.com/kaifa2/ASP/32127.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)