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需刷新才能执行]
 
 
 
 
 
 
 
<!-- 
alert("test1"); 
//--> 
 
 
 

  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
 
 
 
 
 
 
 
<!-- 
alert("test2"); 
//--> 
 
 
 


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