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=復(fù)制代碼 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 

使用方法也很簡單： 
發(fā)表文章時需用使用“運行代碼”功能的，主要前后加上 
[ code ][/ code ] 
比如： 
[復(fù)制此代碼]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(); 
}