<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=strSiteName%></title>
<meta name="Keywords" content="推广宝信息发布平台,推广宝信息,信息发布,信息发布平台,信息发布平台,推广宝交易网" />
<meta name="Description" content="推广宝信息发布平台, 是集新闻、信息、产品、生活小窍门、两性、医学、电脑、职场人生、汽车、问吧、商家黄页为一体的最大生活信息类网站" />
<link href="<% =gqwebdir%>imger/css.css" type="text/css" rel="stylesheet">

<style type="text/css">
<!--
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
-->
</style></head>
<body onselectstart="return false">
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="10" bgcolor="f2f2f2">
  <tr>
    <td width="26%" rowspan="9" 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/announce.gif" width="172" height="37"></td>
            </tr>
            <tr>
              <td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
					set rdsAffiche=Server.CreateObject("ADODB.Recordset")
					sqlAffiche="Select top 5 newskey,topic,newsclass,state From Dat_News Where NewsClass=1 And State=1 Order By NewsKey Desc"
					rdsAffiche.Open sqlAffiche,Conn,1,1
					if not rdsAffiche.EOF then
					do while not rdsAffiche.EOF 
					%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="View_News.asp?Id=<%=rdsAffiche("NewsKey")%>" target="_blank"><%=leftt(rdsAffiche("Topic"),24)%></a></td></tr><tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
<%
rdsAffiche.MoveNext 
loop
else
%>
                    <tr>
                      <td width="100%" height="22"><font color="#FF0000">&nbsp;&nbsp;没有站务公告信息</font>...</td>
                    </tr>
                    <%
                    end if
					rdsAffiche.Close
					set rdsAffiche=nothing
                    %>
                  </table></td>
            </tr>
          </table></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/trade.gif" width="172" height="37"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                      <%
                      set rdsInfo1=Server.CreateObject("ADODB.Recordset")
                      sqlInfo1="Select top 10 infokey,infoclass,state,topic,color From Dat_Information Where State=1 order by infokey desc"
                      rdsInfo1.Open sqlInfo1,Conn,1,1
                      if not rdsInfo1.EOF then
                        do while not rdsInfo1.EOF
		xxlx3=rdsInfo1("InfoClass")
								strTopic1 =leftt(rdsInfo1("Topic"),24)
							strcolor=rdsInfo1("color")
                      %>
                        <tr> 
                          <td height="25" class="F16"><font color="#FF6600">·</font><a href="<%=gqwebdir%>View_Info.asp?Id=<%=rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if strcolor<>"" then%><font color="#<%=strcolor%>"><%=strTopic1%></font><%else%><%=strTopic1%><%end if%></a></td></tr>
						<tr>
						  <td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
						</tr>
				      <%
					rdsInfo1.MoveNext
						loop
				      else
				      %>
						<tr>
						  <td width="100%" colspan="2" height="22">&nbsp;<font color="#FF0000">对不起!没有相匹配的信息</font>...
						  </td>
						</tr>
				      <%
				      end if
					  rdsInfo1.Close
					  set rdsInfo1=nothing
				      %>	
                      </table></td>
              </tr>
          </table></td>
        </tr>
      </table></td>
<%
set rsbc=Server.CreateObject("ADODB.Recordset")
sqlbc="Select * From Bigclass order by sj desc"
rsbc.Open sqlbc,Conn,1,1
if not rsbc.EOF then
j=1
do while not rsbc.EOF
%>
    <td width="37%" 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> <a href="list.asp?bid=<%=rsbc("id")%>"><span class="STYLE2"><%=rsbc("BigClassName")%></span></a></td>
          </tr>
          <tr>
            <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
<%
                      set rssc=Server.CreateObject("ADODB.Recordset")
                      sqlsc="Select * From Smallclass where dl='"&rsbc("id")&"' order by sj desc"
                      rssc.Open sqlsc,Conn,1,1
                      if not rssc.EOF then
			i=1
                        do while not rssc.EOF
                      %>
                <td height="23" width="33%"><a href="list.asp?sid=<%=rssc("id")%>"><%=rssc("SmallClassName")%></a></td>
<%
if i mod 3=0 then
%>
</tr><tr>
<%
end if

					rssc.MoveNext
					i=i+1
						loop
				      else
				      %>
<font color="#FF0000">对不起!没有相匹配的信息</font>...
				      <%
				      end if
					  rssc.Close
					  set rssc=nothing
				      %>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
<%
if j mod 2=0 then
%>
</tr><tr>
<%
end if

					rsbc.MoveNext
					j=j+1
						loop
				      else
				      %>
<font color="#FF0000">对不起!没有相匹配的信息</font>...
				      <%
				      end if
					  rsbc.Close
					  set rsbc=nothing
				      %>
  </tr>
</table>
<!--#include file="boot.asp"-->
</body>
</html>
<%
conn.close
set conn=nothing
%>
