js_news_updown.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!-- #include file="admin_conn.asp"-->
<!--#include file = admin/titleb.asp -->

<%
	news_id=trim(request("news_id"))
	lm_id=trim(request("lm_id"))
		
		'功能:调用上下条函数	      
		'参数: ClassID：栏目ID,  NowID：ID号,    TypeStr：类型--Prev、Next
	 Function ReplacePrevNextArticle(ClassID,NowID,TypeStr)
		Dim SqlStr
			If Trim(TypeStr) = "Prev" Then
				   SqlStr = " SELECT Top 1 ID,Title,sh From [news] Where (lm2='"&ClassID&"' or lm='"&ClassID&"' or lm3='"&ClassID&"')  And ID<" & NowID & " And sh=1 Order By ID Desc"
			ElseIf Trim(TypeStr) = "Next" Then
				   SqlStr = " SELECT Top 1 ID,Title,sh From [news] Where (lm2='"&ClassID&"' or lm='"&ClassID&"' or lm3='"&ClassID&"')  And ID>" & NowID & " And sh=1 Order By ID asc"
			Else
				ReplacePrevNextArticle = "":Exit Function
			End If
			 Dim RS:Set RS=Server.CreateObject("ADODB.Recordset")
			 RS.Open SqlStr, Conn, 1, 1
			 If RS.EOF And RS.BOF Then
				ReplacePrevNextArticle = "没有了"
			 Else
			  ReplacePrevNextArticle = "<a href=" & fun_html_url(RS("id")) & " title=" & RS("Title") & ">" & RS("title") & "</a>"
			 End If
			 RS.Close:Set RS = Nothing
	 End Function 

%>
 document.write (" <div class=contentupdown style='text-align:center;width:98%;'><div id=contentup style='float:left'><strong>上一篇:</strong><%=ReplacePrevNextArticle(lm_id,news_id,"Prev")%></div><div id=contentup style='float:right'><strong>下一篇:</strong><%=ReplacePrevNextArticle(lm_id,news_id,"Next")%></div></div>");
<% call CloseConn()%>