📄 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -