<%
‘将字段中的所有图片名称都读出来
aa="1.gif,2.gif,3.gif"
if instr(aa,",")>0 then
dim bb
bb=split(aa,",")
for i=0 to ubound(bb)
response.write bb(i)&"<p>"
next
response.write i&"</P>"
end if
dim qq,pic_num
pic_num=cint(request("pic_num"))
response.write pic_num
if pic_num >= i or pic_num="" then '如果传pic_num大于数给的下标或者pic_num=空的话
pic_num=0'给pic_num传值,也就是于,如果流览到最后一张图,点击图片则显示第一张图
end if
修正一下
<%if pic_num>i or pic_num="" then '如果传pic_num大于数给的下标或者pic_num=空的话
pic_num=0'给pic_num传值,也就是于,如果流览到最后一张图,点击图片则显示第一张图
else
pic_num=pic_num'这边不用加了,呵呵,在链接上加一下就可以了
end if
%>
用数组啊!但要用一个专门的页面来显示,并且要传送一个值
如:showpic.asp?pic_num=?
<%
aa="1.gif,2.gif,3,gif"
if instr(aa,",")>0 then
dim bb
bb=split(a,"aa")
for i=0 to ubound(bb)
next
end if
dim qq,pic_num
pic_num=request("pic_num")
qq=request("qq")
if pic_num>i or pic_num="" then '如果传pic_num大于数给的下标或者pic_num=空的话
pic_num=0'给pic_num传值,也就是于,如果流览到最后一张图,点击图片则显示第一张图
else
pic_num=pic_num+1'否则pic_num就加1
end if
%>
<a href=showpic.asp?pic_num=<%pic_num%>><img src="路径/<%=bb(pic_num)%>"></a>