?? left.asp
字號:
<img src="images/pic_008.gif" alt="商品最新分類" width="168" height="63">
<table width="93%" border="0" align="center" cellSpacing="0">
<tr>
<td height="23">
<%
'二次查詢大類
set rs=server.CreateObject("adodb.recordset")
rs.open "select anclass,anclassid,sztys from shop_anclass",conn,1,1
do while not rs.eof
response.write "<IMG height=9 src=images/Forum_nav.gif width=9 border=0> <A href=class.asp?lx=big&anid="&rs("anclassid")&" class=top><font color="&trim(rs("sztys"))&"><b>"&trim(rs("anclass"))&"</b></font></a> <br>"
'//查詢小類
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
do while not rs2.eof
response.write "<A href=class.asp?lx=small&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> "
rs2.movenext
loop
rs2.close
set rs2=nothing
response.write "<br>"
rs.movenext
'ii=ii+1
loop
rs.close
set rs=nothing%>
</td>
</tr>
</table>
<img src="images/pic_023.gif" alt="商品最新上架" width="168" height="63">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%set rs=server.createobject("adodb.recordset")
rs.open "select Top 8 * from shop_snsn where newsshop=1 order by shopid desc",conn,1,1
if rs.recordcount=0 then
response.write "暫無新品"
else
while not rs.eof
%>
<tr>
<td width="100%" height="23"> <img src="images/dot_03.gif" width="9" height="9" border="0">
<a href=list.asp?id=<%=rs("shopid")%>> <font color="<%=flxpshj%>">
<%if len(trim(rs("shopname")))>11 then
response.write left(trim(rs("shopname")),11)&".."
else
response.write trim(rs("shopname"))
end if%>
</font></a> </td>
</tr>
<%
rs.movenext
wend
end if
rs.close
%>
</table>
<img src="images/pic_024.gif" alt="商品銷售排行" width="168" height="63">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 8 shopid,shopname,chengjiaocount from shop_snsn order by chengjiaocount desc",conn,1,1%>
<%i=0
do while not rs.eof%>
<tr>
<td width="100%" height="23">
<%response.write " <img src=images/dot_03.gif width=9 height=9 border=0> <a href=list.asp?id="&rs("shopid")&" title=此商品已成功銷售"&rs("chengjiaocount")&"次><font color="&flxshph&">"
if len(trim(rs("shopname")))>11 then
response.write left(trim(rs("shopname")),11)&".."
else
response.write trim(rs("shopname"))
end if
response.write "</font></a><br>"
%>
</td>
</tr>
<%i=i+1
if i>=8 then exit do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -