class.asp

购物系统(本版为正式商业版

		rs_nclass.open "select  count(*) from shop_snsn where cxiaoshop=1",conn,1,1
		response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
		rs.open "select * from shop_snsn where cxiaoshop=1 order by adddate desc",conn,1,1
else
 xml= "<a href=rss_class.asp?lx=tejia><img src=img/xml.gif border=0 alt=""RSS2.0支持""></a>"
      response.write "其它查看方式"
		px=request.QueryString("px")
				if px="" then
						set rs_nclass=server.createobject("adodb.recordset")
						rs_nclass.open "select  count(*) from shop_snsn where newsshop=1",conn,1,1
						response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"
				rs.open "select * from shop_snsn where newsshop=1 order by adddate desc",conn,1,1
				else
						set rs_nclass=server.createobject("adodb.recordset")
						rs_nclass.open "select  count(*) from shop_snsn",conn,1,1
						response.write "(本类共有<font color=#FF0000>"&rs_nclass(0)&"</font>种)"

				select case px
				case "0" 
						rs.open "select * from shop_snsn where  bestshop=1 ",conn,1,1
				case "1" 
						rs.open "select * from shop_snsn order by adddate asc",conn,1,1
				case "2" 
						rs.open "select * from shop_snsn  order by adddate desc",conn,1,1
				case "3" 
						rs.open "select * from shop_snsn  order by shichangjia desc",conn,1,1
				case "4" 
						rs.open "select * from shop_snsn  order by shichangjia asc",conn,1,1
				case "5" 
						rs.open "select * from shop_snsn  order by sx desc",conn,1,1
				case "6" 
						rs.open "select * from shop_snsn  order by sx asc",conn,1,1
				end select
				end if
end if
%></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">
  <tr>
    <td width="200" valign="top"><!--#include file="cart.asp"--><%if leixing="big" then%>
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_class.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td> </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><span class="fontglow"><span class="b14">
                  
                  </span></span>
                  <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                     <%set rsl=server.createobject("adodb.recordset")
			rsl.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&anclassid&" and xs=2 order by nclassidorder asc",conn,1,1
			while not rsl.eof %>
                      <tr>
                        <td height="22"> <img src="img/go.gif" width="15" height="15">
                        <span class="fontglow"><A href=class.asp?lx=small&anid=<%=anclassid%>&nid=<%=rsl("nclassid")%>><font color=<%=trim(rsl("xsztys"))%>><%=trim(rsl("nclass"))%></font></A></span><%
           classsl=conn.execute("Select count(*) from shop_snsn where nclassid="&rsl("nclassid")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%>                        </td>
                      </tr>
                      <tr>
                        <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                      </tr>
                       <%rsl.movenext
		    wend
		    rsl.close
		  %>
                </table>
                  <span class="fontglow"><span class="b14">
                 
                </span></span></td>
              </tr>
          </table>          </td>
        </tr>
      </table>
	  <%elseif leixing="small" or leixing="snsn" then%>
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_class.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td> </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><span class="fontglow"><span class="b14"> </span></span>
                    <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                      <%set rsl=server.createobject("adodb.recordset")
			rsl.open "select nclass,nclassid,xsztys from shop_nclass where anclassid="&anclassid&" and xs=2 order by nclassidorder asc",conn,1,1
			while not rsl.eof%>
                      <tr>
                        <td height="22"> <img src="img/go.gif" width="15" height="15"> <span class="fontglow"><span class="b14"><A href=class.asp?lx=small&anid=<%=anclassid%>&nid=<%=rsl("nclassid")%>><font color=<%=trim(rsl("xsztys"))%>><%=trim(rsl("nclass"))%></font></A></span></span><%
           classsl=conn.execute("Select count(*) from shop_snsn where nclassid="&rsl("nclassid")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%></td>
                      </tr>
                      <tr>
                        <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                      </tr>
                      <%rsl.movenext
		    wend
		    rsl.close
		  %>
                    </table>
                    <span class="fontglow"><span class="b14"> </span></span></td>
              </tr>
          </table></td>
        </tr>
      </table>      
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_xclass.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td> </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><span class="fontglow"><span class="b14"> </span></span>
                    <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                      <%set rsl=server.createobject("adodb.recordset")
			rsl.open "select * from shop_xclass where anclassid="&anclassid&" and nclassid="&nclassid&" and xxs=2 order by xpx asc",conn,1,1
			while not rsl.eof%>
                      <tr>
                        <td height="22"> <img src="img/go.gif" width="15" height="15"> <span class="fontglow"><span class="b14"><A href=class.asp?lx=snsn&anid=<%=anclassid%>&nid=<%=rsl("nclassid")%>&xid=<%=rsl("id")%>><%=trim(rsl("xclass"))%></A> </span></span><%
           xclasssl=conn.execute("Select count(*)from shop_snsn where xclassid="&rsl("id")&"")(0)
		   response.write "(<font color=#FF0000>"&xclasssl&"</font>)"%></td>
                      </tr>
                      <tr>
                        <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                      </tr>
                      <%rsl.movenext
		    wend
		    rsl.close
		  %>
                    </table>
                    <span class="fontglow"><span class="b14"> </span></span></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <%end if%>
      <font color="#FF0000">
      <%if session("username")<>"" then%>
      </font>
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_best11.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td>
          </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td><table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                    <%set rsl=server.createobject("adodb.recordset")
		    rsl.open "select * from shop_his where username='"&nosql(session("username"))&"' and lx=1 order by ltime desc",conn,1,1
			while not rsl.eof%>
                    <tr>
                      <td height="22"> <img src="img/go.gif" width="15" height="15"><a href='list.asp?id=<%=rsl("shopid")%>' target=_blank>
                        <%if len(trim(rsl("shopname")))>11 then
	response.write left(trim(rsl("shopname")),11)&".."
	else
	response.write trim(rsl("shopname"))
	end if%>
                      </a></td>
                    </tr>
                    <tr>
                      <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                    </tr>
                    <%rsl.movenext
		    wend
		    rsl.close
		  %>
                </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
        <tr>
          <td height="12"></td>
        </tr>
        <tr>
          <td><img src="img/lf_tl_best12.gif" width="180" height="40"></td>
        </tr>
        <tr>
          <td>
          </td>
        </tr>
      </table>
      <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
        <tr>
          <td><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><table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                          <%set rss=server.createobject("adodb.recordset")
		    rss.open "select * from shop_his where username='"&nosql(session("username"))&"' and lx=2 order by ltime desc",conn,1,1
			while not rss.eof%>
                          <tr>
                            <td height="22"> <img src="img/image002.gif" width="15" height="15">
                                <%if len(trim(rss("shopname")))>21 then
	response.write left(trim(rss("shopname")),21)&".."
	else
	response.write trim(rss("shopname"))
	end if%>
                            </td>
                          </tr>
                          <tr>
                            <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                          </tr>
                          <%rss.movenext
		    wend
		    rss.close
			set rss=nothing%>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <%end if%>