<% top if CookieUserName=empty then error("
  • 您还未登录论坛") if Request("menu")="ok" then if ""&Request("sessionid")&""<>""&session.sessionid&"" then error("
  • 效验码错误
  • 请重新返回刷新后再试") Search=Request("Search") ForumID=Request("ForumID") TimeLimit=Request("TimeLimit") content=HTMLEncode(Request("content")) Searchxm=HTMLEncode(Request("Searchxm")) if content="" then error("
  • 您没有输入关键词") if isnumeric(""&ForumID&"") then ForumIDor="ForumID="&ForumID&" and" if Search="author" then if Len(Searchxm)>9 then error("
  • 非法操作") item=""&Searchxm&"='"&content&"'" elseif Search="key" then item="Topic like '%"&content&"%'" end if if TimeLimit<>"" then TimeLimitList="and lasttime>"&SqlNowString&"-"&int(TimeLimit)&"" sql="select * from [BBSXP_Threads] where IsDel=0 and "&ForumIDor&" "&item&" "&TimeLimitList&" order by lasttime Desc" Rs.Open sql,Conn,1 count=Rs.recordcount '数据总条数 if Count=0 then error("
  • 对不起,没有找到您要查询的内容") PageSetup=SiteSettings("ThreadsPerPage") '设定每页的显示数量 Rs.Pagesize=PageSetup TotalPage=Rs.Pagecount '总页数 PageCount = cint(Request.QueryString("PageIndex")) if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数 %>
       <%ClubTree%> → 搜索结果

    搜索关键词:<%=content%>  共找到了 <%=Count%> 篇相关帖子
    <% i=0 Do While Not RS.EOF and i
    >
    <% ShowPage()%>
    快速搜索:
    <% htmlend end if %>
       <%ClubTree%> → 搜索帖子

    >
    请输入要搜索的关键词

    搜索选项
    关键词搜索  
    作者搜索  
    日期范围  
    请选择要搜索的论坛  
    <% htmlend %>