ASP에서 코드의 "코드 실행", "코드 복사" 및 "코드 저장" 기능을 구현하는 소스 코드

다음 코드는 정규 표현식이 아닌 문자 교체 방법입니다. 함수 content_Code(Str)

희미한 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),[/ 코드 ])

n_pos>0이면

ary_String(i)=<br /><textarea class=gocode id=runcode&i& name=runcode&i&> & server.HTMLEncode(left(ary_String(i),n_pos-1))&</textarea><br /><입력 유형 =버튼 클래스=입력 코드 값=코드 실행 onclick=runCode(runcode&i&)><입력 유형=버튼 클래스=입력 코드 value=코드 복사 onclick=copycode(runcode&i&)><input type=button class=input-code value=코드 저장 onclick=saveCode(runcode&i&)><span class=code-tishi>팁: 코드의 일부를 수정하기 전에 수정할 수 있습니다. 실행하기 </span><br /> & _

오른쪽(ary_String(i), len(ary_String(i))-n_pos-6)

또 다른

ary_String(i)=[코드] & ary_String(i)

다음과 같은 경우 종료

다음

content_Code=join(ary_String,)

기능 종료

사용법도 매우 간단합니다.

기사를 게재할 때에는 주로 런닝코드 기능을 이용해야 합니다.

[ 코드 ][/ 코드 ]

예를 들어:

[이 코드 복사]CODE:

[암호]

<스크립트 유형=텍스트/자바스크립트>

경고(간단);

</script>

[/암호]

표시된 페이지에 다음 자바스크립트를 입력해야 한다는 점에 유의하세요.

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

}