中科新闻网铜陵铁通:关于实现照片上一张下一张查看asp代码问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/02 19:41:39
<%
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)
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
%>