asp下用replace非正则实现代码运行功能的代码

今天更新了一下博客的代码运行功能，因为原来的写得不够完善，如果想在博客里插入多个可运行的代码，那就会――呃屁。关于replace函数，js中只是替换从起始位置的第一个指定字串，而vbs则是替换所有的指定字串，因此如果想要用vbs一个一个替换，那就得绕个弯子了，写个函数就行了，顺便，把写完的这个函数上传了，这下可以在一个日志里放多个代码运行演示了！

感冒了，写完函数就乖乖去睡觉，今天过得真是辛苦，有种快要死掉的感觉。。。鼻子里塞着纸团，因为鼻涕止不住地流，呜
替换函数的代码如下：


function ubbToHtml(str,tag)
dim length,tempArray,i,tempstr
tempstr = ""
tempArray = split(str,"[/ "&tag&" ]")
length = ubound(tempArray)-1
for i=0 to length
tempstr = tempstr & replace(tempArray(i),"["&tag&"]","源代码")
tempstr = tempstr & "" & chr(13)
next
tempstr = tempstr & "" & tempArray(length+1)
ubbToHtml = tempstr
end function

'==========函数使用========
dim test
test = ubbToHtml("00000 [ code ]code1[/ code ]pg1[ code ]code2[/ code ]pg2 ####","code")


[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]











[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]











[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]