关于实现照片上一张下一张查看asp代码问题
百度知道中实现照片上一张下一张查看时有以下代码可以解决问题,但它的前提是一共有200张照片,照片翻到200张时下一页的显示是空链接。但本人选择的照片不仅有200张,而是在...
百度知道中实现照片上一张下一张查看时有以下代码可以解决问题,但它的前提是一共有200张照片,照片翻到200张时下一页的显示是空链接。但本人选择的照片不仅有200张,而是在不断增加。要求:当照片翻看到最新加入照片也就是id的当前值的最大时,下一页的显示链接是空白或给出没有照片的提示。
<%
dim imgn,nextp,prvp
if request("id")=""then
imgn=1
else
imgn=cint(request("id"))
end if
nextp=imgn+1
prvp=imgn-1
if request("id")="" or request("id")="1" then
response.write ("上一张 | <a href=p_show.asp?id="&nextp&">下一张</a>")
elseif cint(request("id"))>=200 then
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | 下一张照片")
else
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | <a href=p_show.asp?id="&nextp&">下一张照片</a>")
end if
%>
老兄:我是超级菜鸟,你把完整的程序给我呀。你光说加语句,怎么加呀?
请把完整的程序发出来,并说明。
我的图片存放目录是txl_info(12) 展开
<%
dim imgn,nextp,prvp
if request("id")=""then
imgn=1
else
imgn=cint(request("id"))
end if
nextp=imgn+1
prvp=imgn-1
if request("id")="" or request("id")="1" then
response.write ("上一张 | <a href=p_show.asp?id="&nextp&">下一张</a>")
elseif cint(request("id"))>=200 then
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | 下一张照片")
else
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | <a href=p_show.asp?id="&nextp&">下一张照片</a>")
end if
%>
老兄:我是超级菜鸟,你把完整的程序给我呀。你光说加语句,怎么加呀?
请把完整的程序发出来,并说明。
我的图片存放目录是txl_info(12) 展开
1个回答
展开全部
elseif cint(request("id"))>=200 then
改一下
在前面写一个语句select count(*)……一下照片的总数,比如赋值给num=rs(0)
然后
elseif cint(request("id"))>=num then
*******************************************
由于你的代码不全,我只有根据现有的改:
<%
set rs2=server.createobject("adodb.recordset"
sql2="select count(*) as num from pic"
rs2.open sql2,conn,1,3
num=rs("num")
dim imgn,nextp,prvp
if request("id")=""then
imgn=1
else
imgn=cint(request("id"))
end if
nextp=imgn+1
prvp=imgn-1
if request("id")="" or request("id")="1" then
response.write ("上一张 | <a href=p_show.asp?id="&nextp&">下一张</a>")
elseif cint(request("id"))>=numm then
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | <a href=p_show1.asp>下一张照片</a>") ")
'p_show1.asp提示页
else
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | <a href=p_show.asp?id="&nextp&">下一张照片</a>")
end if
%>
改一下
在前面写一个语句select count(*)……一下照片的总数,比如赋值给num=rs(0)
然后
elseif cint(request("id"))>=num then
*******************************************
由于你的代码不全,我只有根据现有的改:
<%
set rs2=server.createobject("adodb.recordset"
sql2="select count(*) as num from pic"
rs2.open sql2,conn,1,3
num=rs("num")
dim imgn,nextp,prvp
if request("id")=""then
imgn=1
else
imgn=cint(request("id"))
end if
nextp=imgn+1
prvp=imgn-1
if request("id")="" or request("id")="1" then
response.write ("上一张 | <a href=p_show.asp?id="&nextp&">下一张</a>")
elseif cint(request("id"))>=numm then
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | <a href=p_show1.asp>下一张照片</a>") ")
'p_show1.asp提示页
else
response.write ("<a href=p_show.asp?id="&prvp&">上一张照片</a> | <a href=p_show.asp?id="&nextp&">下一张照片</a>")
end if
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询