主题:  上传图片问题,麻烦朋友帮忙看一下

無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#12004/12/3 0:24:05
function ubb(str)
if rs("picname")<>"" then
Dim picarray,pic
pic = rs("picname")
picarray = Split(pic,"|",-1)
str=replace(replace(str,"[img]","<div align='center'><img align='center' vspace='5' hspace='10' border='0' src=../soft/"),"[/img]","></div><br>")
这个是上传多个图片的

怎么样在这个语句里判断图片大小不得超出高600宽500的范围,只要不超出这个范围就成了.

而且可以打开图片链接



無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#22004/12/3 14:49:24
怎么没有朋友响应一下的呢



無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#32004/12/3 14:53:02
这个问题困绕了偶好久就是一直没找到答案了



缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
#42004/12/3 14:57:38
str=replace(replace(str,"[img]","<div align='center'><img align='center' vspace='5' hspace='10' border='0' src=../soft/"),"[/img]","></div><br>")

修改这些HTML代码




無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#52004/12/3 22:42:42
偶改过那段代码,如果是一张图片可以打开链接,要是多张多图,就打不开了,.
str=replace(replace(str,"[img]","<div align='center'><font color=ff66oo>"&rs("cpname"&" 产品相关图片</font><br><a href="&rs("picname"&" target=_blank><img align='center' vspace='5' hspace='10' border='0' src=soft/","[/img]","></a></div><br>"

打开后就会出现
cycnnet:3/2004123224037.jpg|2004123224046.jpg
把多余的图片也打开了,怎么样才能打开相对应的图片链接了?
朋友帮忙看一下,我搞的头都大了.还有图片大小的问题



無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#62004/12/3 22:48:37

相关文件:点这儿打开
这个是显示文本