<TABLE class="xmtable" border=0 align="center" cellPadding=0 cellSpacing=12 bgcolor="#FFFFFF">
  
  <tr> 
    <td Class="tdbg_left" valign="top" height="450"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <form name="form1" method="get" action="News_search.asp">
        <tr>
          <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#000000">新 
            闻 搜 索</font></td>
        </tr>
        <tr>
          <td height="21"><input type="text" name="key" size="19" class="input"></td>
        </tr>
        <tr>
          <td height="21"><select name="otype" class="input">
              <option value="title" selected class="input">新闻标题</option>
              <option value="msg" class="input">新闻内容</option>
            </select>
              <input type="submit" name="Submit" value="搜索"  Class="BUTTON"></td>
        </tr>
        <tr>
          <td height="5"></td>
        </tr>
      </form>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="28" align="center"><div align="left"><a  href="NewsClass.asp?BigClass=<%=BigClass%>"><font color="#000000"> &nbsp;&nbsp;<%=BigClass%></font></a></div></td>
        </tr>
        <%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From SmallClass_New Where BigClassName='" & BigClass & "'",conn,1,1
if not(rsSmallClass.bof and rsSmallClass.eof) then
 do while not rsSmallClass.eof
%>
        <tr onMouseOver="this.bgColor='#EFEFEF';" onMouseOut="this.bgColor='#FFFFFF';" >
          <td height="28" ><div align="left"><a  href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>">&nbsp;&nbsp;</a><a  href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>">&nbsp;&nbsp;</a><a  href="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=rsSmallClass("SmallClassName")%>"><%=rsSmallClass("SmallClassName")%></a></div></td>
        </tr>
        <%
 rsSmallClass.movenext
 loop
end if
rsSmallClass.close
set rsSmallClass=nothing	
%>
      </table></td>
        <TD width=1 background=images/MainLine.gif></TD> 
    <td width="670" valign="top" bgcolor="#FFFFFF"><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;"><%=BigClass%></TD>
                        <TD width="555" 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>
          <br>
          <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <% 
page=clng(request("page"))		 
Set rs=Server.CreateObject("ADODB.RecordSet") 
if BigClass<>"" and SmallClass <>"" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass<>"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
  response.Write("暂时没有记录")
else 
%>
        <% 
rs.PageSize=20
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
for j=1 to rs.PageSize 
%>
        <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></td>
        </tr>
        <%
rs.movenext
if rs.eof then exit for
next
%>
        <tr valign="bottom">
          <td height="50" colspan="3" align="right" ><form method=Post action="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=SmallClass%>">
              <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=1>首页</a>&nbsp;"
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">"
    response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10  value="&page&">"
   response.write " <input class=BUTTON type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
          </form></td>
        </tr>
        <% 
end if
rs.close
set rs=nothing
%>
      </table></td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <TD width="79" > </TD>
  </tr>
</table>
