⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 productmulu.asp

📁 shoppingxp为网上商城系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:

<!--
┌─ shopxp.cn──────────────┐
│  免费版难免存在不足,建议你使用正式版  │
│  正式版用户提供免费升级24小时内排除故障│
│  请到www.shopxp.cn进行前台和后台的测试 │
│  热线:010-69209701-801 QQ:83107971   │
└────────────────────┘
-->
<!--#include file="conn/conn.asp"-->
<!--#include file="conn/webconfig.asp"-->
<html><head><title><%=webname%>--超级商品目录让您一目了然的选择</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="img/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #00000}
.style2 {font-weight: bold}
.style3 {
	color: #00000;
	font-weight: bold;
	font-size: 13px;
}
.style4 {color: #FF0000}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=91% border=0>
  <TBODY>
    <TR>
      <TD class=b vAlign=top align=left><table width="100%" height="49"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td>
              <%
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select btype_name,btype_id from btype order by btype_idorder",conn,1,1
		  do while not rs.eof %>
              <table width="100%" height="70"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td><TABLE width=98% height="53" border=0 align="center" cellPadding=0 cellSpacing=0>
                    <TBODY>
                      <TR>
                        <TD vAlign=top width=4 height=4><IMG height=4 
            src="img/xiao/new_line_004.gif" width=4></TD>
                        <TD background=img/xiao/new_line_008.gif height=4></TD>
                        <TD vAlign=top width=4 height=4><IMG height=4 
            src="img/xiao/new_line_005.gif" width=4></TD>
                      </TR>
                      <TR>
                        <TD width="1" rowspan="2" background=img/xiao/new_line_009.gif></TD>
                        <TD height="19">
                          <%response.write "<br>&nbsp;&nbsp;&nbsp;<A href=Catalog_Desc.asp?action_key_order=big&btype_id="&rs("btype_id")&" class=top><b><font color=#FF3300>"&trim(rs("btype_name"))&"</font></b></a>&nbsp;&nbsp;<br>"%>
                        </TD>
                        <TD width="1" rowspan="2" background=img/xiao/new_line_010.gif></TD>
                      </TR>
                      <TR>
                        <TD height="26"><% set rs2=server.CreateObject("adodb.recordset")
			rs2.open "select stype_name,stype_id from stype where btype_id="&rs("btype_id")&" order by stype_idorder",conn,1,1
			do while not rs2.eof
			response.write "&nbsp;&nbsp;&nbsp;<A href=Catalog_small_Desc.asp?action_key_order=small&btype_id="&rs("btype_id")&"&stype_id="&rs2("stype_id")&"><font color=#0099cc>"&trim(rs2("stype_name"))&"</font></A>  " 
             rs2.movenext
			 loop
			 rs2.close
			 set rs2=nothing
			 response.write "<br>"%></TD>
                      </TR>
                      <TR>
                        <TD vAlign=top width=4 height=4><IMG height=4 
            src="img/xiao/new_line_006.gif" width=4></TD>
                        <TD background=img/xiao/new_line_011.gif></TD>
                        <TD vAlign=top width=4 height=4><IMG height=4 
            src="img/xiao/new_line_007.gif" width=4></TD>
                      </TR>
                    </TBODY>
                  </TABLE></td>
                </tr>
              </table>
            <% rs.movenext
			loop
				rs.close
				set rs=nothing%></td>
          </tr>
        </table>        
        <table width="50%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><img src="img/xiao/title_top.gif" width="905" height="42"></td>
          </tr>
        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><TABLE width=99% border=0 align="center" cellPadding=0 cellSpacing=0>
                    <TBODY>
                      <TR>
                        <TD vAlign=top width=4 height=4><img height=4 
            src="img/xiao/new_line_004.gif" width=4></TD>
                        <TD background=img/xiao/new_line_008.gif height=4></TD>
                        <TD vAlign=top width=4 height=4><img height=4 
            src="img/xiao/new_line_005.gif" width=4></TD>
                      </TR>
                      <TR>
                        <TD width="1" background=img/xiao/new_line_009.gif></TD>
                        <TD 
          style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 3px; PADDING-TOP: 0px" 
          align=middle><table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select Top 14 * from shop_product where newsproduct=1 order by productid desc ",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "暂时还没有推荐的新商品!"
		  'response.End
		  else
		  %>
                              <%
		if not rs.eof then
		i=1
		do while not rs.eof%>
                              <td width="565" height="154" valign="top"><table width="98" height="130"  border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="98" height="94"><div align="center">
                                        <%if rs("upfilepic")="" then 
	response.write "<div align=center><a href=product.asp?id="&rs("productid")&" > <img src=img/emptybook.gif width=90 height=90 border=0></a></div>"
	else%>
                                        <a href=product.asp?id=<%=rs("productid")%> target="_blank"> <img src="<%=trim(rs("upfilepic"))%>" width=75 height=75 border=0  alt="<%=rs("productname")%>" align=absmiddle></a>
                                        <%end if%>
                                    </div></td>
                                  </tr>
                                  <tr>
                                    <td height="23" valign="middle"><div align="center"><a href=product.asp?id=<%=rs("productid")%> target="_blank"><font color="#FF0000"><%=trim(rs("productname"))%></font></a></div></td>
                                  </tr>
                                  <tr>
                                    <td height="13" valign="bottom"><table width="98%"  border="0" cellspacing="0" cellpadding="0">
                                        <tr>
                                          <td height="37"><div align="center"> <font color="#999999"><s>市场价:<%=trim(rs("shichangjia"))%> 元</s></font><br>
                                                  <span class="style4">会员价:<%=trim(rs("huiyuanjia"))%> 元</span> </div></td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <%if i mod 7 = 0 then%>
                            </tr>
                            <%end if
	    rs.movenext
         i=i+1
    	 loop
		rs.close
		end if
		end if 
	%>
                        </table></TD>
                        <TD width="1" background=img/xiao/new_line_010.gif></TD>
                      </TR>
                      <TR>
                        <TD vAlign=top width=4 height=4><img height=4 
            src="img/xiao/new_line_006.gif" width=4></TD>
                        <TD background=img/xiao/new_line_011.gif></TD>
                        <TD vAlign=top width=4 height=4><img height=4 
            src="img/xiao/new_line_007.gif" width=4></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>
            </table></td>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -