% function imgname(str) dim ar,ar1,str1 dim i,s i=instr(1,str,"new/Upfiles/",1) s=mid(str,i,30) ar=split(str,chr(34),-1,1) imgname=ar(1) end function %>