<!--#include file="../Include/Conn.jsp" -->
<!--#include file="../Include/Char.jsp" -->
<!--#include file="../Include/const.jsp" -->
<% m_Keywords = checkStr(Trim(Request("Keywords")))%>
<HTML><HEAD><TITLE>搜索结果：<%=m_Keywords%></TITLE>
<BODY>
<!--#include file="../Include/Top.jsp" -->
<TABLE width="780" height=30 border=0 align="center" cellPadding=4 cellSpacing=0 bgcolor="#EFEFEF">
  <TBODY>
    <TR> 
      <TD width="27%" class=nav>当前位置: <A 
            href="../index.jsp">首页</A><em>-&gt;</em> 搜索</TD>
      <TD width="73%" > 
      </TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="780" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY>
    <TR vAlign=top>
    <TD> 
      <table width="565" 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> 
          <DIV style="WIDTH: 540px; LINE-HEIGHT: 19px; PADDING-TOP: 4px">
                  <%
    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_Parameter = "F_Keywords="&m_Keywords
    m_SQL = "SELECT * FROM T_Article where F_Keywords like  '%" & m_Keywords & "%'"
		
    m_SQL = m_SQL +" or F_Title like  '%" & m_Keywords & "%'"
	m_SQL = m_SQL +" or F_Content 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()
 %><span style="width:400px;line-height:190%;">
				<a target="_blank" href="../Htmls/<%=rs("F_FilePath")%>">·<%=rs("F_Title")%></a>
<% if rs("F_IsPic") then Response.write "<font color=D669A5>[图]</font>"%></span><span style="color:#777777;"><%=formatdatetime(rs("F_Addtime"),1)%></span>
</DIV>
            <%End Sub%>
            <DIV 
            style="MARGIN-TOP: 8px; WIDTH: 540px; HEIGHT: 24px; BACKGROUND-COLOR: #8bb4d4"><% Call ShowPage(m_Parameter)'调用示分页过程%%></DIV></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.jsp" -->
</BODY></HTML>
