<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/Char.asp" -->
<%
m_CateogryID = Request.QueryString("CategoryID")
m_SQL = "SELECT F_ID,F_Value FROM jy_newsCategory WHERE F_ID="&m_CateogryID
SET rst = conn.Execute(m_SQL)
if Not rst.Eof then m_CategoryName = rst(1) else m_CategoryName = ""
rst.Close
%>
<HTML><HEAD><TITLE><% = m_CategoryName %></TITLE>
<META http-equiv=Content-type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1264" name=GENERATOR>
<link href="../Include/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" 
marginwidth="0">
<!--#include file="../Include/Top.asp" -->
<table width="770" height="1" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" bgcolor="#111111" id="AutoNumber27" style="border-collapse: collapse">
  <tr>
    <td width="100%"></td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="768" align=center border=0>
  <TBODY>
  <TR>
    <TD width="993" height=30 bgColor=#ffffff>
      <TABLE height=30 cellSpacing=0 cellPadding=4 width="100%" border=0>
        <TBODY>
        <TR>
              <TD width="35%" class=nav>当前位置: <A 
            href="../index.asp">首页 </A>-&gt; <% = m_CategoryName %></TD>
              <TD width="65%" > 
                <!--#include file="../Main/IncNewsSearch.asp" -->
              </TD>
      </TR></TBODY></TABLE></TD></TR>
  <TR>
<TD bgColor=#000000><IMG height=1 src="../image/pixel.gif" 
    width=1></TD></TR></TBODY></TABLE>
<TABLE width="768" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY>
    <TR vAlign=top>
      <!-- left -->
      <TD width="180" bgColor=#f0f0f0>
        <!--#include file="../Main/Left.asp" -->
      </TD>
      <TD width=1 bgColor=#666666><IMG height=12 src="../image/pixel.gif" 
      width=1></TD>
      <TD width=10 bgColor=#ffffff><IMG height=1 src="../image/pixel.gif" 
      width=10></TD>
      <!-- center-->
      <TD><IMG height=1 src="../image/pixel.gif" 
      width=1>
          <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center 
border=0>
            <TBODY>
              <TR>
                <TD height=15><TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
                    <TBODY>
                      <TR>
                        <TD align=left valign="bottom"><FONT color=#ff6600><B>
                          <% = m_CategoryName %>
                        </B></FONT></TD>
                      </TR>
                      <TR>
                        <TD height=4></TD>
                      </TR>
                      <TR>
                        <TD bgColor=#666666 height=1></TD>
                      </TR>
                    </TBODY>
                </TABLE></TD>
              <TR>
                <TD>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
                  border=0>
                    <TBODY>
                      <TR>
                        <TD height=1></TD>
                      </TR>
                      <TR>
                        <TD ><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                          <tr>
                            <td>
                              <table width="96%" border="0" cellspacing="0" cellpadding="5">
                                <%
    dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 23 '每页显示数录数
    m_PageNo = Trim(Request.querystring("PageNo"))
	Set rs = Server.createobject("Adodb.RecordSet")

    m_Keywords = checkStr(Trim(Request("Keywords")))
    m_CategoryID = checkStr(Trim(Request("CategoryID")))

	m_Parameter = "Keywords="&m_Keywords&"&CategoryID="&m_CategoryID
    m_SQL = "SELECT * FROM jy_news WHERE (1=1)"
    If (m_CategoryID <> "-1") and (m_CategoryID <> "") then
	  m_SQL = m_SQL + " and F_CategoryID="&m_CategoryID
	End if
    m_SQL = m_SQL +" and F_Title like  '%" & m_Keywords & "%'"
	m_SQL = m_SQL +" and F_Contents like  '%" & m_Keywords & "%'"
	m_SQL = m_SQL +" ORDER BY  F_Addtime"
	'RESPONSE.WRITE M_SQL
	rs.open m_SQL,conn,1,1
	if rs.Eof then
	   response.write "<br><p align='center'><font color=ffffff><B>对不起，暂无数据.</B></font></p><br>"
    else
      m_RecordCount = rs.RecordCount
      rs.PageSize = m_PageSize
      m_Page = rs.PageCount
      if m_PageNo = ""  then m_PageNo =1
      if cint(m_PageNo) < 1 or cint(m_PageNo) > m_Page then m_PageNo = 1
      rs.AbsolutePage = m_PageNo
      rc = m_PageSize
      re = 1
	  m_Count = 0'另加
      Do while not rs.eof and rc>0
	  m_Count = m_Count +1'另加
	  if m_Count mod 2 then m_BgColor = "ffffff" else m_BgColor = "efefef" '另加
        '---------------------------------
		'调用显示内容
        ShowContent()
        '---------------------------------

	  rs.MoveNext
      re = re+1
      rc = rc-1
    Loop
	rs.Close
 End if	
 Sub ShowContent()
 %>
                                <tr>
                                  <td> <a  href="ShowNews.asp?ID=<%=rs("F_ID")%>"> · <b><%=rs("F_Title")%></b> </a></td>
                                </tr>
                                <% 
end sub
Call ShowPage(m_Parameter)'调用示分页过程%%>
                            </table></td>
                          </tr>
                        </table></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
            </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="../Include/Bottom.asp" -->
</BODY></HTML>
