<% Dim KeyWord,stype,ID KeyWord=CheckStr(request("KeyWord")) stype=Angel_aspRequest(request("type")) %> 搜索<%=KeyWord%>-<%=SiteTitle%>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> 搜索"<%=KeyWord%>"
站内搜索
    <% 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 %>
  • <%if rs("Images")<>"" then%>
    <%=rs("Images")%>" style="width:90px;height:90px;"/>
    <%end if%><%If rs("IsTop")=1 then Response.Write("[顶]") end if%>" target="_blank"><%if rs("TitleFontColor")<>"" then Response.Write(""&replacecolor(rs("Title"))&"") else Response.Write(""&replacecolor(rs("Title"))&"") end if%> <%=FormatDate(rs("DateAndTime"),11)%> 点击:<%=rs("Hits")%> 评论:<%=Mydb("Select Count([ID]) From ["&tbname&"_Pl] Where yn=1 And ArticleID="&rs("id")&"",1)(0)%>
  • <%If artlist=0 then%>
    "" then Response.Write(" style=""height:65px;""") end if%>><%=left(LoseHtml(rs("Artdescription")),90)%>...
    <%End if%> <% rs.movenext else exit for end if next %>
    <%=mypage.showpage()%>
<%else%>
  • 请在上面输入关键字后搜索
  • <%end if%>
    <%Call ShowAD(3)%>
    图片文章
      <%Call ShowImgArticle(0,4,10,"no","DateAndTime desc,ID desc")%>
    推荐文章
      <%Call ShowArticle(0,10,5,"·",100,"IsHot=1","ID desc",0,0)%>
    <%=Copy%>