<TABLE class="xmtable" border=0 align="center" cellPadding=0 cellSpacing=12 bgcolor="#FFFFFF">
  
  <tr> 
    <td height="450" valign="top" Class="tdbg_left"><table width="100%" border="0" cellspacing="0" cellpadding="0">

      <tr>
        <td height="10"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><% call ShowUserLogin() %>
              </td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="5"></td>
      </tr>
    </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;新闻资讯</td>
        </tr>
        <%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select BigClassName from BigClass_New order by BigClassID"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
        <tr>
          <td height="20"><div align="center"><a href="NewsClass.asp?BigClass=<%=rslist("BigClassName")%>"><%=rslist("BigClassName")%></a></div></td>
        </tr>
        <tr>
          <td 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><img height=1 src="img/1x1_pix.gif" 
                              width=10></td>
        </tr>
        <%rslist.movenext 
loop
rslist.close
set rslist=nothing
%>
      </table></td>
<TD  width=1 background=images/MainLine.gif></TD>    
    <td width="670" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><% If IsFlash2="Yes" Then %>
                  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=width2%>" height="<%=High2%>">
                    <param name="movie" value="<%=BannerUrl2%>">
                    <param name="quality" value="high">
                    <param name="wmode" value="transparent">
                    <embed src="<%=BannerUrl2%>" width="<%=width2%>" height="<%=High2%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
                  </object>
                  <% Else %>
                  <img src="<%=BannerUrl2%>" width="<%=width2%>" height="<%=High2%>">
                  <% end If%>
              </td>
            </tr>
          </table>
          <br>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
            <TBODY>
              <TR>
                <TD class="title_b"></TD>
                <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                    <TBODY>
                      <TR>
                        <TD width=98 class="title_c" style="text-align:center;">新闻资讯</TD>
                        <TD width="561" class="title_right">　</TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              </TR>
              <TR>
                <TD vAlign=bottom colSpan=2 height=5><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                    <TBODY>
                      <TR>
                        <TD bgColor=#e3e3e3 
                                height=1></TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              </TR>
            </TBODY>
          </TABLE></td>
      </tr>
      <TR>
        <TD    
                  height=1><%
Set RsNews = Server.CreateObject("ADODB.Recordset")
sql="select BigClassName from BigClass_New order by BigClassID"
RsNews.open sql,conn,1,3
do while not RsNews.eof
%>
          <br>
          <table width="100%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="21%" height="22" bgcolor="#f4f4f4">&nbsp;&nbsp;首页 
                  &gt;&gt; <%=RsNews("BigClassName")%></td>
                <td width="79%" bgcolor="#f4f4f4">　</td>
              </tr>
            </table>
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3">
              <tr>
                <td height="8"></td>
              </tr>
              <tr>
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <%
BigClass=RsNews("BigClassName")
n=6
If  BigClass<>"" then
sql="select top 6 * from News where BigClassName='"& BigClass &"' order by AddDate desc"
set rs=conn.execute(sql) 
do while not rs.eof 
%>
                    <tr>
                      <td width="6%" height="24" align="center" ><img src="Img/arrow_6.gif" width="11" height="11"></td>
                      <td width="65%" height="24" style="BORDER-bottom: #999999 1px dotted"><% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
                          <a href="shownews.asp?id=<%= RS("id") %>"><%= RS("TITLE") %></a>　</td>
                      <td width="29%" style="BORDER-bottom: #999999 1px dotted"><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] 
                        (点击<font color="#ff0000"><%= RS("hits") %></font>) </font>
                          <%
n=n-1
if n<1 then exit do
rs.movenext 
loop
rs.close   
set rs=nothing   
%>
                          <% End If %>
                      </td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td height="8"><div align="right"><a href="NewsClass.asp?BigClass=<%=RsNews("BigClassName")%>">更多>>></a></div></td>
              </tr>
            </table>
          <%RsNews.movenext 
loop
RsNews.close
set RsNews=nothing
%>
        </TD>
      </TR>
    </table></td>
<TD  width=1 background=images/MainLine.gif></TD>    
    <TD  vAlign=top align=left width=79>
 </TD>
  </tr>
</table>
