left_menu.asp

后台管理系统

<!--#include file="conn.asp"-->
 <div class="nav3"><ul><li class="title">new products </li>
 <%
 '选出最新产品
set rs= Server.CreateObject("ADODB.Recordset")
rs_sqltxt="select top 10 product_name,id,big_sortid from product_info where pass=1"
rs.open rs_sqltxt,conn,1,1
'判断有无最新产品
		if rs.eof or rs.bof then
		response.write("<li class='group'>NO PRODUCTS</li>")
		else
while not rs.eof or rs.bof 
%>
        <li class="group"><a href="products_detail.asp?img_id=<%=rs("id")%>&big_img_id=<%=rs("big_sortid")%>"><%=server.HTMLENCODE(rs("product_name"))%></a></li>		
        <%
		rs.movenext
		wend
				end if

		rs.close
		set rs=nothing
		%>
      </ul>
      <ul>
        <li class="title">Recommand</li>
		<%
		'选出推荐产品
set rs= Server.CreateObject("ADODB.Recordset")
rs_sqltxt="select product_name,id,big_sortid from product_info where tuijian=1 and pass=1"
rs.open rs_sqltxt,conn,1,1
'判断有无推荐产品
		if rs.eof or rs.bof then
		response.write("<li class='group'>NO RECOMANNDS</li>")
		else
while not rs.eof or rs.bof 
%>
       <li class="group"><a href="products_detail.asp?img_id=<%=rs("id")%>&big_img_id=<%=rs("big_sortid")%>"><%=rs("product_name")%></a></li>
	    <%
		rs.movenext
		wend
		end if
		rs.close
		set rs=nothing
		%>	
      </ul>
      
      <!-- Main title -->
      <p class="sidebar-maintitle">latest news</p>
     
			<!-- Textbox -->
			<div class="sidebar-txtbox-noshade">
					<%
		'选出最新添加的新闻
set rs= Server.CreateObject("ADODB.Recordset")
rs_sqltxt="select top 6  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>