Question

求ASP上一篇下一篇代码

本人刚学，在模仿别人的网站，希望各位网友能够帮忙写一段代码，可以加分。access数据表：qm_gexing，字段：gxqm_id；gxqm_title；gxqm_con。

Answer 1

qm_gexing，字段：gxqm_id；gxqm_title；gxqm_con。
nowid="改成当前id的值"
set rs=conn.execute("select top 1 gxqm_title,gxqm_id from qm_gexing where gxqm_id<"&nowid&" order by id desc")
if rs.bof and rs.eof thenresponse.write "<a>没有上一篇</a>"
else
response.write"<a href='"&rs("gxqm_id")&".html'>上一篇:"&rs("gxqm_title")&"</a>。。自己对href连接进行更改。。"
end if
set rs=conn.execute("select top 1 gxqm_title,gxqm_id from qm_gexing where gxqm_id>"&nowid&" order by id asc")
if rs.bof and rs.eof thenresponse.write "<a>没有下一篇</a>"
else
response.write"<a href='"&rs("gxqm_id")&".html'>下一篇:"&rs("gxqm_title")&"</a>。。自己对href进行更改。。"
end if

追问

我该怎么调用呢？麻烦讲解一下。
nowid="改成当前id的值" 值可以随便填么？

追答

把你前面的代码写出来吧。
nowid一般是
request("id")
要在哪里用就在哪里粘贴进去。

追问

能不能加个Q，我把文件发给你，帮我弄一下？麻烦了
我的：271551863

Answer 2

这是我从5u里弄出来的分类

' 获取上下篇文章
' 文章ID,栏目ID,上下篇标记
function getprenext(aid,tag)
 dim rs,sql
 sql = "select top 1 [gxqm_id],[gxqm_title],[gxqm_con] from [qm_gexing]"
 if lcase(tag) = "pre" then sql = sql & " and [gxqm_id]>" & aid & " order by [gxqm_id] asc"
 if lcase(tag) = "next" then sql = sql & " and [gxqm_id]<" & aid & " order by [gxqm_id] desc"
 '下面的db是数据库读取类，其实就是conn.Execute (sql) 你可以换成自己的
 set rs = db(sql,1)
 if rs.eof then
  getprenext = "没有了"
 else
  getprenext = "<a href='new.asp?id=" & rs(gxqm_id) & "'>" & rs(gxqm_title) & "</a>"
 end if
 rs.close
 set rs = nothing
end function

 使用方法很简单，如果获取上一篇，getprenext(gxqm_id,"pre") 下一篇getprenext(gxqm_id,"next")

追问

按照你的方法加了代码，预览的时候提示缺少对象'conn'是什么意思？

追答

conn是数据库连接的啊

之前肯定有的

dim conn,connstr
connstr = "Provider=Microsoft.Jet.OLEdb.4.0;Data Source=" & server.mappath(databaseaccesspath)
'这里是数据库地址
on error resume next
set conn = server.createobject("adodb.connection")
conn.open connstr

类里面

set rs=db(sql,1)'换成下面的 
set sr=conn.execute(sql)

你看看你是之前的id和gxqm_title是怎么来的，或者你贴出你的部分代码，因为这个类也是一次数据库查询的动作，所以里面的数据连接和打开都是要的，改成你自己的连接代码就可以

追问

能否加个Q？我把代码发给你帮我看看。271551863

Answer 3

经验经验经验经验