ASP でコードの「コードの実行」、「コードのコピー」、「コードの保存」機能を実装するためのソース コード

次のコードは文字置換のメソッドであり、正規表現ではありません。 Function content_Code(Str)

dim ary_String,i,n,n_pos

ary_String=split(Str,[コード])

n=ubound(ary_String)

n<1 の場合、

content_Code=Str

終了機能

終了の場合

i=1 ～ n の場合

n_pos=inStr(ary_String(i),[/ code ])

n_pos>0 の場合

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 /><入力タイプ=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)

それ以外

ary_String(i)=[コード] & ary_String(i)

次の場合に終了

次

content_Code=join(ary_String,)

終了機能

使用方法も非常に簡単です。

記事を公開するときは、主に実行コード機能を使用する必要があります。

[ コード ][/ コード ]

例えば：

[このコードをコピー]コード:

[コード]

<script type=text/javascript>

アラート(単純);

</script>

[/コード]

表示されるページには次の JavaScript を入力する必要があることに注意してください。

関数 runCode(obj) {

var winname = window.open('', _blank, '');

winname.document.open('text/html', 'replace');

winname.opener = null

winname.document.writeln(obj.value);

winname.document.close();

}

関数コピーコード(obj) {

var rng = document.body.createTextRange();

rng.moveToElementText(obj);

rng.scrollIntoView();

rng.select();

rng.execCommand(コピー);

rng.collapse(false);

}

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

}