Question

asp 上一篇文章 下一篇文章

我的ACCEES数据库里面的表是叫news 字段有主键：N_ID、标题：Title、内容：Content。
c_id=1 新闻分类 ，想在文章结尾处加上：“上一篇”“下一篇”。这个文件名是NewsInfo.asp?id=90
希望能帮我写个过程！万分感谢！

Answer 1

<%
'调用方法 Call pnArticle(当前接受的ID,上篇还是下篇)
'比如：上一篇 Call pnArticle(Request.QueryString("id"),"prev")
' 上一篇 Call pnArticle(Request.QueryString("id"),"next")
Sub pnArticle(id,action)
Dim newRs,sql,at
Set newRs = Server.CreateObject("ADODB.RecordSet")
Select Case action
Case "next"
at = "<"
Case "prev"
at = ">"
Case Else
Response.Write("参数错误！")
Response.End()
End Select
sql = "select top 1 * from N_ew1 where P_ID "&at&" "&id&" order by P_ID desc"
newRs.open sql,conn,1,1
If CInt(newRs.RecordCount)=0 Then
Response.Write("没有了！")
Else
Response.Write("<a href='view.asp?id="&newRs("P_ID")&"' title='"&newRs("P_Name")&"'>"&newRs("P_Name")&"</a>")
End If
End Sub
%>