<!--#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_page"
	.PrimaryKey = "ID" 
	.Fields = "ID,H_name,H_PIC" '显示字段
	.PageSize = 26
	.AddOrder "ID"," desc"
	.AddWhere "H_union=1"
	.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"-->
<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">&nbsp;</td>
                </tr>
                <tr>
                  <td height="1" colspan="2" bgcolor="#E8E8E8"></td>
                </tr>
         
                <tr >
                  <td height="25" colspan="2" align="center"><table width="98%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
        <tr>
			
<%
					n=0
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					n=n+1
%>
          <td valign="top"><table width="100" height="75" border="0" cellpadding="0" cellspacing="0" class="miaobian">
                  <tr>
                    <td align="center"><table width="80" height="61" border="0" cellpadding="0" cellspacing="1" bgcolor="#EBEBEB">
                      <tr>
                        <td bgcolor="#FFFFFF"><a href="discshop_read.asp?id=<%=arrlist(0,i)%>" target="_blank"><img src="UpLoadUC/<%=arrlist(2,i)%>" width="74" height="55" /></a></td>
                      </tr>
                      
                    </table>                      <strong><a href="Housing_read.asp?id=<%=arrlist(0,i)%>" target="_blank"></a></strong></td>
                    </tr>
                  <tr>
                    <td align="center"><strong><a href="Housing_read.asp?id=<%=arrlist(0,i)%>" target="_blank"><%=arrlist(1,i)%></a></strong></td>
                    </tr>
                  
              </table></td>
		  <%
	if n mod 3=0 then response.write("</tr><tr>")
	next
				end if
				
	%>
        </tr>
      </table></td>
                </tr>
                <tr>
                  <td height="4" colspan="2">
				  
				  

	<%
					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>
        </tr>
      </table>
    </td>
    <td width="222" valign="top"><table width="222" height="31" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td background="images/reght.gif" class="lv" style="padding-left:20px; padding-top:2px;">非签约商家打折信息</td>
      </tr>
    </table>
      <table width="222" border="0" cellpadding="0" cellspacing="1" bgcolor="#FADCA4">
        <tr>
          <td bgcolor="#FFFFFF">&nbsp;</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>
