fenlei.asp

网上商场 帐户管理方面 1.实现了购物车和收藏夹的功能。 2.实现了历史订单查询以及即时订单跟踪。 3.实现了个人资料修改,查询以及送货人信息修改和查询。

<table width="100%" height="100" border="0" cellpadding="0" cellspacing="0"><tr><td><table width="100%" height="86" border="0" cellpadding="0" cellspacing="0"><tr><td height="16" colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr> 
					    <TD width=11><IMG height=25 
                        src="images/cruises_top1b.gif" 
                        width=11></TD>

						 <TD background="images/cruises_topbg.gif">
                        <TABLE cellSpacing=0 cellPadding=0  border=0>
                          <TBODY>
                          <TR>
                            <TD width=19><IMG height=15 
                              src="images/icon03.gif" 
                              width=13></TD>
                <TD class=white14><FONT 
                              color=#ffffff><STRONG>商品详细分类</STRONG></FONT></TD></TR></TBODY></TABLE></TD>
                      <TD align=right width=18><IMG height=25 
                        src="images/cruises_top2b.gif" 
                        width=18></TD></TR></TBODY></TABLE></TD>
					   
					   
				</tr>  
      <%set rs=server.CreateObject("adodb.recordset")
				rs.open "select anclassid,anclass from shop_anclass order by anclassidorder",conn,1,1
	do while not rs.eof 
%>           <tr vAlign=top > <TD align=middle width=17><IMG height=13 
                        src="images/ml09.gif" width=7></TD><td > 
        <b><a href=dclass.asp?aid=<%=rs("anclassid")%>><font color=#000000><%=rs("anclass")%></font></a></b><br>
        <%dim rs2
					 set rs2=server.createobject("adodb.recordset")       
					
					rs2.open "select nclassid,nclass from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1 
	do while not rs2.eof 
%>
        <a href=class.asp?aid=<%=rs("anclassid")%>&nid=<%=rs2("nclassid")%>><u><%=rs2("nclass")%></u></a> 
	<%rs2.movenext 
	loop 
	rs2.close 
%> </TD></TR><TR><TD  colSpan=2 height=2 bgcolor="#FFFFFF"></TD></TR>
      <% 
	rs.movenext 
	loop 
	rs.close 	
%>
</table></td></tr>

<TR><TD>


<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" >
        <tr>
		
		
		 <TD width=11><IMG height=25 
                        src="images/cruises_top1b.gif" 
                        width=11></TD> 
						 <TD width="39" 
                      background="images/cruises_topbg.gif"><IMG height=15 
                              src="images/icon03.gif" 
                              width=13></TD><TD width="703" background="images/cruises_topbg.gif"><FONT 
                              color=#ffffff><STRONG>常见问题回答</STRONG></FONT></TD>
                      <TD align=right width=18><IMG height=25 
                        src="images/cruises_top2b.gif" 
                        width=18></TD>
						
        </tr></table>
      <%dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from shop_news order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "目前还没有新闻！"
		  else
		  do while not rs.eof
		  i=i+1
		  response.write "·<a href=# onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&trim(rs("newsname"))&"</a><br>"
		  if i>=6 then exit do
		  rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
</TD></TR>
</table>