<!--#include file="user.asp"-->
<!--#include file="../../inc/ListPager.asp"-->
<%
UID=request.QueryString("UID")
if UID="" or IsNumeric(UID)<>true then
	response.write"请输入正确的商户号！"
	response.end
end if
ter=request.QueryString("ter")
if ter="" then
ID=request.QueryString("ID")
if ID="" or IsNumeric(ID)<>true then
	response.write"请输入正确的ID号！"
	response.end
end if
PCN=conn.execute("select PCN from H_Class where ID="&ID&"")("PCN")
end if
	'''''''本系统无限分类解决方案
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_Products"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_Costs,H_Address,H_title,H_Recommend,H_PIC,Rdate,H_tion" '显示字段
	.PageSize = 26
	.AddWhere "UID ="&UID&""
	if ter="" then
	.AddWhere "H_class ="&ID&""
	end if
	if ter="Off" then
	.AddWhere "H_Off =1"
	end if
	if ter="ded" then
	.AddWhere "H_ded =1"
	end if
	.AddOrder "ID"," desc"
	.Cache = 10	
	.Init()
end with
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=U_TITLE%></title>
<meta name="keywords" content="<%=U_TITLE%>" />
<meta name="description" content="<%=H_txt%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
        <td bgcolor="#FFFFFF"><table width="780" height="30" border="0" align="center" cellpadding="0" cellspacing="0" >
            <tr>
              <td height="20" align="left" bgcolor="#FFFFFF" style="padding-left:10PX;"><%=PCN%></td>
            </tr>
            
        </table></td>
      </tr>
      <tr>
        <td height="99" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-top:10px; padding-bottom:10px;">
                <tr>
			
				
                  <td  style="padding-left:5px; padding-top:5px;"><table width="780" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr bgcolor="#EFEFEF">
          <td width="16%" height=12 align="center" bgcolor="#FEFAF4">图文</td>
          <td width="53%" height=12 align="left" bgcolor="#FEFAF4">标题</td>
          <td width="13%" align="center" bgcolor="#FEFAF4">价格</td>
          <td width="18%" height=12 align="left" nowrap bgcolor="#FEFAF4">发布时间</td>
        </tr>
        <tr>
          <td colspan=4 height=1 bgcolor="#E8E8E8"></td>
        </tr>


<%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					
		%>
   			  <tr >
				  <td height="25" rowspan="2" align="center"><a href="shop_read.asp?UID=<%=arrlist(1,i)%>&id=<%=arrlist(0,i)%>" target="_blank"><img src="../../UpLoadUC/<%=arrlist(6,i)%>" width="100" border="0" /></a></td>
                  <td height="25" align="left" class="lv"><strong><a href="shop_read.asp?UID=<%=arrlist(1,i)%>&id=<%=arrlist(0,i)%>" target="_blank"><%=left(arrlist(4,i),20)%></a> 
                  <%if arrlist(5,i)=1 then%>
                  <img src="../../images/m2.gif" alt="推荐信息" width="14" height="12" />
                  <%end if%>
                  </strong></td>
                  <td rowspan="2" align="center" class="hei"><%=arrlist(2,i)%></td>
                  <td height="25" rowspan="2" align="left"><%=arrlist(7,i)%></td>
   			  </tr>
   			  <tr >
   			    <td height="70" align="left" valign="top"><%=left(arrlist(8,i),100)%></td>
	          </tr>
        <tr>
          <td colspan=4 bgcolor="#E8E8E8"></td>
        </tr>
  
      <%
					next
				end if
				%>
<tr><td colspan=4 height=4></td></tr>
</table></td >
				  
				  

                </tr>
              </table></td>
      </tr>
      <tr>
        <td height="30" bgcolor="#FFFFFF"><%
					with myListPager
							Response.Write("<script type=""text/javascript"" src=""../../inc/styles/ListStyle.js""></script>")
							Response.Write("<script type=""text/javascript"">pageTurn(" & .RecordCount & ", " & .PageSize & ", " & .PageCount & ", " & .CurrentPage & ", """ & .QueryString & """);</script>")
					end with
					%></td>
      </tr>
</table>
      <!--#include file="end.asp"-->
</body>
</html>
