<% top if Request.Cookies("username")=empty then error("
  • 您还未登录社区") dim s if Request("menu")="ok" then s="menu=ok" if ""&Request("sessionid")&""<>""&session.sessionid&"" then error("
  • 效验码错误
  • 请重新返回刷新后再试") s=s+"&sessionid="+session.sessionid search=Request("search") s=s+"&search="+search forumid=Request("forumid") s=s+"&forumid="+forumid TimeLimit=Request("TimeLimit") content=HTMLEncode(Request("content")) s=s+"&content="+content searchxm=HTMLEncode(Request("searchxm")) s=s+"&searchxm="+searchxm searchxm2=HTMLEncode(Request("searchxm2")) s=s+"&searchxm2="+searchxm2 searchxm2=replace(searchxm2,"@","&") order=Request("order") if order="" then order="lasttime" 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 if Len(searchxm2)>9 then error("
  • 非法操作") select case searchxm2 case "retopic" item="ID IN (select topicid FROM reforum WHERE content LIKE '%"&content&"%')" case else item=""&searchxm2&" like '%"&content&"%'" end select end if if TimeLimit<>"" then TimeLimitList="and lasttime>"&SqlNowString&"-"&int(TimeLimit)&"" sql="select * from forum where deltopic<>1 and "&forumidor&" "&item&" "&TimeLimitList&" order by "&order&" Desc" If InStr(sql,"ID IN")>0 Then Response.write sql pagesetup=20 '设定每页的显示数量 '每页显示条数 TotalPage=getPageCount(sql,pagesetup) '总页数 PageCount = cint(Request.QueryString("ToPage")) if PageCount > TotalPage then PageCount = TotalPage if PageCount <1 then PageCount = 1 sql=sql&" limit "&(pagecount-1)*pagesetup&","&pagesetup '跳转到指定页数 rs.open sql,conn,1 %>
       <%ClubTree%> → 搜索结果

    搜索关键词：<%=content%>　　共找到了 <%=Count%> 篇相关帖子
    <% i=0 Do While Not RS.EOF and inow() then newtopic="" showForum RS.MoveNext loop RS.Close %>
    主题 作者 >回复 >点击 >最后更新
    >
     本论坛共有 <%=TotalPage%> 页 [ <% searchxm2=replace(searchxm2,"&","@") ShowPage TotalPage,PageCount,"menu=ok&forumid=" & forumid & "&search=" & search & "&searchxm=" & searchxm & "&searchxm2=" & searchxm2 & "&content=" & content & "&TimeLimit=" & TimeLimit & "&sessionid=" & session.sessionid & "&order=" & order %> ]
    快速搜索：

    打开主题 (有回复的主题) 热门主题 关闭主题 精华主题
    打开主题 (没有回复的主题) 投票主题 置顶主题 自己发表的主题
    <% htmlend end if %> >
       <%ClubTree%> → 搜索帖子
    快速搜索： 搜索用户 发表和回复的所有帖子

    >
    高级搜索：请输入要搜索的关键词

    搜索选项

    		 

    		 

    日期范围

    		  
    请选择要搜索的论坛  
    <% htmlend %>