今天更新了一下博客的代码运行功能，因为原来的写得不够完善，如果想在博客里插入多个可运行的代码，那就会——呃屁。关于replace函数，js中只是替换从起始位置的第一个指定字串，而vbs则是替换所有的指定字串，因此如果想要用vbs一个一个替换，那就得绕个弯子了，写个函数就行了，顺便，把写完的这个函数上传了，这下可以在一个日志里放多个代码运行演示了！
感冒了，写完函数就乖乖去睡觉，今天过得真是辛苦，有种快要死掉的感觉。。。鼻子里塞着纸团，因为鼻涕止不住地流，呜
替换函数的代码如下：
<script language="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 & "<input type='button' value='运行代码' onclick='Preview(""codes"&i&""")'/>" & 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") </script>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
<!doctype html public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title></title> </head> <body> <script type="text/javascript"> <!-- alert("test1"); //--> </script> </body> </html>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
<!doctype html public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title></title> </head> <body> <script type="text/javascript"> <!-- alert("test2"); //--> </script> </body> </html>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]