<title><%=catstr %><%=webname%></title>
<LINK 
href="img/code43.css" type=text/css rel=stylesheet>
<meta name="description" content="网域电子商务网站,公司企业网站管理系统中英繁，仿阿里巴巴商贸通商务网,商城购物系统程序,源码下载，多用户商城,客隆电子商务网站管理系统,装饰,家具,旅社社旅游网站建设，程序开发,网站开发，网站推广,商城代码,系统销售,网络营销,企业商务,整站程序,ASP代码销售,企业电子商务平台,电子政务，官方站点：http://www.wygk.cn">
<meta name="keywords" content="网域电子商务网站,公司企业网站管理系统中英繁，仿阿里巴巴商贸通商务网,商城购物系统程序,源码下载，多用户商城,客隆电子商务网站管理系统,装饰,家具,旅社社旅游网站建设，程序开发,网站开发，网站推广,商城代码,系统销售,网络营销,企业商务,整站程序,ASP代码销售,企业电子商务平台,电子政务，官方站点：http://www.wygk.cn">
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/code43.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="include/header.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
		 if catid="" or catid = 0 then
		 	conn.close
			set conn = Nothing
		 	response.Redirect "procat.asp"
			response.end
		 end if
	
		 set rs=server.CreateObject("adodb.recordset")
		do while not PID = 0
		 rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
		 lstcat = "－&gt;<a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
		 catstr = ""&rs("category")&"－&gt;"&catstr
		 CaID = PID
		 CatN = rs("category")
		 PID = rs("ParentID")
		 rs.close 
		 loop
		 
		 rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
		  strcat = rs("category")
		  strmeta = rs("meta")
		  strintro = rs("intro")
		  rs.close 
		 set rs = Nothing		
		 %>
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
    <td rowspan="3" width="212" height="446" valign="top"> 
      <table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
        </tr>
        <tr> 
          <td background="image/images/left_02.gif" width="212" height="127"> 
            <!-- #include file="login.asp"-->
          </td>
        </tr>
        <tr> 
          <td width="212"  valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="4"></td>
              </tr>
            </table>
            <table class=table-you>
              <tr> 
                <td class=table-xia> 
                  <!--#include file="include/cat.asp"-->
                </td>
              </tr>
              <% if zuo1<>"" then %>
              <tr> 
                <td align="center" class=table-xia><a href=<%=zuo1url%> target="_blank"><img src=<%=zuo1%> border="0" width="165"></a></td>
              </tr>
              <% end if %>
              <tr> 
                <td class=table-xia> 
                  <!--#include file="include/catnew.asp"-->
                </td>
              </tr>
              <% if zuo2<>"" then %>
              <tr> 
                <td align="center" class=table-xia><a href=<%=zuo2url%> target="_blank"><img src=<%=zuo2%> border="0" width="165"></a></td>
              </tr>
              <% end if %>
              <tr> 
                <td class=table-xia> 
                  <!--#include file="include/catsold.asp"-->
                </td>
              </tr>
              <% if zuo3<>"" then %>
              <tr> 
                <td align="center" class=table-xia><a href=<%=zuo3url%> target="_blank"><img src=<%=zuo3%> border="0" width="165"></a></td>
              </tr>
              <% end if %>
              <tr> 
                <td class=table-xia> 
                  <!--#include file="include/cathot.asp"-->
                </td>
              </tr>
              <% if zuo4<>"" then %>
              <tr> 
                <td align="center" class=table-xia><a href=<%=zuo4url%> target="_blank"><img src=<%=zuo4%> border="0" width="170"></a></td>
              </tr>
              <% end if %>
              <tr> 
                <td class=table-xia> 
                  <!--#include file="include/catdis.asp"-->
                </td>
              </tr>
              <tr> 
                <td class=table-xia> 
                  <!--#include file="include/catrec.asp"-->
                </td>
              </tr>
            </table>
            <% if left1<>"" then %>
            <a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a> 
            <% end if %>
            <!--左侧-->
            <br>
            <% if left2<>"" then %>
            <a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a> 
            <% end if %>
            <!--左侧-->
          </td>
        </tr>
      </table>
      <table height=43 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/contact.gif 
border=0>
        <tbody> 
        <tr> 
          <td  valign=top> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table cellspacing=0 cellpadding=0 width="100%" 
                              border=0 height="35">
              <tbody> 
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top><img 
                                src="img/left_customer_01.gif" 
                                align=absMiddle width="21" height="14">020-34506590</td>
              </tr>
              <tr> 
                <td 
                                style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma" 
                                valign=top height=10><img 
                                src="img/left_customer_02.gif" 
                                align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" 
border=0>
        <tbody></tbody> 
      </table>
      <table height=51 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/time.gif border=0>
        <form name=frmTime3><tbody>
          <tr> 
            <td style="PADDING-LEFT: 38px; PADDING-TOP: 28px" 
                            valign=top> 
              <input 
                              style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; FONT: 9pt 宋体; BORDER-LEFT: 0px; WIDTH: 150px; COLOR: #585858; BORDER-BOTTOM: 0px; HEIGHT: 18px; BACKGROUND-COLOR: transparent" 
                              readOnly name=disp>
            </td>
          </tr>
        </form>
        <script>TO=setTimeout('TOfunc()',1000);</script></TBODY>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="4"></td>
        </tr>
      </table>
      <table height=51 cellspacing=0 cellpadding=0 
                        width="100%" align=center 
                        background=img/conter.gif 
                          border=0>
        <tbody> 
        <tr> 
          <td style="PADDING-LEFT: 38px; PADDING-TOP: 24px" 
                            valign=top> 
            <script src="count/index2.asp?tye=num"></script>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td rowspan="3" width="747" valign="top"> 
      <table width="747" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td> 
            <!-- #include file="ad.asp"-->
          </td>
        </tr>
        <tr> 
          <td height="57" background="image/special.gif"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="12%">&nbsp;</td>
                <td width="88%" align="left"> 
                  <div align="left"><b><font face="Arial"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>－&gt;<a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></b></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width="50%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="3"></td>
        </tr>
      </table>
      <table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
        <tr> 
          <td class=ml width="1" background="image/line.gif"></td>
          <td class=ml width="10"></td>
          <td align=left width="716" valign="top">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr> 
          <td valign="top"> 
            <%
				Const MaxPerPage=50
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    				if Not isempty(SafeRequest("page",1)) then
      				currentPage=Cint(SafeRequest("page",1))
   				else
      				currentPage=1
   				end if 
		 set rs=server.CreateObject("adodb.recordset")
		 if catid="" then
		  rs.open "select top 20 id,name,price1,price2,stock from product order by adddate desc",conn,1,1
		  else
		   rs.open "select name,id,price1,price2,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1 
		  end if
				
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center' class='contents'> 对不起，此分类暂时还没有商品！</p>"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"textlink.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"textlink.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"textlink.asp"
	      				end if
	   				end if
   				   				end if

   				sub showContent
       			dim i
	   			i=0
			do while not rs.eof%>
            <table width="98%" border="0" align="center" cellpadding="0" cellspacing="3" class=table-xia>
              <tr> 
                <td width="40%"><a href=product.asp?id=<%=rs("id")%>><font color="#FF6600"><%=trim(rs("name"))%></font></a></td>
                <td width="20%">市场价：<S>￥<%=rs("price1")%>元</S></td>
                <td width="20%">会员价：<FONT COLOR="#FF6600">￥</FONT><font color=red><%=rs("price2")%>元</font></td>
                <td width="20%"> 
                  <% if rs("stock") > 0 then %>
                  <a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto.gif align=absmiddle border=0></a> 
                  <% else %>
                  <font color="#FF6600">暂时缺货</font> 
                  <% end if %>
                </td>
              </tr>
            </table>
            <%
			i=i+1
			if i>=MaxPerPage then Exit Do
			rs.movenext
			loop
			rs.close
			set rs=nothing
			%>
            <%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If %>
            <form method=Post action=<% = filename %>?catid=<% = catid %>>
              <%
				If CurrentPage<2 Then  %><div align="center">
              首页 上页 
              <% Else  %><div align="center">
              <a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a> <a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a> 
              <%
				End If
				If n-currentpage<1 Then  %>
              下页 尾页 
              <%	Else  %>
              <a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a> 
              <a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a> 
              <%	End If  %>
              第 <b> 
              <% = CurrentPage %>
              </b>页 共 <b> 
              <% = n %>
              </b>页 共 <b> 
              <% = totalnumber %>
              </b>件商品 每页 <b> 
              <% = maxperpage %>
              </b> 件商品 转到第： 
              <input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
              页 
              <input type='submit'  class='contents' value='跳转' name='cndok'>
            </form>
            <%
				End Function  
			%>
          </td>
        </tr>
      </table>
    </td>
        </tr>
      </table>
    </td>
    <td rowspan="3" width="15">&nbsp; </td>
  </tr>
  <tr> 
    <td width="29" height="48">&nbsp; </td>
  </tr>
  <tr> 
    <td height="29"> 
      <p>&nbsp;</p>
      <p>&nbsp; </p>
    </td>
  </tr>
</table>
<!--#include file="include/footer.asp"-->
