<%
'获得上一条新闻
function getPreviousNews(rs,id)
'循环确定新闻在所有记录中的位置
Do Until rs.Eof
If rs("id")=id Then
Exit Do
End IF
rs.MoveNext
Loop
IF rs.EOf Then
'如果没有找到返回上一条没有了
getPreviousNews="<font color=red>·上一条:</font>已经没有了<BR> "
Else
'找到后开始获得上一条
rs.MovePrevious'让记录集向上移动一条记录
IF rs.BOF Then
'如果上一条不存在
getPreviousNews="<font color=red>·上一条:</font>已经没有了<BR> "
Else
'如果存在显示上一条
getPreviousNews="<font color=red>·上一条:</font><a href=""showdm.asp?id=" & rs("id") & """>" & rs("title") & "</a><BR>"
End IF
End IF
End Function
'获得下一条新闻
function getNextNews(rs,id)
Do Until rs.Eof
If rs("id")=id Then
Exit Do
End IF
rs.MoveNext
Loop
IF rs.EOf Then
getPreviousNews="<font color=red>·下一条:</font>已经没有了<BR> "
Else
rs.MoveNext'数据库记录集向下移动一条记录
IF rs.EOF Then'判断下一条是否存在
getPreviousNews="<font color=red>·下一条:</font>已经没有了<BR> "
Else
getPreviousNews="<font color=red>·下一条:</font><a href=""showdm.asp?id=" & rs("id") & """>" & rs("title") & "</a><BR>"
End IF
End IF
End Function
'调用代码
Dim tSql
'创建记录集(注:使用此方法必须这样创建记录集,否则有可能出错误)
set RelationArt = server.createobject("adodb.recordset")
tSql="select id,title from article order by date desc"'调用SQL语句获得数据库的所有新闻。
RelationArt.Open tSql,con,1,3
'调用函数获得上一条
Response.Write getPreviousNews(RelationArt,request.querystring("id"))
RelationArt.MoveFirst'移动记录集到第一条(很关键)
'调用函数获得下一条
Response.Write getNextNews(RelationArt,request.querystring("id"))
RelationArt.close
Set RelationArt=Nothing
%>