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