newssearch.asp

以前企业建网站

<!--#include file="top.asp"-->

<table width="780" bgcolor=
<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>
 border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>
<td width="150" valign="top" align=center> 
<!--#include file="left.asp"-->
</td>
<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>
<td bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><br>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>><font color="#000000">您输入的关键字是：</font> 
<% 
		dim keyword
		keyword=trim(request("keyword"))
        response.write "<font color=red>"
        response.write keyword
        response.write "</font>"
        sql="select * from news where news_title like '%"&keyword&"%'"
          set rs=server.createobject("adodb.recordset")
          rs.open sql,conn,3,3
              %>
<%
  page=request.querystring("page")
  if page="" then page=1
  if not(isnumeric(page)) then page=1
  if page<1 then page=1
  page=int(page)
  
  if rs.eof then
      response.write " 没有此信息,请确认您的名称输入是否正确"
      response.end
  else
      rs.pagesize=10
      totalrec=rs.recordcount
      totalpage=rs.pagecount
      if page>totalpage then page=totalpage
      rs.absolutepage=page
      'rs.absolutepage=page
      i=0
          dim news_id(),news_title(),news_content(),news_date()
					do while not rs.eof
          i=i+1
          redim preserve news_id(i),news_title(i),news_content(i),news_date(i)
          news_id(i)=rs("news_id")
          news_title(i)=rs("news_title")
          news_content(i)=rs("news_content")
          news_date(i)=rs("news_date")
 rs.movenext
loop
end if
rs.close
%>
</td> 
</tr> 
<tr>
<td>
<table width="599" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="159">动态名称</td>
<td width="313">动态内容</td>
<td width="95">
<div align="center">
发布日期
</div>
</td>
<%for i = 1 to ubound(news_id)%>
<tr bgcolor="#FFFFFF">
<td width="159"><a href="newsweb.asp?idd=<%=news_id(i)%>" target="_blank"><%=news_title(i)%></a></td>
<td width="313"> 
<%if len(news_content(i))>40 then
news_content(i)=left(news_content(i),40)
response.write news_content(i)
response.write "……"
else
response.write news_content(i)
end if%>
</td>
<td width="95">
<div align="center">
<%=news_date(i)%>
</div>
</td>
</tr>
<%next%>
</table>
</td>
</tr>
<tr>
<td bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>>
<div align="right">
&nbsp;&nbsp;
</div>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>
</tr>
</table>

<!--#include file="copy.asp"-->