<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/Char.asp" -->
<!--#include file="../Include/const.asp" -->
<HTML><HEAD><TITLE>搜索结果：</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1264" name=GENERATOR>

<link href="../Include/style1.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff  text=#000000 leftMargin=0 topMargin=0 
marginwidth="0" marginheight="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 width="770" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FFFFFF">
  <tr>
    <td><div align="center">
        <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="762" height="100">
          <param name="movie" value="../Include/images/b33.swf">
          <param name=quality value=high>
          <embed src="../Include/images/b33.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="762" height="100"></embed>
        </object>
    </div></td>
  </tr>
</table>
<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 width="770" height=30 border=0 align="center" cellPadding=4 cellSpacing=0 bgcolor="#EFEFEF">
  <TBODY>
    <TR> 
      <TD width="27%" class=nav>当前位置: <A 
            href="../index.asp">首页</A><em>-&gt;</em> 搜索</TD>
      <TD width="73%" > 
        <!--#include file="../Main/IncNewsSearch.asp" -->
      </TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="770" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY>
    <TR vAlign=top>
      <!-- left -->
      <TD width="204" bgcolor="#CCCCCC" >
        <!--#include file="../Main/Left.asp" -->      </TD>
     
    <TD width="564"> 
      <table width="564" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td colspan="3">&nbsp;</td>
        </tr>
        <tr> 
          <td width="26" align="left" valign="top">&nbsp;</td>
          <td width="502" align="left" valign="top"><TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
              <TBODY>
                <TR> 
                  <TD align=left valign="bottom"><FONT color=#ff6600><B>搜索结果：</B></FONT></TD>
                </TR>
              </TBODY>
            </TABLE> 
              <TABLE width=100% height="54" border=0 align="center" 
            cellPadding=3 cellSpacing=1 borderColorDark=#ffffff>
                <TBODY>
                <TR> 
                  <%
    dim m_RecordCount,m_PageNo,m_Page
    m_RecordCount=0 : m_PageNo=0 : m_Page=0
	m_PageSize = 26 '每页显示数录数
    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_ID DESC"
	rs.open m_SQL,conn,1,1
	if rs.Eof then
	   response.write "<br><p align='center'><font color=666666><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")%>"> 
                      · <%=rs("F_Title")%> </a><font color="#666666">(<font colord=red><%=rs("F_Addtime")%>)</font></font> 
                  </td>
                </tr>
                <%
				   End Sub
				  %>
              </TBODY>
              <TR align="right"> 
                <TD height="24" colSpan=8 align="right" > <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td> <div align="right">
                          <% Call ShowPage(m_Parameter)'调用示分页过程%%>
                        </div></td>
                    </tr>
                  </table></TD>
              </TR>
            </TABLE></td>
            <td width="36" align="left" valign="top">
              <div align="left"></div></td>
        </tr>
        <tr valign="top"> 
            <td height="14" colspan="3" >&nbsp;</td>
        </tr>
      </table>
      <br></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="../Include/Bottom.asp" -->
</BODY></HTML>
