下面的代码是通过字符替换的方法,不是正则表达式

Function content_Code(Str) dim ary_String,i,n,n_pos ary_String=split(Str,'[ code ]') n=ubound(ary_String) If n1 then content_Code=Str Exit function End If for i=1 to n n_pos=inStr(ary_String(i),'[/ code ]') If n_pos0 then ary_String(i)='br /textarea

作者: 来源: 时间: 17-11-23 15:52:34

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=http://www.popasp.com/运行代码 & 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();
}
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们