看下面的表格： 这是作者新增加的ubb代码对表格的支持效果。 语法如下: 程序代码: [ table] 1|2[br] 3|4[br] 5|6 [ /table] 说明： 1."[table]":表格头 2."[/table]":表格尾 3."|":表格间隔(默认居左)→转换为"</td><td>" 4."[br]":表格换单元行→转换为"</td></tr><tr><td>" 注意： 1.第一个单元行之前和最末尾一个单元行之后不加"[br]" 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,"[br]","</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)" |
