asp 上一篇文章 下一篇文章

<%
'调用方法 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("")
End If
End Sub
%>