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

📄 fenlei.asp

📁 asp的网上卖东西的..看看还可以的吧
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--快速分类</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="bjxhead.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
    <TR>
      <TD class=b vAlign=top align=left><table width="970" align="center" border="0" cellspacing="0" cellpadding="0"  bordercolor="#CCCCCC">
        <tr>
          <td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td background="images/class_bg.jpg" height=50> <img src="images/ring02.gif" width="23" height="15" align="absmiddle"> <a href=index.asp><%=webname%></a> >> 快速分类</td>
              </tr>
            </table>
              <table width=100% align=center class=table-shangxia border=0 cellpadding=0 cellspacing=0 bgcolor=#f1f1f1>
                <TR>
                  <TD bgColor=#ffffff colSpan=0 height=1></TD>
                <TR>
                <tr>
                  <td align=center width=20% height=30>商品目录</td>
                  <td align=center width=80% height=30>商品分类</td>
                </tr>
              </table>
              <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td><%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * FROM BJX_class1 order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
                            <table width=100% border="0" cellpadding="5" cellspacing="0" class="table-xia" bgColor=#f1f1f1>
                              <TR>
                                <TD bgColor=#ffffff colspan=20 height=1></TD>
                              <TR>
                              <tr>
                                <td width="23%" rowspan="20" STYLE='PADDING-LEFT: 18px'><img src="images/ring01.gif" align="absmiddle"> <font color="#FF6600"><a href="fenleiview.asp?lx=big&anid=<%=rs("anclassid")%>"><font color="#FF6600"><u><%=rs("anclass")%></u></font></a></font></td>
                              </tr>
                              <%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * FROM BJX_class2 where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then 
%>
                              <tr>
                                <td width="77%" colspan="8"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                                    <tr>
                                      <td width="80%" height="30" align="center" colspan="8">暂无小分类</td>
                                    </tr>
                                    <%
else
i=0
while not rs_s.eof
%>
                                    <tr>
                                      <td width="100" height="30"><a href="fenleiview.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
                                          <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
                                      </td>
                                      <td width="100"><a href="fenleiview.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
                                          <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
                                      </td>
                                      <td width="100"><a href="fenleiview.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
                                          <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
                                      </td>
                                      <td width="100"><a href="fenleiview.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
                                          <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
                                      </td>
                                      <td width="100"><a href="fenleiview.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
                                          <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
                                      </td>
                                      <td width="100"><a href="fenleiview.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a> </td>
                                      <%
rs_s.movenext
end if
end if
end if
end if
end if
wend
end if
%>
                                    </tr>
                                    <%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>									
                                  </table>
                               </tr>
                          </table></td>
                      </tr>
                  </table></td>
                </tr>
            </table></td>
        </tr>
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="bjxfoot.asp"-->
</body>
</html>

⌨️ 快捷键说明

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