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=runco​​de&i& name=runco​​de&i&> & server.HTMLEncode(left(ary_String(i),n_pos-1))&</textarea><br /><input type =button class=input-code value=執行程式碼onclick=runCode(runco​​de&i&)><input type=button class=input-code value=複製程式碼onclick=copycode(runco​​de&i&)><input type=button class=input-code value=另存程式碼onclick=saveCode(runco​​de&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);

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

}