UC知道如何在asp 中实现上一张 下一张 图片
来源：百度知道 编辑：UC知道 时间：2024/05/02 10:49:15
哪种方法以更好
<%
Set aaa=Server.CreateObject("ADODB.Recordset")
aaa.Open "Select * from qjxpic where (id - "&ID&" = -1)",conn,1,1
If not aaa.eof Then
Response.Write("<a href='?id="&aaa("id")&"'>上一张</a>")
Else
Response.Write("上一张")
End If aaa.close
Set aaa=Server.CreateObject("ADODB.Recordset")
aaa.Open "Select * from qjxpic where id > "&ID&"",conn,1,1
If not aaa.eof Then
Response.Write("<a href='?id="&aaa("id")&"'>下一张</a>")
Else Response.Write("下一张")
End If aaa.close
Set aaa=Nothing
%>
一楼的朋友,能不能再详细点.
二楼的朋友这样,要不是连续ID好像就不成了吧,谢了啊
<%
Set aaa=Server.CreateObject("ADODB.Recordset")
aaa.Open "Select * from qjxpic where (id - "&ID&" = -1)",conn,1,1
If not aaa.eof Then
Response.Write("<a href='?id="&aaa("id")&"'>上一张</a>")
Else
Response.Write("上一张")
End If aaa.close
Set aaa=Server.CreateObject("ADODB.Recordset")
aaa.Open "Select * from qjxpic where id > "&ID&"",conn,1,1
If not aaa.eof Then
Response.Write("<a href='?id="&aaa("id")&"'>下一张</a>")
Else Response.Write("下一张")
End If aaa.close
Set aaa=Nothing
%>
一楼的朋友,能不能再详细点.
二楼的朋友这样,要不是连续ID好像就不成了吧,谢了啊
set Rs=server.CreateObject("adodb.recordset")
Rs.open"select * from qjxpic where ID="&ID&"",conn,1,1
do while not rs.eof
if trim(rs("Id"))=trim(Id) then
rs.moveprevious
if not rs.bof then
preid=rs("id")
end if
rs.movenext
rs.movenext
if not rs.eof then
nextid=rs("id")
end if
end if
loop
Rs.close
set Rs=nothing
x=0
x=val(request("x"))
id=val(request("id"))
Set aaa=Server.CreateObject("ADODB.Recordset")
aaa.Open "Select * from qjxpic where id = "&ID&"",conn,1,1
.................
<a htef="****.asp?id=<%id+x%>&x=-1">上一张</a>
<a htef="****.asp?id=<%id+x%>&x=1">下一张</a>
或者：
id=val(request("id"))
Set aaa=Server.CreateObject("ADODB.Recordset