<%
'定义一个nextrs函数来找出下一篇的ID
function nextrs
nextrsd=server.CreateObject("adodb.recordset")
sql="select top 6 * from AspCms_Content where ContentID>"&a1&" order by ContentID"
set nextrsd=conn.execute(sql)
if nextrsd.eof then
response.Write ""
else
do while not nextrsd.eof
a2=nextrsd("ContentID")
response.Write "
"
nextrsd.movenext
loop
end if
end function
'定义一个backrs函数来找出上一篇的ID
function backrs
backrsd=server.CreateObject("adodb.recordset")
sql="select top 6 * from AspCms_Content where ContentID<"&a1&" order by ContentID desc"
set backrsd=conn.execute(sql)
if backrsd.eof then
response.Write ""
else
do while not backrsd.eof
a0=backrsd("ContentID")
response.Write "
"
backrsd.movenext
loop
end if
end function
'取得传递过来的文章ID
id=request("id")
sql="select * from AspCms_Content where ContentID="&id
set rs=conn.execute(sql)
a1=rs("ContentID")
SortID=rs("SortID")
'response.Write(SortID)
'response.End()
sql2="select * from AspCms_Sort where SortID="&SortID&""
set rs2=conn.execute(sql2)
SortName=rs2("SortName")
%>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from AspCms_Content where ContentID>"&id&" or ContentID<"&id&" order by ContentID desc"
rs_news.open sqltext4,conn,1,1
if rs_news.eof and rs_news.bof then
response.write "暂无信息!"%>
<% else i=0
do while not rs_news.eof
i=i+1%>