left.asp
上传用户:syzzy1975
上传日期:2022-07-17
资源大小:670k
文件大小:4k
源码类别:

Jsp/Servlet

开发平台:

Java

  1. <%
  2. dim ii,rsLeft
  3. set rsLeft=server.CreateObject("adodb.recordset")
  4. %>
  5.             <script  language="javascript">
  6. function Menu(term){
  7.    if(term.style.display=="none"){
  8.   term.style.display="";
  9.     }else{
  10. term.style.display="none";}
  11. }
  12.             </script>
  13.             <style type="text/css">
  14. <!--
  15. .STYLE1 {color: #66FFCC}
  16. -->
  17.             </style>
  18.             
  19. <table width="212" border="0" align="left" cellpadding="0" cellspacing="0">
  20.         <tr>
  21.           <td align="left" valign="top"><img src="images/mycar_up_1.gif" width="212" height="47"></td>
  22.         </tr>
  23.         <tr>
  24.           <td align="left" valign="top"><img src="images/mycar_up_2.gif" width="212" height="13"></td>
  25.         </tr>
  26.         <tr>
  27.           <td height="188" align="center" valign="top" background="images/mycar_bg.gif" ><iframe name="pcart" src="icar.asp" width="185" height="188" scrolling="no" frameborder="0"><span class="STYLE1"></span></iframe></td>
  28.         </tr>
  29.         <tr>
  30.           <td width="212" height="36" align="center" background="images/mycar_down.gif"><table width="161" border="0" cellspacing="0" cellpadding="0">
  31.               <tr>
  32.                 <td width="26">&nbsp;</td>
  33.                 <td width="135"><a href="car.asp" target="_blank" class="whitefont">购物车/结帐</a>|<a href="muser.asp" target="_parent" class="whitefont">帐号</a>|<a href="logout.asp" target="_parent" class="whitefont">注消</a></td>
  34.               </tr>
  35.           </table></td>
  36.         </tr>
  37.         <tr>
  38.           <td><img src="images/lmdh.gif" width="212" height="23"></td>
  39.         </tr>
  40.         <tr>
  41.           <td>&nbsp;</td>
  42.         </tr>
  43.         <%
  44. rsLeft.open "select category,categoryid from category where first=1",conn,1,1
  45. do while not rsLeft.eof
  46. %>
  47. <tr>
  48.           <td height="23" background="images/lmenu_2.gif"  class="dao" onClick=Menu(<%="m"&rsLeft("categoryid")%>)><%=rsLeft("category")%></td>
  49.         </tr>
  50.         
  51. <tr>
  52.           <td height="23" id=<%="m"&rsLeft("categoryid")%> style="display:none">
  53.   <table width="100%"  border="0" cellspacing="2" cellpadding="2">
  54.             <%
  55.    dim rsSubLeft
  56. set rsSubLeft=server.CreateObject("adodb.recordset")
  57. rsSubLeft.open "select sorts,sortsid from sorts where categoryid="&rsLeft("categoryid")&" and first=1 order by sortsorder",conn,1,1
  58. do while not rsSubLeft.eof
  59. %>
  60. <tr>
  61.               <td class="daosub"><a href="sub.asp?aid=<%=rsLeft("categoryid")%>&nid=<%=rsSubLeft("sortsid")%>"><%=rsSubLeft("sorts")%></a></td>
  62.             </tr>
  63.             <%
  64. rsSubLeft.movenext
  65. loop
  66. rsSubLeft.close
  67. set rsSubLeft=nothing
  68. %>
  69.   </table></td>
  70.         </tr>
  71.         
  72. <%
  73. rsLeft.movenext
  74. loop
  75. rsLeft.close
  76. %>
  77.         <tr>
  78.           <td><img src="images/cxtsph.gif" width="212" height="32"></td>
  79.         </tr>
  80.         <tr>
  81.           <td height="100" align="center" valign="top">
  82.   <table width="100%" border="0" cellpadding="1" cellspacing="2" bgcolor="#66FFFF">
  83.      <%
  84.   rsLeft.open "select top 10 id,name,solded from product order by solded desc",conn,1,1
  85.   if rsLeft.eof and rsLeft.bof then
  86.   response.write "  对不起, 暂时还没有商品!"
  87.   'response.End()
  88.   else
  89.          ii=0
  90.   do while not rsLeft.eof
  91.   %>
  92.               <tr>
  93.                 <td align="left"><a href="vpro.asp?id=<%=rsLeft("id")%>" target="_blank"><img src="images/w.gif" width="18" height="18" border="0"><%=strvalue(trim(rsLeft("name")),20)%></a>(<%=rsLeft("solded")%>)</td>
  94.               </tr>
  95.   <%ii=ii+1
  96.   if ii>=10 then exit do
  97.   rsLeft.movenext
  98.   loop
  99.   rsLeft.close
  100.   set rsLeft=nothing
  101.   end if
  102.   %>
  103.           </table></td>
  104.         </tr>
  105.         <tr>
  106.           <td>&nbsp;</td>
  107.         </tr>
  108.         <tr>
  109.           <td>&nbsp;</td>
  110.         </tr>
  111.       </table>