<% stats="论坛搜索" dim sql,rs dim sel dim boardid dim username dim guestlist if founderr then call nav() call headline(1) call error() else call main() end if sub main() if boardmaster or master then guestlist="" else guestlist=" lockboard<>2 and " end if boardid=request("boardid") if BoardID="" or not isInteger(BoardID) then boardid=0 else boardid=request("boardid") call boardinfo() end if call nav() call headline(1) %>

请输入要搜索的关键字 (同时查询多个条件使用'or' 分隔关键字，查询同时满足某条件使用'and'分隔关键字) 搜索选项 作者搜索  搜索主题作者 搜索回复作者 两者都搜索 关键字搜索  在主题中搜索关键字 在贴子内容中搜索关键字 两者都搜索 日期范围 所有日期昨天以来5天以来10天以来30天以来 请选择要搜索的论坛 (不要选那些用 >> 和 << 括起来的，那只是类别名，不是论坛) 搜索论坛：   所有论坛 <% dim rs1,sql1 sql="select id,class from class order by id" set rs=server.createobject("adodb.recordset") set rs1=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not(rs.eof and rs.bof) then arrRow=rs.getRows rs.close : set rs=nothing for i=0 to Ubound(arrRow,2) response.write ">> "& arrRow(1,i) &" <<" sql1="select boardid,boardtype from board where "&guestlist&" class="& arrRow(0,i)&" order by boardid" set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 if rs1.eof and rs1.bof then rs1.close : set rs1=nothing response.write "没有论坛" else arrRow1=rs1.getrows rs1.close : set rs1=nothing for ii=0 to Ubound(arrRow1,2) response.write """ then if cint(boardid)=cint(arrRow1(0,ii)) then response.write " selected " end if response.write ">"& arrRow1(1,ii) next arrRow1=null end if next arrRow=null end if %>

<% end sub sub boardinfo() set rs=server.createobject("adodb.recordset") sql="select boardtype,Tableback,Tabletitle,Tablebody,aTablebody,TableFont,TableContent,AlertFont,strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash,Forumlogo from board where boardID="&BoardID rs.open sql,conn,1,1 if not(rs.bof and rs.eof) then boardtype=rs("boardtype") Tablebackcolor=trim(rs("Tableback")) Tabletitlecolor=trim(rs("Tabletitle")) Tablebodycolor=trim(rs("Tablebody")) aTablebodycolor=trim(rs("aTablebody")) TableFontcolor=trim(rs("TableFont")) TableContentcolor=trim(rs("TableContent")) AlertFont=trim(rs("AlertFont")) strAllowForumCode=rs("strAllowForumCode") strAllowHTML=rs("strAllowHTML") strIMGInPosts=rs("strIMGInPosts") strIcons=rs("strIcons") strflash=rs("strflash") Forumlogo=rs("Forumlogo") end if rs.close set rs=nothing end sub call endline() %>