<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<!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=UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<title><%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%></title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="favicon.ico" />
<link type="text/css" href="/css/global.css" rel="stylesheet" />
<link type="text/css" href="/css/style.css" rel="stylesheet" />
<script src="/JavaScript/jquery-1.8.3.js" type="text/javascript"></script>
<script src="/JavaScript/flexslider.js" type="text/javascript"></script>
<script src="/JavaScript/picmouse.js" type="text/javascript"></script>
</head>
<body onload="document.getElementById('classMenu').style.display = 'block';">
<%Call Tophhh()%>
<%Call TopMenu()%>
<div id="maindiv">
<div id="Lstalone">
<div id="Lstleft">

</div>
<div id="Lstright">
	<div class="fl ld798lstr">搜索引擎</div>
	<div id="ld798lst">
		<div class="fl ld798lstr">&nbsp;&nbsp;关键字：<%=keyword%></div>
		<div class="lstnews">
			<ul>
				<%
				sSql="select Id,PTitle,PBID,PSID,PAddtime from [LstNewsInfo] where PTitle like '%"&keyword&"%' order by Pindex desc,Id desc"
				Set oRs = Server.CreateObject("ADODB.Recordset")
				oRs.Open sSql, oconn, 1, 1
				If oRs.eof and oRs.bof then
				Else
				Call PageNum(nm1)
				for i=1 to mypage%>
				<%
				If ishtml=1 Then
					If i Mod 2=0 Then 
					Response.write "<li class='hover'>"
					Else
					Response.write "<li>"
					End If
				Response.write "	<div class=""fl"">·<a href='/Html/Info/"&oRs(2)&"_"&oRs(3)&"/"&oRs(0)&".html'>"&ADDRED(oRs(1),keyword)&"</a></div>"
				Response.write "	<div class=""fr"">"&FormatTime(oRs("PAddtime"),4)&"&nbsp;&nbsp;</div>"
				Response.write "</li>"
				Else
					If i Mod 2=0 Then 
					Response.write "<li class='hover'>"
					Else
					Response.write "<li>"
					End If
				Response.write "	<div class=""fl"">·<a href='/LstInfo.asp?TT="&oRs(2)&"&SS="&oRs(3)&"&Id="&oRs(0)&"'>"&ADDRED(oRs(1),keyword)&"</a></div>"
				Response.write "	<div class=""fr"">"&FormatTime(oRs("PAddtime"),4)&"&nbsp;&nbsp;</div>"
				Response.write "</li>"
				End If
				%>
				<%
				oRs.MoveNext
				Next
				End If
				%>
			</ul>
		</div>
		<table border="0" width="100%" cellspacing="3" cellpadding="3">
			<tr>
				<td align="center" height="30"><%Call PageUrl("?keyword="&keyword&"",nm1)%></td>
			</tr>
		</table>
	</div>
</div>
</div>
<%Call ShowEnd()%>
</body>
</html>