for i to UBound(pic)
我放了这段话在里面可是错了,这个是上次一位朋友发我的
<%function ubb(str)
if rs("picname"

<>"" then
Dim picarray,pic
pic = rs("picname"

picarray = Split(pic,"|",-1)
for i to UBound(pic)
str=replace(replace(str,"[img]","<div align='center'><img align='center' vspace='5' hspace='10' border='0' onload='javascript:if(this.width>450){this.width=450}if(this.height>600){this.height=600}' src=../soft/"

,"[/img]","></div><br>"

end if
str=replace(replace(str,"
","<b>"
,"","</b>"

str=replace(replace(str,"
","<i>"
,"","</i>"

str=replace(replace(str,"
","<u>"
,"","</u>"

str=replace(replace(str,"
","<center>"
,"","</center>"

set re=new regexp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
str= re.Replace(str,"<A HREF=""$2"" TARGET=_blank>$3</A>"

ubb=str
end function%>