<!--#include file="mdb.asp"-->
<!--#include file="page.asp"-->
<%
dim Range,keyword,pn
Range=request("Range")
keyword=request("keyword")
pn=request("pn")
Rootpage =""
%>
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from title",conn,1,3
ads01=rs1("ads01")
ads02=rs1("ads02")
ads03=rs1("ads03")
webkeywords=rs1("webkeywords")
site=rs1("site")
siteurl=rs1("siteurl")
rs1.close
set rs1=Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<TITLE>【<%=keyword%>】在<%=site%>网站的搜索结果</TITLE>
<meta name="keywords" content="<%=keyword%>,<%=webkeywords%>" />
<meta name="description" content="在<%=site%>网站中“<%=keyword%>”的搜索结果" />
<link rel="shortcut icon" href="favicon.ico">
<link rel="Bookmark" href="favicon.ico">
<link href="images/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="head.asp"-->
<table width="980" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#990000">
<tr>
<td width="230" align="center" valign="middle" bgcolor="#FFFFFF"><%=ads03%></td>
<td valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#840000">
<tr>
<td align="left" bgcolor="#990000">
<a href="/"><font color="#FFFFFF">首页</font></a> - <a href="newshome.asp"><font color="#FFFFFF">新闻</font></a> - <strong><font color="#FFFFFF">搜索结果</font></strong></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#990000">
<tr>
<td height="18" bgcolor="#FFFFFF">你输入的关键字是：[ <font color=#FF0000><%=keyword%></font> ]</td>
</tr>
<%
if Range="News" then
Rootpage = "newsinfo"
sql="select * from news where newsname like '%"&keyword&"%'"
end if

if pn="" then pn=1
set r=server.createobject("adodb.recordset")
r.open sql,conn,1,3
if  r.eof or r.bof then
response.write "<tr><td height=25 align=middle colspan=4 bgcolor=#FFFFFF>在本站没有找到有关 <B>"&keyword&"</B> 记录的内容！</td></tr>"

response.end
end if
r.pagesize=20
r.absolutepage=pn
rowcount=r.pagesize
do while not r.eof and not r.bof and rowcount>0
set rr=server.createobject("adodb.recordset")

response.write "<tr><td height=25 vAlign=top bgcolor=#FFFFFF><li><a href="&Rootpage&".asp?id="&r("newsid")&" target=_blank>"&r("newsname")&"</A></li></td></TR>"
rr.close                   
set rr=nothing
rowcount=rowcount-1
r.movenext
loop
%>
<tr>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
<form id="Search" name="Search" method="post" action="news_so.asp">
<tbody>
<tr>
<td><input name="Range" type="radio" class="inputnoborder" value="News" checked="checked" /> 
<input name="keyword" value="资讯信息" size="50" maxlength="100" style="margin:0;" onFocus="this.select();" /> </td>
<td width="100" align="center" valign="middle"><input name="提交" type="submit" value="新闻查询"></td>
</tr>
</tbody>
</form>
</table>
</td>
</tr>
</table>
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from title",conn,1,3
ads07=rs1("ads07")
Copyright=rs1("Copyright")
icp=rs1("icp")
rs1.close
set rs1=Nothing
%>
<!--#include file="foot.asp"-->
</body>
</html><%=ads07%>