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