<!--#include file="inc/config.asp"-->
<!--#include file="inc/ListPager.asp"-->
<!--#include file="inc/sub.asp"-->
<%
	'''''''本系统无限分类解决方案
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_title,H_PIC" '显示字段
	.PageSize = 26
	.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><%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" /></head>
<body>
<!--#include file="top.asp"-->
<%call H_indexads(W_regad26,26)%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="728" align="left" valign="top"><table width="720" border="0" cellpadding="0" cellspacing="1" bgcolor="#FEDA6A" class="scaview3">
      <tr>
        <td valign="top" bgcolor="#FFFFFF"><!--==================-->
              <table width="720" border="0" cellspacing="0" cellpadding="5" align="center">
                <tr bgcolor="#EFEFEF">
                  <td width="620" height="12" align="left" bgcolor="#FEFAF4">推荐产品</td>
                  <td width="80" align="left" bgcolor="#FEFAF4"><a href="pcsho.asp" target="_self"></a></td>
                </tr>
                <tr>
                  <td height="1" colspan="2" bgcolor="#E8E8E8"></td>
                </tr>
                <tr >
                  <td height="25" colspan="2" align="center"><%set rs=server.createobject("adodb.recordset")
sql="select top 10 id,H_title,H_PIC from H_Products where H_Recommend=1 order by id desc "
rs.open sql,conn,1,1
if not rs.eof then%>
                      <table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
                        <tr>
                          <%
n=0
do while not rs.eof
n=n+1
%>
                          <td width="138"><table width="100" height="75" border="0" cellpadding="0" cellspacing="0" class="miaobian">
                              <tr>
                                <td height="70" align="center"><table width="80" height="61" border="0" cellpadding="0" cellspacing="1" bgcolor="#EBEBEB">
                                    <tr>
                                      <td bgcolor="#FFFFFF"><a href="shop_read.asp?id=<%=rs("id")%>" target="_blank"><img src="UpLoadUC/<%=rs("H_PIC")%>" width="74" height="55" /></a></td>
                                    </tr>
                                </table></td>
                              </tr>
                              <tr>
                                <td align="center"><a href="shop_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),6)%></a></td>
                              </tr>
                          </table></td>
                          <%
	if n mod 5=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
	%>
                        </tr>
                      </table>
                    <table width="100" height="10" border="0" cellpadding="0">
                        <tr>
                          <td align="left" bgcolor="#FFFFFF"></td>
                        </tr>
                    </table>
                    <%else%>
                    没有分类
                    <%end if%>
                  </td>
                </tr>
                <tr>
                  <td height="4" colspan="2"></td>
                </tr>
            </table></td>
      </tr>
    </table>
        <table width="500" height="10" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
      <table width="720" border="0" cellpadding="0" cellspacing="1" bgcolor="#FEDA6A" class="scaview3">
          <tr>
            <td valign="top" bgcolor="#FFFFFF"><!--==================-->
                <table width="720" border="0" cellspacing="0" cellpadding="5" align="center">
                  <tr bgcolor="#EFEFEF">
                    <td width="620" height="12" align="left" bgcolor="#FEFAF4">产品分类</td>
                    <td width="80" align="left" bgcolor="#FEFAF4"><a href="pcsho.asp" target="_self"></a></td>
                  </tr>
                  <tr>
                    <td height="1" colspan="2" bgcolor="#E8E8E8"></td>
                  </tr>
                  <tr >
                    <td height="25" colspan="2" align="center"><table width="100%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
                        <tr>
                          <%set rs=server.createobject("adodb.recordset")
			set rs1=server.createobject("adodb.recordset")
sql="select *  from H_Industry where H_id=0"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
'sql1="SELECT COUNT(*) AS Expr1 FROM H_rent where lou="&rs("id")&""
'rs1.open sql1,conn,1,1
'hiloucount=rs1("Expr1")
'rs1.close
%>
                          <td><table width="310" border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr>
                                <td align="left"><a href="shop_list.asp?id=<%=rs("id")%>"><strong><font color="#009900"><%=left(rs("H_name"),16)%></font></strong></a></td>
                              </tr>
                              <tr>
                                <td align="left"><%
			set rs1=server.createobject("adodb.recordset")
sql="select top 20 *  from H_Industry where H_ID="&rs("id")&" order by H_PX desc,ID DESC"
rs1.open sql,conn,1,1
s=0
do while not rs1.eof
s=s+1
%>
                                    <a href="shop_vlist.asp?id=<%=rs1("id")%>"><%=left(rs1("H_name"),16)%></a> |
                                  <%
	'if s mod 8=0 then response.write("<br>")
rs1.movenext
loop
rs1.close
	%>
                                </td>
                              </tr>
                          </table></td>
                          <%
	if n mod 2=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
	%>
                        </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td height="4" colspan="2"></td>
                  </tr>
              </table></td>
          </tr>
      </table>
      <table width="500" height="10" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
      </table>
      <table width="720" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="2"><img src="images/new1.gif" width="2" height="24" /></td>
        <td width="29" align="center" background="images/new2.gif"><img src="images/jian.gif" width="8" height="8" /></td>
        <td width="516" align="left" background="images/new2.gif">最新产品</td>
        <td width="55" background="images/new2.gif"><a href="Supply.asp" target="_blank"></a></td>
        <td width="2"><img src="images/new3.gif" width="2" height="24" /></td>
      </tr>
    </table>
      <table width="720" height="200" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
        <tr>
          <td height="470" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-top:10px; padding-bottom:10px;">
              <tr>
<%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					n=0
					for i=0 to intList
					n=n+1
					
		%>
                <td  style="padding-left:5px; padding-top:5px;"><table width="90" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#DBDACE">
                    <tr>
                      <td bgcolor="#FFFFFF"><table width="80" height="100" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
                          <tr>
                            <td height="30"><a href="shop_read.asp?id=<%=left(arrlist(0,i),8)%>" target="_blank"><img src="uploaduc/<%=arrlist(4,i)%>" width="75" height="75" /></a></td>
                          </tr>
                          <tr>
                            <td><%=left(arrlist(3,i),6)%></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td >
                <%
	if n mod 5=0 then response.write("</tr><tr>")
	next
				end if
	%>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td valign="top" 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></td>
    <td width="222" valign="top"><table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
      <tr>
        <td height="24" align="center" bgcolor="#F5F5F5"><strong>搜索</strong></td>
      </tr>
      <tr>
        <td height="0" valign="top" bgcolor="#FFFFFF">
		
		
		
		<table width="210" border="0" align="center" cellpadding="0" cellspacing="0">
		<form action="shop_serach.asp"   target="_self">		
          <tr>
            <td height="30" colspan="2"><input name="H_title" type="text" id="H_title" value="输入产品名称" /></td>
            </tr>
          
          <tr>
            <td height="30" colspan="2"><input type="image"  src="images/loves.gif" style="border:0" /> </td>
            </tr>
			</form>
        </table>
		
		
		
		
		
		</td>
      </tr>
    </table>
      <table width="180" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
	  <%call H_indexads(W_regad27,27)%>
      <table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
        <tr>
          <td height="24" align="center" bgcolor="#F5F5F5"><strong>推荐商家</strong></td>
        </tr>
        <tr>
          <td height="0" valign="top" bgcolor="#FFFFFF"><table width="210" border="0" align="center" cellpadding="0" cellspacing="0">
		  <%set rs=server.createobject("adodb.recordset")
sql="select top 10 H_name,UID  from H_shop where H_Recommend=1 order by ID desc"
rs.open sql,conn,1,1
if not rs.eof then
i=0
do while not rs.eof
i=i+1
U_URL=conn.execute("select U_URL from H_Domain where Uid="&rs("UID")&" and H_UI=5 ")("U_URL")
H_thread=conn.execute("select H_thread from H_Domain where Uid="&rs("UID")&" and H_UI=5 ")("H_thread")
%>
                <tr>
                  <td width="28"><table width="20" height="20" border="0" cellpadding="0" cellspacing="0" background="images/slidingTag1.gif">
                    <tr>
                      <td><font color="#FFFFFF"><%=i%></font></td>
                    </tr>
                  </table></td>
                  <td width="182" align="left">
				  
				    <%if W_DNSkey<>1 then%>
			  <a href="thread/<%=H_thread%>/index.asp?UID=<%=rs("UID")%>" target="_blank"><%=rs("H_name")%></a>
			  <%else%>
			<a href="http://<%=U_URL%>.<%=W_DNS%>" target="_blank" ><%=rs("H_name")%></a>
			  <%end if%>
				  </td>
                </tr>
           	   <%
		rs.movenext 
				loop
				rs.close
				end if
				%>   
          </table>
		  
		  
		  </td>
        </tr>
      </table>
      <table width="180" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
        <tr>
          <td height="24" align="center" bgcolor="#F5F5F5"><strong>最新商家</strong></td>
        </tr>
        <tr>
          <td height="0" valign="top" bgcolor="#FFFFFF"><table width="210" border="0" align="center" cellpadding="0" cellspacing="0">
		  <%set rs=server.createobject("adodb.recordset")
sql="select top 10 H_name,UID  from H_shop order by ID desc"
rs.open sql,conn,1,1
if not rs.eof then
i=0
do while not rs.eof
i=i+1
U_URL=conn.execute("select U_URL from H_Domain where Uid="&rs("UID")&" and H_UI=5 ")("U_URL")
H_thread=conn.execute("select H_thread from H_Domain where Uid="&rs("UID")&" and H_UI=5 ")("H_thread")
%>
                <tr>
                  <td width="28"><table width="20" height="20" border="0" cellpadding="0" cellspacing="0" background="images/slidingTag1.gif">
                    <tr>
                      <td><font color="#FFFFFF"><%=i%></font></td>
                    </tr>
                  </table></td>
                  <td width="182" align="left">
				  
				    <%if W_DNSkey<>1 then%>
			  <a href="thread/<%=H_thread%>/index.asp?UID=<%=rs("UID")%>" target="_blank"><%=rs("H_name")%></a>
			  <%else%>
			<a href="http://<%=U_URL%>.<%=W_DNS%>" target="_blank" ><%=rs("H_name")%></a>
			  <%end if%>
				  </td>
                </tr>
           	   <%
		rs.movenext 
				loop
				rs.close
				end if
				%>   
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
