<!--#include file="Inc/Conn.asp"-->
<!--#include file="Lock.asp"-->
<%
If Request.QueryString("action")="search" Then
Keyword = Trim(Request.Form("Keyword"))
Set rs=Server.Createobject("Adodb.Recordset")
Sql = "Select * From [News] Where [Titel] like '%"&Keyword&"%'"
rs.Open Sql,Conn,1,1
%>
<html>
<title>站内搜索</title>
<LINK href="ziyan/Style.css" type=text/css rel=stylesheet>
<body topmargin="0">
<p>&nbsp;</p>
<table width="650" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#eeeeee">
  <tr> 
    <td height="25"> <div align="center"><strong><font color="#333333">站 内 搜 索</font></strong></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF"> 
      <%
	If rs.Eof or rs.Bof Then
	Response.Write "没有你要搜索的产品!"
	Else
	%>
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#eeeeee">
        <tr> 
          <td width="22%" bgcolor="#FFFFFF"><div align="center">新闻名称</div></td>
          <td width="13%" bgcolor="#FFFFFF"><div align="center">大类别</div></td>
          <td width="35%" bgcolor="#FFFFFF"><div align="center">小类别</div></td>
          <td width="30%" bgcolor="#FFFFFF"><div align="center">添加时间</div></td>
        </tr>
        <%Do While Not rs.Eof%>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><a href=ShowNews.asp?id=<%=Rs(0)%>><%=Left(rs("Titel"),6)%>...</a></td>
          <td align="center" bgcolor="#FFFFFF"><%=rs(3)%> <div align="center"></div></td>
          <td bgcolor="#FFFFFF"><%=rs(4)%></td>
          <td bgcolor="#FFFFFF"><%=rs("InfoTime")%></td>
        </tr>
        <%rs.MoveNext
Loop
%>
      </table>
      <%End if%>
    </td>
  </tr>
  <tr>
    <td height="25" bgcolor="#FFFFFF">
<div align="center"> 
        <input type="button" name="Submit" value=" 关 闭 " onClick="javascript:window.close()">
      </div></td>
  </tr>
</table>
</body>
</html>
<%rs.Close
Set Conn=Nothing
Set rs=Nothing
Else
Response.Redirect "Index.asp"
End if
%>