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%>