news_left_menu.asp

后台管理系统

<!--#include file="conn.asp"-->
 <div class="nav3">
       <!-- Main title -->
      <p class="sidebar-maintitle">news list</p>
     
			<!-- Textbox -->
			<div class="sidebar-txtbox-noshade">
					<%
		'选出最新添加的新闻
set rs= Server.CreateObject("ADODB.Recordset")
rs_sqltxt="select news_title,news_intro,id from news"
rs.open rs_sqltxt,conn,1,1
'判断有无新闻
		if rs.eof or rs.bof then
		response.write("<li class='group'>NO NEWS</li>")
		else
while not rs.eof or rs.bof 
%>
	  		<p><b><a href="show_info.asp?news_id=<%=rs("id")%>&showme=news"><%=rs("news_title")%></a></b><br /><%=rs("news_intro")%></p>
	  		  <%
		rs.movenext
		wend		
		end if
		rs.close
		set rs=nothing
		%>	
      </div>
      
			<!-- Main title -->
      
    </div>
	<!--选出热点新闻-->
	<div class="nav3">
       <!-- Main title -->
      <p class="sidebar-maintitle">HOT News </p>
     
			<!-- Textbox -->
			<div class="sidebar-txtbox-noshade">
					<%
		'选出最新添加的新闻
set rs= Server.CreateObject("ADODB.Recordset")
rs_sqltxt="select news_title,news_intro,id from news where stress=1"
rs.open rs_sqltxt,conn,1,1
'判断有无新闻
		if rs.eof or rs.bof then
		response.write("<li class='group'>NO HOT</li>")
		else
while not rs.eof or rs.bof 
%>
	  		<p><b><a href="show_info.asp?news_id=<%=rs("id")%>&showme=news"><%=rs("news_title")%></a></b><br /><%=rs("news_intro")%></p>
	  		  <%
		rs.movenext
		wend		
		end if
		rs.close
		set rs=nothing
		%>	
      </div>
      
			<!-- Main title -->
      
    </div>