新增ubb代码对表格的支持
2008-02-23 09:27:16来源：互联网 阅读 ()
看下面的表格：
这是作者新增加的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)" |
|
|
|
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
