<% 'on error resume next dim currentpage,page_count,Pcount dim totalrec,endpage dim stype,pSearch,nSearch,keyword dim searchboard,ordername dim searchdate,searchDateLimit,searchday dim stable stats="搜索结果" stype=request("stype") pSearch=request("pSearch") nSearch=request("nSearch") keyword=trim(checkStr(request("keyword"))) stable=checkstr(request("stable")) if stable="" then stable=Nowusebbs if request("page")="" or not isInteger(request("page")) then currentPage=1 else currentPage=cint(request("page")) end if if stype<3 then if keyword="" then Errmsg=Errmsg+"
"+"

必须输入查询关键字。" founderr=true end if '搜索多少天内帖子 searchDateLimit=180 if request("SearchDate")="ALL" then searchday=" " else if not isInteger(request("SearchDate")) then Errmsg=Errmsg+"
"+"

搜索多少天必须是整数。" founderr=true else searchday=" datediff('d',dateandtime,Now()) < "&request("SearchDate")&" and " end if end if end if call nav() if cint(boardid)<1 then call head_var(0,0,"论坛搜索","query.asp?boardid=0") searchboard="" else call head_var(0,0,boardtype,"query.asp?boardid="&boardid) searchboard=" boardid="&boardid&" and " end if if Cint(GroupSetting(14))=0 then Errmsg=Errmsg+"
"+"

您没有在本论坛搜索的权限，请登陆或者同管理员联系。" founderr=true end if if founderr then call dvbbs_error() else call search() if founderr then call dvbbs_error() end if call footer() sub search() sql="" set rs=server.createobject("adodb.recordset") select case stype case 1 select case nSearch '搜索主题帖子作者 case 1 sql="select top 1000 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where username='"&keyword&"' and "&searchboard&" "&searchday&" parentid=0 and locktopic<2 ORDER BY announceID desc" ordername="搜索主题作者帖子" '搜索回复帖子作者 case 2 sql="select top 1000 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where username='"&keyword&"' and "&searchboard&" "&searchday&" parentid>0 and locktopic<2 ORDER BY announceID desc" ordername="搜索回复作者帖子" '两者都搜索 case 3 sql="select top 1000 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where "&searchboard&" "&searchday&" username='"&keyword&"' and locktopic<2 ORDER BY announceID desc" ordername="搜索主题和回复作者帖子" end select case 2 select case pSearch '搜索主题关键字 case 1 sql="select top 1000 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where "&searchboard&" "&searchday&" (" & translate(keyword,"topic") & ") and locktopic<2 ORDER BY announceID desc" '搜索内容关键字 ordername="搜索主题" case 2 sql="select top 1000 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where "&searchboard&" "&searchday&" (" & translate(keyword,"body") & ") and locktopic<2 ORDER BY announceID desc" '两者都搜索 ordername="搜索内容" case 3 sql="select top 1000 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where "&searchboard&" "&searchday&" (" & translate(keyword,"topic") & " or " & translate(keyword,"body") & ") and locktopic<2 ORDER BY announceID desc" ordername="搜索主题和内容" end select case 3 sql="select top 50 locktopic,boardid,rootid,announceid,body,Expression,topic,username,dateandtime,postuserid,ParentID from "&stable&" where locktopic<2 ORDER BY announceID desc" ordername="最新50帖" end select if sql="" then Errmsg=Errmsg+"
"+"

请指定查询条件。" founderr=true exit sub end if rs.open sql,conn,1,1 if rs.eof and rs.bof then Errmsg=Errmsg+"
"+"

没有找到您要查询的内容。" founderr=true exit sub else rs.PageSize = Forum_Setting(11) rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount call searchinfo() call listPages3() end if rs.close set rs=nothing call activeonline() end sub sub searchinfo() %>

查询<%if request("SearchDate")="ALL" then%>所有日期<%else%><%=request("SearchDate")%>天内<%end if%>的帖子，<%=ordername%> <%if totalrec>=1000 then%> 最多只能查询到>1000条纪录，更多的就不显示了 <%else%>共查询到 ><%=totalrec%>个结果 <%end if%>

<% while (not rs.eof) and (not page_count = rs.PageSize) %> <% page_count = page_count + 1 rs.movenext wend %>

主题	作者	发贴日期
<% if rs(6)="" then%> <%=left(htmlencode(replace(rs(4),chr(10)," ")),26)%>... <%else%> <%=htmlencode(rs(6))%> <%end if %>	"><%=htmlencode(rs(7))%>	<%=FormatDateTime(rs("dateandtime"),2)%> <%=FormatDateTime(rs("dateandtime"),4)%> \| " target=_blank><%=htmlencode(rs(7))%>

<% end sub sub listPages3() Pcount=rs.PageCount response.write ""&_ ""&_ "

"&_ "页次："¤tpage&"/"&Pcount&"页"&_ "每页"&Forum_Setting(11)&" 帖子数"&totalrec&"

分页： " if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if response.write "

" end sub public function translate(sourceStr,fieldStr) rem 处理逻辑表达式的转化问题 dim sourceList dim resultStr dim i,j if instr(sourceStr," ")>0 then dim isOperator isOperator = true sourceList=split(sourceStr) '-------------------------------------------------------- rem Response.Write "num:" & cstr(ubound(sourceList)) & "
" for i = 0 to ubound(sourceList) rem Response.Write i Select Case ucase(sourceList(i)) Case "AND","&","和","与" resultStr=resultStr & " and " isOperator = true Case "OR","|","或" resultStr=resultStr & " or " isOperator = true Case "NOT","!","非","！","！" resultStr=resultStr & " not " isOperator = true Case "(","（","（" resultStr=resultStr & " ( " isOperator = true Case ")","）","）" resultStr=resultStr & " ) " isOperator = true Case Else if sourceList(i)<>"" then if not isOperator then resultStr=resultStr & " and " if inStr(sourceList(i),"%") > 0 then resultStr=resultStr&" "&fieldStr& " like '" & replace(sourceList(i),"'","''") & "' " else resultStr=resultStr&" "&fieldStr& " like '%" & replace(sourceList(i),"'","''") & "%' " end if isOperator=false End if End Select rem Response.write resultStr+"
" next translate=resultStr else '单条件 if inStr(sourcestr,"%") > 0 then translate=" " & fieldStr & " like '" & replace(sourceStr,"'","''") &"' " else translate=" " & fieldStr & " like '%" & replace(sourceStr,"'","''") &"%' " End if rem 前后各加一个空格，免得连sql时忘了加，而出错。 end if end function function renzhen(boardid,username) dim boarduser,rrs,Board_Setting,BoardMaster renzhen=false if master then renzhen=true else sql="select boarduser,Board_Setting,BoardMaster from board where boardid="&boardid set rrs=server.createobject("adodb.recordset") rrs.open sql,conn,1,1 Board_Setting=split(rrs("board_setting"),",") if cint(Board_Setting(2))=1 then if not (isnull(rrs(2)) or rrs(2)="") then BoardMaster=split(rrs(2), "|") for i = 0 to ubound(BoardMaster) if trim(BoardMaster(i))=trim(username) then renzhen=true exit for end if next end if if renzhen=false then if isnull(rrs(0)) or rrs(0)="" then renzhen=false else boarduser=split(rrs(0), ",") for i = 0 to ubound(boarduser) if trim(boarduser(i))=trim(username) then renzhen=true exit for end if next end if end if else renzhen=true end if rrs.close set rrs=nothing end if end function %>