新增ubb代码对表格的支持

看下面的表格：

这是作者新增加的ubb代码对表格的支持效果。

语法如下:

程序代码:

[ table]

1|2

3|4

5|6

[ /table]

说明：

1."[table]":表格头

2."[/table]":表格尾

3."|":表格间隔(默认居左)→转换为"</td><td>"

4."

":表格换单元行→转换为"</td></tr><tr><td>"

注意：

1.第一个单元行之前和最末尾一个单元行之后不加"

"

2.每一行的单元格数目必须相同，这里没有colspan之类的属性。

源代码展示：

function ubb_table(ubb_temp)

ubb_temp_=ubb_temp

do while ubb_temp_<>""

text=searchUBB(ubb_temp_,"[table ]","[/table ]")

if text<>"" then

ltext="<table width='80%' border='0' cellspacing='0' cellpadding='0' align='center' bgcolor='#000000'>"&_

"<tr><td>"&_

"<table width='100%' border='0' cellspacing='1' cellpadding='4'><tr valign='top' bgcolor='#FFFFFF'>"&_

"<td>"&text&"</td></tr></table></td></tr></table>"

ltext=replace(ltext,"|","</td><td>")

ltext=replace(ltext,"

","</td></tr><tr valign='top' bgcolor='#FFFFFF'><td>")

ltext=replace(ltext,"<td><br>","<td>")

ubb_temp_=replace(ubb_temp_,"[ table]"&text,ltext,1,1,1)

ubb_temp_=replace(ubb_temp_,ltext&"[/table ]",ltext,1,1,1)

else

exit do

end if

loop

ubb_table=ubb_temp_

end function

将上面的函数拷贝进ubbcode.asp文件

在"ubb=ubb_code(ubb)"前面加上"ubb=ubb_table(ubb)"