UC知道我想在我这个页面加入一个上一条记录和下一条记录怎么做？
来源：百度知道 编辑：UC知道 时间：2024/05/25 01:04:15
最好能帮我改代码，因为我不懂，我这是用DW里的服务器行为做的，谢谢
这是我在网站找到的，然后我改成我的可是有错误：
<%
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.open Conn
ID=SafeRequest("v_id",1) '当前记录ID
Set Objrs=Conn.Execute("Select top 1 From vote Where ID<"&ID)
If Not Objrs.Eof Then
MinID=Objrs(0)
Else
MinID=0
End If
Set Objrs=Conn.Execute("Select top 1 From vote Where ID<"&ID)
If Not Objrs.Eof Then
MaxID=Objrs(0)
Else
MaxID=0
End If
If MinID=0 Then
Else
Response.write("<a href='?v_id=<%=MaxID%>'>上一页</a>")
End If
If MaxID=0 Then
Else
Response.write("<a href='?v_=<%=MaxID%>'>下一页</a>")
End If
%>
</td>
错误是：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/wusong/xslist.asp, line 147, column 39
Response.
这是我在网站找到的，然后我改成我的可是有错误：
<%
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.open Conn
ID=SafeRequest("v_id",1) '当前记录ID
Set Objrs=Conn.Execute("Select top 1 From vote Where ID<"&ID)
If Not Objrs.Eof Then
MinID=Objrs(0)
Else
MinID=0
End If
Set Objrs=Conn.Execute("Select top 1 From vote Where ID<"&ID)
If Not Objrs.Eof Then
MaxID=Objrs(0)
Else
MaxID=0
End If
If MinID=0 Then
Else
Response.write("<a href='?v_id=<%=MaxID%>'>上一页</a>")
End If
If MaxID=0 Then
Else
Response.write("<a href='?v_=<%=MaxID%>'>下一页</a>")
End If
%>
</td>
错误是：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/wusong/xslist.asp, line 147, column 39
Response.
我的代码:
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select top 1 id,title,content from jok where ID<"&SmallClass&" order by id desc",conn,1,1
IF not rs.eof and not rs.bof Then
response.write"<a href='?id="&rs("id")&"'>[上一个]</a>"
else
response.write"没有上一个了"
end if
rs.close
set rs=nothing
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select top 1 id,title,content from jok where ID>"&SmallClass&" order by id asc",conn,1,1
IF not rs.eof and not rs.bof Then
response.write" <a href='?id="&rs("id")&"'>[下一个]</a>"
else
response.write" 没有下一个了"
end if
rs.close
set rs=nothing%>