<%
dim dns
dns="../"
%>
<!--#include file="../Common/Inc_DatConn.asp"-->
<!--#include file="../Common/Inc_Function.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =strSiteName%></title>
<style>
<!--
.LoginInput {
	BORDER-RIGHT: #eeeeee 1px solid; BORDER-TOP: #999999 1px solid; FONT: 12px "宋体", "Verdana", "Arial"; BORDER-LEFT: #999999 1px solid; BORDER-BOTTOM: #eeeeee 1px solid; HEIGHT: 17px; BACKGROUND-COLOR: #f6f6f6
}
-->
</style>
</head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="../imger/css.css" type="text/css" rel="stylesheet">
<body topmargin="0">
<!--#include file="../head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" valign="top"><table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><iframe name="login" width="172" height="110" src="../common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top"> 浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="9" cellspacing="1" bgcolor="#e6e6e6">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="../imger/company.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><TABLE cellSpacing=0 cellPadding=0 width=100% align=center 
              border=0>
                <TBODY>
                  <% 
set rs_hy=server.createobject("adodb.recordset")
sqlhy="select top 7 MemberKey,CompanyName from Dat_Member where State=0 and MemberType=2 and CompanyName<>'' order by MemberKey desc"
rs_hy.open sqlhy,conn,1,1
%>
                  <%do while not rs_hy.eof
                    CompanyName=rs_hy("CompanyName")
                    %>
                  <TR>
                    <TD><IMG src="img/article_common.gif" border=0>&nbsp;<a href="company.asp?cid=<%=rs_hy("MemberKey")%>" target="_blank">
                      <% if len(CompanyName)>16 then%>
                      <%=left(CompanyName,16)%>...
                      <%else%>
                      <%=CompanyName%>
                      <%end if%>
                      &nbsp;</a></TD>
                  </TR>
                  <% rs_hy.movenext 
loop	 
rs_hy.close
set rs_hy=nothing 
%>
                </TBODY>
              </TABLE>
              </td>
            </tr>
          </table></td>
        </tr>
      </table>
    </td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#e6e6e6">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="10" cellpadding="0">
          <tr>
            <td height="24" background="../imger/09.gif"><span class="STYLE6">≡</span> <span class="STYLE2"><b>您的位置：</b></span><span class="STYLE4">首页 &gt;&gt; 企业黄页</span></td>
          </tr>
          <tr>
            <td align="center"><TABLE cellPadding=0 width=98% border=0>
              <TBODY>
                <TR align=left>
                  <%set rs=server.createobject("adodb.recordset")
sql="select *  from hyBigClass order by sj desc"
rs.open sql,conn,1,1
n=0
nn=rs.recordcount
do while not rs.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql1="select * from Dat_Member where MemberType=2 and State=0 and dl='"&rs("id")&"'"
rs1.open sql1,conn,1,1
onecount=rs1.recordcount
rs1.close
pic=rs("pic")%>
                  <TD  width="47" align="center" valign="top"><%if pic<>"" then%>
                      <IMG src="<%=pic%>" border=0>
                    <%end if%></TD>
                  <TD width="230" valign="top"><STRONG><FONT color=#333333><A 
                  href="hyclass.asp?bid=<%=rs("id")%>" 
                  target=_blank><%=rs("BigClassName")%></A></FONT></STRONG> <font color=red>(<%=onecount%>)</font><br>
                      <%set rs1=server.createobject("adodb.recordset")
sql1="select top 6 *  from hySmallClass where dl='"&rs("id")&"' order by sj desc"
rs1.open sql1,conn,1,1
do while not rs1.eof%>
                      <a href=hyclass.asp?sid=<%=rs1("id")%>><%=rs1("SmallClassName")%></a>&nbsp;
                      <%rs1.movenext
loop
rs1.close%>
                    <a href=hyclass.asp?bid=<%=rs("id")%>>>>>..</a></TD>
                  <%
if n mod 2=0 and nn<>n then response.write("</tr><tr>")
rs.movenext
loop
rs.close%>
                </TR>
              </TBODY>
            </TABLE></td>
          </tr>
          
        </table></td>
      </tr>
    </table>      </td>
  </tr>
</table>
<!--#include file="../boot.asp"-->
</body>
</html>
<%
conn.close
set conn=nothing
%>