<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/Function_Page.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim KeyWord,stype,ID
KeyWord=CheckStr(request("KeyWord"))
stype=Angel_aspRequest(request("type"))
%><!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" />
<meta name="keywords" content="<%=Sitekeywords%>-powered by angelasp.com" />
<meta name="description" content="<%=Sitedescription%>-powered by angelasp.com" />
<link href="<% =SitePath %>css/indexstyle.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" type="text/css" href="<% =SitePath %>css/common.2014.css" />
<link rel="stylesheet" type="text/css" href="<% =SitePath %>css/article.css" />
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title>搜索<%=KeyWord%>-<%=SiteTitle%></title>
</head>
<body>
<div class="mwall">
<%=Head%>
<%=Menu%>
<div class="content">
        <div class="conlist">
            <!--位置导航-->
            <div class="add_link">
                <p class="fr"><a href="<%=SitePath%>" target="_blank"><% =SiteTitle %></a></p>
				<p class="fl">
				<%=search%><strong>您现在的位置：</strong><a href="Index.asp">首页</a> >> 搜索"<%=KeyWord%>"	
				</p>


            </div>
            
 <!--横幅通栏广告-->
<div style="position:relative; overflow: hidden; text-align:center; padding-top:5px;">
    <div id="baidu_ad_671078"></div>
</div>
<div class="tit_pg clearfix">
    <h2>搜索结果列表</h2>
</div>

<div class="txt_list">
    <ul id="ulNewsList">
<%
Set mypage=new xdownpage
mypage.getconn=conn

If KeyWord<>"" then
mypage.getsql=server.createobject("adodb.recordset")
If stype=1 or stype="" then
mypage.getsql="select top 100 ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from "&tbname&"_Article Where yn = 0 and (InStr(1,LCase(Title),LCase('"&keyword&"'),0)<>0 or InStr(1,LCase(Artdescription),LCase('"&keyword&"'),0)<>0) order by DateAndTime desc"
elseIf stype=2 then
mypage.getsql="select top 100 ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from "&tbname&"_Article Where yn = 0 and UserName = '"&KeyWord&"' order by DateAndTime desc"
end if

mypage.pagesize=""&artlistnum&""
set rs=mypage.getrs()
for i=1 to mypage.pagesize
    if not rs.eof then
%>
<li>
<dl>
<dt>                    
<%If rs("IsTop")=1 then Response.Write("<font color=red>[置顶]</font>") end if%><a href="<%If html=1 then Response.Write("Article_List.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write("News/?"&rs("ID")&".html") else:if html=3 then Response.Write("News/"&rs("ID")&".html") End if%>" target="_blank"><%if rs("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs("TitleFontColor")&""">"&rs("Title")&"</font>") else Response.Write(""&rs("Title")&"") end if%></a>
<span style="color:#AAA;font-size:12px;"><%=FormatDate(rs("DateAndTime"),11)%> 点击：<%=rs("Hits")%> 评论:<%=Mydb("Select Count([ID]) From ["&tbname&"_Pl] Where yn=0 And ArticleID="&ID&"",1)(0)%></span>
</dt>
<%If artlist=0 then%>
<dd <%if rs("Images")<>"" then Response.Write(" style=""height:65px;""") end if%>><%=left(LoseHtml(rs("Artdescription")),86)%>...<span><a href="<%If html=1 then Response.Write("Article_List.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write("News/?"&rs("ID")&".html") else:if html=3 then Response.Write("News/"&rs("ID")&".html") End if%>" target="_blank">[全文]</a></span>                       
</dd>
<%End if%>
</dl>
</li>




<%
        rs.movenext
    else
         exit for
    end if
next
%>
    </ul>
</div>

 <div id="page" class="page">
	<ul>
    <%=mypage.showpage()%>
    </ul>
</div>

<%
rs.close
set rs=Nothing
%>

<%else%>
<li style="text-align:center">请在上面输入关键字后搜索</li>
 </ul>
</div>
<%end if%>
        </div>
        <div class="sider">
		
<div  class="side_ad" style="margin-bottom:15px;height:auto;">
<%Call ShowAD(3)%>
</div>
 
<!--本月排行-->
<div class="mod_side">
    <div class="tit">本月排行</div>
    <div class="tab_cont">
<ol class="txt_list">

     	<%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%>


</ol>
    </div>
</div>
 
<!--图片-->
<div class="mod_side">
    <div class="tit">最新图片</div>
    <ul class="pics_list">
 <%Call ShowImgArticle(ID,6,10,"no","DateAndTime desc,ID desc")%>
</ul>
</div>
</div>
    </div> 


<%=Copy%>
</div>

</body>
</html>