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=運(yùn)行代碼 onclick=runCode(runcode"&i&")><input type=button class=input-code value=復(fù)制代碼 onclick=copycode(runcode"&i&")><input type=button class=input-code value=另存代碼 onclick=saveCode(runcode"&i&")><span class=code-tishi>提示：您可以先修改部分代碼再運(yùn)行</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 

使用方法也很簡單：

發(fā)表文章時需用使用“運(yùn)行代碼”功能的，主要前后加上

[ code ][/ code ]
比如：

復(fù)制代碼代碼如下:

[ code ]  
<script type="text/javascript">  
alert("簡單吧");  
</script>  
[/ code ] 

需要注意的是，在顯示的頁面要進(jìn)入以下javascript：

復(fù)制代碼代碼如下:

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();  
} 