<!--#include file="inc/config.asp"-->
<!--#include file="inc/sub.asp"-->
<!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_regad1,1)%>
<table width="950" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="605" align="left"><table width="600" 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/shou.gif" width="14" height="9" /></td>
        <td width="516" background="images/new2.gif">推荐房产</td>
        <td width="50" background="images/new2.gif"><img src="images/move.gif" width="34" height="11" /></td>
        <td width="3"><img src="images/new3.gif" width="2" height="24" /></td>
      </tr>
      
    </table>
      <table width="599" height="5" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
        <tr>
          <td height="251" valign="top" bgcolor="#FFFFFF"><table width="590" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
            <tr>
              <td width="226">
			  
			  <%
			sql="select top 3 id,H_name,H_Costs,H_PIC,H_Address from H_houseshop where H_Recommend=1 order by ID desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有楼盘</div>"
						else
						do while not rs.eof  
						%>
			  <table width="220" height="75" border="0" cellpadding="0" cellspacing="0" class="miaobian">
                  <tr>
                    <td width="93" rowspan="3" align="center"><table width="80" height="61" border="0" align="center" cellpadding="0" cellspacing="0" class="biao">
                      <tr>
                        <td bgcolor="#FFFFFF">
						<a href="houseshop_read.asp?id=<%=rs("id")%>" target="_blank"><img src=UpLoadUC/<%=rs("H_PIC")%> width="74" height="55" ></a>						</td>
                      </tr>
                      
                    </table></td>
                    <td width="125"><strong><a href="houseshop_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_name"),6)%></a></strong></td>
                  </tr>
                  <tr>
                    <td>均价：<%=left(rs("H_Costs"),12)%></td>
                  </tr>
                  <tr>
                    <td><%=left(rs("H_Address"),10)%></td>
                  </tr>
              </table>
                <table width="200" height="5" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td></td>
                  </tr>
                </table>
				
				<%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
              <td width="364" valign="top">
			    <%
			sql="select top 11 id,H_title,H_Costs,H_sort from H_house order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有楼盘</div>"
						else
						do while not rs.eof  
						%>
			  
			  <table width="360" height="20" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="58">[
                    <a href="house_list.asp?id=<%=rs("H_sort")%>" target="_blank"><%call H_house(rs("H_sort"))%></a>
                    ]</td>
                  <td width="302"><a href="house_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),16)%> / <%=left(rs("H_Costs"),12)%></a></td>
                </tr>
              </table>
			  	<%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
    <td width="345" valign="top"><table width="345" height="53" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
        <tr>
          <td width="21" align="center" bgcolor="#eeeeee">公告</td>
          <td width="321" align="left" valign="top" bgcolor="#FFFFFF">
		  <%
				  sql="select top 2 * from H_Notice order by Rdate desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center><font color=#FF0000 size=2>没有公告</font></div>"
						else
						do while not rs.eof  
						n=n+1
				  %>
				<table width="280" height="25" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td align="left">·<a href="Notice.asp?id=<%=rs("id")%>" target="_blank" class="lv"><%=rs("Gtitle")%></a></td>
                </tr>
            </table>
				  <%
		rs.movenext
				loop
				rs.close
				end if
				%>
		  </td>
        </tr>
      </table>
      <table width="200" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <table width="345" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
        <tr>
          <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
          <td width="258" align="left" background="images/new2.gif">旅游景点</td>
          <td width="50" background="images/new2.gif"><a href="trave.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
        </tr>
      </table>
      <table width="345" height="158" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
        <tr>
          <td height="193" valign="top" bgcolor="#FFFFFF"><%set rs=server.createobject("adodb.recordset")
sql="select top 6 id,H_name,H_PIC from H_page where H_sort=7  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="90" height="75" border="0" cellpadding="0" cellspacing="0" class="biao">
                  <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=<%=rs("id")%>" target="_blank"><img src="UpLoadUC/<%=rs("H_PIC")%>" width="74" height="55" /></a></td>
                      </tr>
                      
                    </table>                  </td>
                    </tr>
                  <tr>
                    <td align="center"><strong><a href="discshop_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_name"),5)%></a></strong></td>
                    </tr>
              </table></td>
		  <%
	if n mod 3=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
	%>
        </tr>
      </table>
	  
	  
	      
	      <table width="100" height="5" border="0" cellpadding="0">
            <tr>
              <td align="left" bgcolor="#FFFFFF"></td>
            </tr>
          </table>
	      <%else%>
	  没有分类
	  <%end if%></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="950" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="281" align="left"><table width="278" height="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
        <tr>
          <td height="24" align="center" bgcolor="#F5F5F5"> 便 民 服 务</td>
        </tr>
        <tr>
          <td height="93" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-top:10px; padding-bottom:10px;">
                <tr>
				    <%set rs1=server.createobject("adodb.recordset")
sql="select top 8 H_name from H_fast  order by H_px desc"
rs1.open sql,conn,1,1
n=0
do while not rs1.eof
n=n+1
%>
                  <td  style="padding-left:5px; padding-top:5px;"><%=rs1("H_name")%></td >
                         <%
	if n mod 2=0 then response.write("</tr><tr>")
rs1.movenext
loop
rs1.close
	%>
                </tr>
              </table></td>
        </tr>
    </table></td>
    <td width="669"><table width="669" height="120" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
      <tr>
        <td width="21" align="center" bgcolor="#F5F5F5">网店推荐</td>
        <td width="655" bgcolor="#FFFFFF">

		<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
		  <%set rs=server.createobject("adodb.recordset")
sql="select top 6 H_name,UID,H_PIC  from H_shop where H_Recommend=1 order by ID desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
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")
%>
            <td style="padding-left:10px;"><table width="99" height="100" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
            <tr>
              <td height="30">
			  <%if W_DNSkey<>1 then%>
			  <a href="thread/<%=H_thread%>/index.asp?UID=<%=rs("UID")%>" target="_blank"><img src="UpLoadUC/<%=rs("H_PIC")%>" width="90" height="70" class="Newpicread" /></a>
			  <%else%>
			<a href="http://<%=U_URL%>.<%=W_DNS%>" target="_blank" > <img src="UpLoadUC/<%=rs("H_PIC")%>" width="90" height="70" class="Newpicread" /></a>
			  <%end if%>
			  
			  </td>
            </tr>
            <tr>
              <td><%=left(rs("H_name"),10)%></td>
            </tr>
          </table></td>
		   <%
		rs.movenext 
				loop
				rs.close
				end if
				%>
          </tr>
        </table>

		
		</td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<%call H_indexads(W_regad2,2)%>
<table width="950" height="100" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#DBDACE">
  <tr>
    <td bgcolor="#FFFFFF">
	<table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-top:10px; padding-bottom:10px;">
                <tr>
				    <%set rs1=server.createobject("adodb.recordset")
sql="select top 7 id,H_pic,H_name  from H_PIC order by ID desc"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
				
                  <td align="left"  style="padding-left:5px;"><table width="120" border="0" cellpadding="0" cellspacing="1" bgcolor="#DBDACE">
                      <tr>
                        <td align="left" bgcolor="#FFFFFF"><table width="75" height="100" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
                            <tr>
                              <td height="75" align="center"><a href="pic_read.asp?id=<%=rs1("id")%>" target="_blank"><img src="UpLoadUC/<%=rs1("H_pic")%>" width="100" height="100"  onload='javascript:if(this.width>75){this.width=75}'  /></a></td>
                            </tr>
                            <tr>
                              <td><a href="pic_read.asp?id=<%=rs1("id")%>" target="_blank"><%=left(rs1("H_name"),10)%></a></td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td >
				  
				  
                         <%
rs1.movenext
loop
rs1.close
	%>
                </tr>
      </table>
	
	</td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="950" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="605" align="left" valign="top"><table width="600" 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" background="images/new2.gif">最新交友/祝福</td>
        <td width="50" background="images/new2.gif">&nbsp;</td>
        <td width="3"><img src="images/new3.gif" width="2" height="24" /></td>
      </tr>
    </table>
        <table width="599" height="5" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
          <tr>
            <td height="230" valign="top" bgcolor="#FFFFFF"><table width="590" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
                <tr>
                  <td width="226"><%
			sql="select top 11 ID,H_title,H_sort  from H_space order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有楼盘</div>"
						else
						do while not rs.eof  
						%>
                    <table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td>·<a href="space_list.asp?id=<%=rs("H_sort")%>" target="_blank"><%call H_space(rs("H_sort"))%></a> 
                        | <a href="space_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),16)%></a></td>
                      </tr>
                    </table>
                  <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
                  <td width="364" valign="top"><%
			sql="select top 11 ID,H_title,H_sort from H_Bless order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有拼客</div>"
						else
						do while not rs.eof  
						%>
                    <table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td>·<a href="Bless.asp" target="_blank"><%call H_Bless(rs("H_sort"))%></a> 
                        | <a href="Bless.asp" target="_blank"><%=left(rs("H_title"),14)%></a></td>
                      </tr>
                    </table>
                  <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
                </tr>
            </table></td>
          </tr>
      </table>
    </td>
    <td width="345" valign="top"><table width="345" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
      <tr>
        <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
        <td width="258" align="left" background="images/new2.gif">最新日志</td>
        <td width="50" background="images/new2.gif"><a href="blog.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
      </tr>
    </table>
      <table width="345" height="200" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
      <tr>
        <td height="252" valign="top" bgcolor="#FFFFFF"><%
			sql="select top 11 id,UID,H_Title,Rdate from H_divry order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有日志</div>"
						else
						do while not rs.eof  
						H_thread=conn.execute("select H_thread from H_Domain where UID="&rs("UID")&" and H_UI=1")("H_thread")
						%>
			  
			  <table width="340" height="20" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td align="left">·<a href="thread/<%=H_thread%>/divry_read.asp?uid=<%=rs("UID")%>&id=<%=rs("id")%>" target="_blank"><%=left(rs("H_Title"),20)%></a></td>
                </tr>
            </table>
	  	  <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
      </tr>
      
    </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<%call H_indexads(W_regad3,3)%>
<table width="950" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="605" align="left" valign="top"><table width="600" 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/xing.gif" width="9" height="9" /></td>
        <td width="516" background="images/new2.gif">最新请客/拼客</td>
        <td width="50" background="images/new2.gif">&nbsp;</td>
        <td width="3"><img src="images/new3.gif" width="2" height="24" /></td>
      </tr>
    </table>
      <table width="599" height="5" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
        <tr>
          <td height="219" valign="top" bgcolor="#FFFFFF"><table width="590" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
              <tr>
                <td width="226" valign="top"><%
			sql="select top 11 ID,H_title,H_sort  from H_Treat order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有请客</div>"
						else
						do while not rs.eof  
						%>
                    <table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td>·
                          <a href="Treat_list.asp?id=<%=rs("H_sort")%>" target="_blank"><%call H_Treat(rs("H_sort"))%></a>
                          | <a href="Treat_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),20)%></a></td>
                      </tr>
                    </table>
                <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
                <td width="364" valign="top"><%
			sql="select top 11 ID,H_title,H_sort  from H_PinKe order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有拼客</div>"
						else
						do while not rs.eof  
						%>
                    <table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td>·
                          <a href="pinke_list.asp?id=<%=rs("H_sort")%>" target="_blank"><%call H_PinKe(rs("H_sort"))%></a>
                          | <a href="PinKe_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),16)%></a></td>
                      </tr>
                    </table>
                  <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
    <td width="345"><table width="345" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
      <tr>
        <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
        <td width="258" align="left" background="images/new2.gif">二手信息</td>
        <td width="50" background="images/new2.gif"><a href="used.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
      </tr>
    </table>
        <table width="345" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
          <tr>
            <td height="208" valign="top" bgcolor="#FFFFFF"><%
			sql="select top 11 ID,H_title,H_sort  from H_used order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有分类</div>"
						else
						do while not rs.eof  
						%>
                <table width="320" height="20" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td align="left">·
                      <%call H_used(rs("H_sort"))%>
                      | <A href="used_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),20)%></A></td>
                  </tr>
              </table>
              <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<%call H_indexads(W_regad4,4)%>
<table width="950" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="605" align="left" valign="top"><table width="600" 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" background="images/new2.gif">推荐商家</td>
        <td width="50" background="images/new2.gif"><a href="discshop.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
        <td width="3"><img src="images/new3.gif" width="2" height="24" /></td>
      </tr>
    </table>
        <table width="599" height="5" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
          <tr>
            <td height="217" valign="top" bgcolor="#FFFFFF">
			<%set rs=server.createobject("adodb.recordset")
sql="select top 10 id,H_name,H_PIC from H_page 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="90" height="75" border="0" cellpadding="0" cellspacing="0" class="biao">
                  <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=<%=rs("id")%>" target="_blank"><img src="UpLoadUC/<%=rs("H_PIC")%>" width="74" height="55" /></a></td>
                      </tr>
                      
                    </table>                  </td>
                    </tr>
                  <tr>
                    <td align="center"><strong><a href="discshop_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_name"),5)%></a></strong></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="5" border="0" cellpadding="0">
            <tr>
              <td align="left" bgcolor="#FFFFFF"></td>
            </tr>
          </table>
	      <%else%>
	  没有分类
	  <%end if%>				  
			
			<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td align="right">申请商家联盟QQ:190005050</td>
              </tr>
            </table></td>
          </tr>
    </table></td>
    <td width="345" valign="top"><table width="345" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
      <tr>
        <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
        <td width="258" align="left" background="images/new2.gif">打折信息</td>
        <td width="50" background="images/new2.gif"><a href="disc.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
      </tr>
    </table>
        <table width="345" height="200" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
          <tr>
            <td height="217" align="left" valign="top" bgcolor="#FFFFFF"><%
			sql="select top 11 ID,H_title  from H_disc order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有拼客</div>"
						else
						do while not rs.eof  
						%>
                    <table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td>·
                          <a href="disc_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),16)%></a></td>
                      </tr>
                    </table>
            <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<%call H_indexads(W_regad5,5)%>
<table width="950" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="605" align="left" valign="top"><table width="600" 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/xing.gif" width="9" height="9" /></td>
        <td width="516" background="images/new2.gif">最新推荐产品</td>
        <td width="50" background="images/new2.gif"><a href="shop.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
        <td width="3"><img src="images/new3.gif" width="2" height="24" /></td>
      </tr>
    </table>
        <table width="599" height="5" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
          <tr>
            <td height="190" valign="top" bgcolor="#FFFFFF">
			<table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-top:10px; padding-bottom:10px;">
                <tr>
				    <%set rs1=server.createobject("adodb.recordset")
sql="select top 8 id,H_title,H_PIC  from H_Products where H_Recommend=1 order by ID desc"
rs1.open sql,conn,1,1
n=0
do while not rs1.eof
n=n+1
%>
				
                  <td  style="padding-left:3px; padding-top:3px;"><table width="120" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#DBDACE">
                      <tr>
                        <td bgcolor="#FFFFFF"><table width="75" height="100" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px;">
                            <tr>
                              <td height="30"><a href="shop_read.asp?id=<%=rs1("id")%>" target="_blank"><img src="uploaduc/<%=rs1("H_PIC")%>" width="100" height="75" /></a></td>
                            </tr>
                            <tr>
                              <td><a href="shop_read.asp?id=<%=rs1("id")%>" target="_blank"><%=left(rs1("H_title"),8)%></a></td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td >
				  
				  
                         <%
	if n mod 4=0 then response.write("</tr><tr>")
rs1.movenext
loop
rs1.close
	%>
                </tr>
              </table>
			</td>
          </tr>
      </table>
        <table width="400" height="5" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td></td>
          </tr>
        </table>
        <table width="600" 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/xing.gif" width="9" height="9" /></td>
            <td width="516" background="images/new2.gif">最新招聘/求职</td>
            <td width="50" background="images/new2.gif">&nbsp;</td>
            <td width="3"><img src="images/new3.gif" width="2" height="24" /></td>
          </tr>
        </table>
        <table width="599" height="5" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
          <tr>
            <td height="200" valign="top" bgcolor="#FFFFFF"><table width="590" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-top:5px; padding-bottom:5px;">
                <tr>
                  <td width="226" valign="top"><%
			sql="select top 11 ID,H_title  from H_Recruitment where H_Recommend=1 order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有求职</div>"
						else
						do while not rs.eof  
						%>
                      <table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td>·
                            <font color=#3399FF>招聘</font>| <a href="Recruitment_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),20)%></a></td>
                        </tr>
                      </table>
                  <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
                  <td width="364" valign="top"><%
			sql="select top 11 ID,H_name  from H_job where H_Recommend=1 order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有招聘</div>"
						else
						do while not rs.eof  
						%><table width="290" height="20" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td>·
                            <font color=#CC6600>求职</font>| <a href="job_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_name"),20)%></a></td>
                        </tr>
                      </table>
                    <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
                </tr>
            </table></td>
          </tr>
    </table></td>
    <td width="345" valign="top">
	
	<table width="345" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
      <tr>
        <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
        <td width="258" align="left" background="images/new2.gif">分类信息</td>
        <td width="50" background="images/new2.gif"><a href="sort.asp" target="_self"><img src="images/move.gif" width="34" height="11" border="0" /></a></td>
      </tr>
    </table>
      <table width="345" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
      <tr>
        <td height="400" valign="top" bgcolor="#FFFFFF"><%
			sql="select top 22 ID,H_title,H_sort  from H_sort order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有分类</div>"
						else
						do while not rs.eof  
						%>
                    <table width="320" height="20" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td align="left">·
                           <a href="sort_list.asp?id=<%=rs("H_sort")%>" target="_blank"><%call H_sort(rs("H_sort"))%></a>
                        | <a href="Sort_read.asp?id=<%=rs("id")%>" target="_blank"><%=left(rs("H_title"),20)%></a></td>
                      </tr>
            </table>
          <%
		rs.movenext 
				loop
				rs.close
				end if
				%></td>
      </tr>
      
    </table>
	</td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E0E0E0">
  <tr>
    <td width="30" align="center" bgcolor="#F2F2F2">友<br />
    情<br />
    连<br />
    接</td>
    <td valign="top" bgcolor="#FFFFFF">
				
				<%set rs=server.createobject("adodb.recordset")
sql="select * from H_Link 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="130" height="28" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td align="left" bgcolor="#FFFFFF" style="padding-left:5px;"><a href="<%=rs("linkurl")%>" target="_blank"><%=left(rs("linkname"),50)%></a></td>
                      </tr>
                  </table></td>
                  <%
	if n mod 6=0 then response.write("</tr><tr>")
rs.movenext
loop
rs.close
	%>
                </tr>
              </table>
            <%else%>
            没有友情连接
            <%end if%>
			
    </td>
  </tr>
</table>
<table width="950" height="6" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
