|
|
主题: ASP设置图片
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#12004/9/1 13:48:36
我加加了以下这段，可是也现在出现（Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 0]' /abl/main.asp，行222 ）不知道是什么原因，朋友帮忙看看 <%sqlstr="dbq="+server.mappath("data/info.mdb")+";driver=microsoft access driver (*.mdb);" set conn=server.createobject("adodb.connection") conn.open sqlstr sql="select * from product order by id desc" set rs=conn.execute(sql) i=0 response.write "<table width='100%' border='0' height='450' cellspacing='6' >" do while not rs.eof and i<8 response.write "<tr>" for j=1 to 2 Dim picarray,pic pic=rs("picname") picarray = Split(pic,"|",-1) if rs("picname")<>"" then response.write "<td><table width='100%' border='0' cellspacing='0' cellpadding='0' ><tr><td width='79' height='85' rowspan='4' background='images/nj2.jpg'><div align='center'><a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=73 alt="&rs("cpname")&" src='images/bj.jpg' width=69 align=middle border='0'></a></div></td><td > <font color='#3399FF'>产品类型："&rs("fenlei")&"</font></td></tr><tr><td> <font color='#CCcccc'>产品名称:"&left(rs("cpname"),8)&"</font></td></tr><tr><td><div align='left'> <a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=详细信息 src=images/ck.jpg width=54 border='0'></a> <a href='dj/default.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=订购 src=images/d.jpg width=19 border='0' ></a></div></td></tr></table></td>" else response.write "<td><table width='100%' border='0' cellspacing='0' cellpadding='0' ><tr><td width='79' height='85' rowspan='4' background='images/nj2.jpg'><div align='center'><a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=73 alt="&rs("cpname")&" src='soft/"&picarray(0)&"' width=69 align=middle border='0'></a></div></td><td > <font color='#3399FF'>产品类型："&rs("fenlei")&"</font></td></tr><tr><td> <font color='#CCcccc'>产品名称:"&left(rs("cpname"),8)&"</font></td></tr><tr><td><div align='left'> <a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=详细信息 src=images/ck.jpg width=54 border='0'></a> <a href='dj/default.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=订购 src=images/d.jpg width=19 border='0' ></a></div></td></tr></table></td>" end if i=i+1 rs.movenext if rs.eof then exit for end if next response.write "</tr>" loop response.write "</table>" rs.close conn.close %> 相关文件： 点这儿打开
编辑历史:[此帖最近一次被 allinhands 编辑过(编辑时间:2004-09-01 14:01:26)]
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#22004/9/1 13:49:44
图片不为空就没错了，上传时如果没有图片就会出现以上错误了
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#32004/9/1 14:04:46
if rs("picname")<>"" then
......
else
...picarray(0)
当图片为空的时候还怎么去split
改成rs("picname")=""
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#42004/9/1 14:23:38
呵这样一来没有图片时不错了，有图片时双出错了。，
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#52004/9/1 14:25:29
图片如下： 
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#62004/9/1 14:30:45
无效使用null
那说明要split的东东是null值
218行是picarray = Split(pic,"|",-1)么?
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#82004/9/1 14:35:27
我把这个页传上来。，麻烦你帮忙看一下吧。谢了 相关文件： 点这儿打开
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#92004/9/1 14:36:28
应该是那里的错误了，我把那个删了就没有错，可是删了就不用显示图片了
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#102004/9/1 14:42:58
一个列表页我这样弄的，没有错误，为什么在首页里放的就有错了 <%if rs("picname")<>"" then%> <%Dim picarray,pic pic=rs("picname") picarray = Split(pic,"|",-1) response.write"<div align='center'><img src='../soft/"&picarray(0)&"' width='60' height='60' border='0' align=middle ><div>" %> <%else%> <% response.write"<div align='center'><img src='../images/bj.jpg' width='60' height='60' border='0' align=middle ><div>" %> <% end if %>
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#112004/9/1 14:59:22
你判断一下rs("picname"  是否为null 函数:IsNull
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#122004/9/1 15:15:15
谢谢可是我
不会改这玩意
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
注册：2004/2/18 11:17:25
|
#132004/9/1 15:37:32
if rs("picname")<>"" and not isnull(picname) then
.....
难人一个……
|
無㊣畏╃
职务：普通成员
等级：2
金币：1.0
发贴：371
注册：2003/3/25 14:38:29
|
#142004/9/1 16:03:53
大哥试了还是不行
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#152004/9/1 16:11:48
not isnull(pic)
楼上的写错了,你也不能就直接照搬,看看不行么?别人就是专门为你服务的么?自己要端正态度,主动的查找原因.
|
