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

📄 pingpai.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<!--
┌─9911.com.cn────────────┐
│  动感购物 WWW.9911.com.cn 版权所有  │
│  动感购物2005Vb  联系:web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<html>
<head>
<title><%=webname%>--<%if lcase(request("action"))="about" then 
		       response.write "关于本站"
                       elseif lcase(request("action"))="lxwm" then 
                       response.write "联系我们"
                       elseif lcase(request("action"))="jtcg" then 
                       response.write "集团采购"
                       else
                       response.write "集团采购"
                       end if%></title>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦!:)';return true">-->
<!--#include file="webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
  <tr>
    <td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
    <td valign="bottom">您现在的位置是:<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14">商品分类与品牌中心</span></span></td>
    <td valign="bottom"> 
       
    </td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<table width="945" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td> <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td valign="top"> 
            <br>
            <TABLE width="96%" align="center" cellPadding=0 cellSpacing=0>
              <TBODY>
                <TR>
                  <TD height=20><table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
                      <tr>
                        <td height="10"></td>
                      </tr>
                    </table>
          <%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 src=img/top3.gif border=0>&nbsp;&nbsp;<A href=class.asp?lx=big&anid="&rs("anclassid")&" class=top><font color="&trim(rs("sztys"))&"><b>"&trim(rs("anclass"))&"</b></font></a>&nbsp;&nbsp;<br>"%>
                      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td><span class="link_redblank">  
           <%set rs2=server.CreateObject("adodb.recordset")
			rs2.open "select * from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
			do while not rs2.eof
			response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;<b><A href=class.asp?lx=small&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A></b>  " 
			response.write "</span>&gt;&nbsp;"
			  set rs3=server.CreateObject("adodb.recordset")
			  rs3.open "select * from shop_xclass where nclassid="&rs2("nclassid")&" order by xpx",conn,1,1
			  do while not rs3.eof
			  response.write "<A href=class.asp?lx=snsn&anid="&rs("anclassid")&"&nid="&rs2("nclassid")&"&xid="&rs3("id")&" class=link_redblank>"&trim(rs3("xclass"))&"</A> | " 
              rs3.movenext
			  loop
			  rs3.close
			  set rs3=nothing
			rs2.movenext
			loop
			rs2.close
			set rs2=nothing%></td>
                        </tr>
                      </table>
                      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td height="12"></td>
                        </tr>
                        <tr>
                          <td height="1"  bgcolor="#CCCCCC"></td>
                        </tr>
                        <tr>
                          <td height="12"></td>
                        </tr>
                      </table>
            <%
			rs.movenext
			loop
			rs.close
			set rs=nothing%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
                        <tr>
                          <td height="10"></td>
                        </tr>
                    </table></TD>
                </TR>
              </TBODY>
            </TABLE>
            <br> 
            <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="30">                  <font color="<%=tsh%>">&nbsp; 
                  </font><font color="#FF0000">所有品牌:</font><font color="<%=tsh%>">
                  <%set rs=server.CreateObject("adodb.recordset")
rs.open "select * From shop_pingpai order by pingpaiorder",conn,1,1
if rs.eof and rs.bof then
response.write ""
else%>
                  <%
		  while not rs.eof
		  response.write "<a href=research.asp?action=0&searchkey="&trim(rs("pingpainame"))&" target=_blank><font color="&tsh&">"&trim(rs("pingpainame"))&"</font></a>&nbsp;<b>·</b>&nbsp;"
		  rs.movenext
		  wend
		  %>
                  <%end if
rs.close
set rs=nothing%>
                  </font></td>
              </tr>
          </table>
            <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="8"></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>

⌨️ 快捷键说明

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