<a href=../soft/"&picarray(0)&"

你自己要他打开第一张图片的呀，
如果想点击哪张图片就弹出哪张图片的话，你还得加个FOR循环遍历一下，你上面已经split了，可以得到数组的下标的。

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