Question

asp调用数据问题

<%
dim id,rs,sql,title,classid,Nclassid,rs2,classname,Nclassname,rs3
id=saferequest("id",1)
set rs=server.createobject("adodb.recordset")
rs.open "update article set hits=hits+1 where articleID="&id,conn,1,3
sql="select * from article where articleid="&id
rs.open sql,conn,1,1
if not rs.eof then
title=rs("title")
classid=rs("classid")
Nclassid=rs("Nclassid")
set rs2=server.createobject("adodb.recordset")
rs2.open "select class from artclass where id="&rs("classid"),conn,1,1
classname=rs2("class")
rs2.close
set rs3=server.createobject("adodb.recordset")
rs3.open "select class from artclass where id="&rs("Nclassid"),conn,1,1
Nclassname=rs3("class")
rs3.close
end if
%>

<%
if rs.eof and rs.bof then
response.write "没有找到相关文章。"
response.end
end if
%>
<%=encodestr(rs("title"))%><br/>
------------<br/>
<%
ppp=request.queryString("p")
if ppp="" then ppp=1
content=rs("content")
if len(content)<800 then
response.write encodestr(content)
else
if ppp=1 then
con=mid(content,1,800)
response.write (encodestr(con) & "<br/><a href='list.asp?id="& id &"&p=2'>下一页</a>")
else
if len(content)>800*ppp then
con=mid(content,800*(ppp-1),800)
response.write (encodestr(con) & "<br/><a href='list.asp?id="& id &"&p="&ppp+1&"'>下一页</a>|<a href='list.asp?id="& id &"&p="&ppp-1&"'>上一页</a>")
else
con=mid(content,800*(ppp-1),len(content))
response.write (encodestr(con) & "<br/><a href='list.asp?id="& id &"&p="&ppp-1&"'>上一页</a>")
end if
end if
response.write "<br/>当前"&ppp&",共"&int((len(content))/800)+1&"页<br/>"
%><anchor>[跳至]
<go href="list.asp">
<postfield name="id" value="<%=id%>"/>
<postfield name="p" value="$(ppp)"/>
</go>
</anchor>第<input name="ppp" type="text" format="*N" emptyok="true" size="3" maxlength="3"/>页
<% end if %>
<br/>

<br/><a href='addping.asp?id=<%=id%>'>发表评论</a>.<a href='viweping.asp?id=<%=rs("articleid")%>'>查看评论(<%=rs("ping")%>)</a>
<br/>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

基本上这个阅读文章的代码就是这样，我想调用一些数据库里的数据，实现“上一章”“下一章”

怎么弄呢？

Answer 1

本章的ID：id
上一章：
Set rs=Server.CreateObject("adodb.recordSet")
rs.open "select top 1 * from article where id<"&id&" and classid="&class_id&" order by id",conn,1,1 '取本栏目的上一章
if rs.eof then
aa="没有了"
else
aa="<a href='正文显示页.asp'>"&rs("title")&"</a>"
end if
rs.close
下一章：
Set rs=Server.CreateObject("adodb.recordSet")
rs.open "select top 1 * from article where id>"&id&" and classid="&classid&" order by id",conn,1,1 '取本栏目下一章
if rs.eof then
bb="没有了"
else
bb="<a href='正文显示页.asp'>"&rs("title")&"</a>"
end if
rs.close
显示：

上一章：<%=aa%>
下一章：<%=bb%>

引用上家改进一下，同时改正一个小错误，取下一章时同样也需要order by id

Answer 2

本章的ID：id
上一章：
Set rs=Server.CreateObject("adodb.recordSet")
rs.open "select top 1 * from article where id<"&id&" order by id desc",conn,1,1
if rs.eof then
aa="没有了"
else
aa="<a href='正文显示页.asp'>"&rs("title")&"</a>"
end if
rs.close
下一章：
Set rs=Server.CreateObject("adodb.recordSet")
rs.open "select top 1 * from article where id>"&id&"",conn,1,1
if rs.eof then
bb="没有了"
else
bb="<a href='正文显示页.asp'>"&rs("title")&"</a>"
end if
rs.close
显示：

上一章：<%=aa%>
下一章：<%=bb%>

Answer 3

和分页程序一样，asp提供有现成的函数 ，很简单的