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

 1/2    1