<%
Dim id,strContent
id=RequestQueryNum("id")
Set rs=conn.Execute("Select * From notebook Where id="& id &"")
If rs.bof And rs.eof Then
Response.Write "param error!"
Response.End
End If
strContent=rs("content")
cid=rs("categoryid")
Set rs=conn.Execute("Select top 1 id,title from notebook Where id < "& id &" and categoryid="& cid &" order by id desc")
If rs.bof And rs.eof Then
Else
linkNext="下一篇"
End If
Set rs=conn.Execute("Select top 1 id,title from notebook Where id > "& id &" and categoryid="& cid &" order by id asc")
If rs.bof And rs.eof Then
Else
linkPre="上一篇"
End If
Set rs=nothing
%>
文章