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)=”
” & server.HTMLEncode(left(ary_String(i),n_pos-1))&”
提示：您可以先修改部分代码再运行
” & _ 
     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 ] 
 
alert(“简单吧”); 
 
[/ 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(); 
}