<!--#include file="up.asp"-->
<%if isnull(lguserid) or lguserid="" then
tl=" 操 作 失 敗"
mes="對不起，該功能只對會員開放。"
call sendinfo(tl,mes)
call down
response.end
end if
dim action,key,sql,thetime,searchtime,bbs,pagesetup,totalpage,Count,pagecount,topicinfo,retopic,reinfo,ii,iii
action=request.querystring("action")
select case action
case""
%>

<form method="GET" action="search.asp?action=search"><%=ttop%>
<table align="center" border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>">
  <tr>
    <td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">&nbsp; <img src="pic/gl.gif" border="0"> 論壇搜索</td>
  </tr>
  <tr>
    <td width="100%" height="26">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
      <tr>
        <td width="40%">
        <p style="line-height: 120%; margin: 4"><b>搜索關鍵字：</b><br>請輸入要搜索的關鍵字。</td>
        <td width="60%">　<input type="text" username="key" size="40"></td>
      </tr>
      <tr>
        <td height="35">
        <p style="line-height: 120%; margin: 4"><b>搜索日期范圍：</b></td>
        <td>　<select size="1" username="searchtime" style="font-size: 9pt">
<option selected value="0">所有日期</option>
<option value="1">1天以來</option>
<option value="2">2天以來</option>
<option value="7">7天以來</option>
<option value="15">15天以來</option>
<option value="30">30天以來</option>
</select></td>
      </tr>
      <tr>
        <td height="35">
        <p style="line-height: 120%; margin: 4"><b>搜索的論壇：</b></td>
        <td>　<select size="1" username="bbs" style="font-size: 9pt">
<option value="0">所有論壇</option>
<%set rs=conn.execute("select id,bdinfo from bdinfo where followid<>0 order by orders desc,id")
do while not rs.eof
response.write"<option value="&rs("id")&">"&split(rs("bdinfo"),"|")(0)&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%></select></td>
      </tr>
      <tr>
        <td colspan="2" align="center" height="40" bgcolor="<%=c2%>">
        <input type="submit" value="    開 始 搜 索   " username="B1"><input type="hidden" username="action" size="20" value="search"></td>
      </tr>
    </table>
    </td>
  </tr>
  </table><%=tbottom%></form>
<%case"search"
key=Replace(request.querystring("key"),"'","")
key=Replace(key,"[","[[]")
key=Replace(key,"|","│")

if key="" or len(key)<4 or instr("face",key) or checkname(key)=false then
tl=" 搜 索 失 敗"
mes="<b>搜索關鍵字太短，或者關鍵字含有非法字符。</b><br><a href='javascript:history.go(-1)'><img border=0 src=pic/re.gif align=absmiddle> 返回重新填寫</a>"
call sendinfo(tl,mes)
call down
response.end
end if
%><%=ttop%>
<table align="center" class=td1  border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" bgcolor="<%=c1%>" background="<%=tbg%>" height="28">
    <tr>
      <td width="5%" align="center">表情</td>
      <td align="center" width="45%">主題 （點擊表情在新窗口打開）</td>
      <td align="center" width="10%">作者</td>
      <td align="center" width="10%">回復/人氣</td>
      <td align="center" width="20%">最后更新時間</td>
      <td align="center" width="10%">最后回復</td>
    </tr>
</table>
<%
searchtime=checknum(request.querystring("searchtime"))
bbs=checknum(request.querystring("bbs"))
sql="select*from topic where topicinfo like '%"&key&"%' and type<>3"
if bbs>0 then sql=sql&"and bd="&bbs&" "
if searchtime>0 then sql=sql&"and edittime>now()+"&timeset&"/24-"&searchtime&""
response.write"<script language='javascript'>function Check(){var username=document.form.topage.value;document.location='?action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"&topage='+username+'';}</script>"
set rs = server.createobject("adodb.recordset")
pagesetup=checknum(application(prefix&"topiclistpage"))
rs.Open sql,conn,1
TotalPage=0
Count=rs.recordcount
if not rs.eof then
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
pagecount= 0
rs.moveFirst
if Request.QueryString("ToPage")<>"" and isnumeric(Request.QueryString("ToPage")) then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
rs.move (PageCount-1) * pagesetup
i=1
do while not rs.eof
topicinfo=rs("topicinfo")
topicinfo=split(topicinfo,"|")
retopic=rs("retopic")
if isnull(retopic) or retopic="" then
reinfo="——"
retopic="未有人回復。|——|0"
retopic=split(retopic,"|")
else
retopic=split(retopic,"|")
reinfo="<a href=userinfo.asp?userid="&retopic(2)&">"&kbbs(retopic(1))&"</a>"
end if
'修正表格顏色
response.write"<table onmouseover=javascript:this.bgColor='"&c2&"' onmouseout=javascript:this.bgColor='#ffffff' bgcolor=#ffffff bordercolor="&c2&" border=1 align=center cellpadding=0 cellspacing=0 style='border-collapse: collapse; border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1' width="&tbw&" height=28><tr><td width=5% align=center><a target=_blank href='showbbs.asp?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable")&"' title='最后回復："&kbbs(retopic(0))&"'><img border=0 src=face/"&topicinfo(0)&".gif></a></td><td width=45% >&nbsp;&nbsp;<a href='showbbs.asp?bd="&rs("bd")&"&id="&rs("id")&"&totable="&rs("totable")&"' title='最后回復："&kbbs(retopic(0))&"'>"&topicinfo(3)&" <font color="&replacecolor(kbbs(topicinfo(1)))&">"&kbbs(topicinfo(1))&"</font></a></td><td align=center width=10% ><a href=userinfo.asp?userid="&rs("userid")&">"&kbbs(topicinfo(2))&"</a></td><td align=center width=10% >"&rs("renum")&"/"&rs("hits")&"</td><td align=center width=20% >"&rs("edittime")&"</td><td align=center width=10% >"&reinfo&"</td></tr></table>"
i=i+1
if i>pagesetup then exit do
rs.movenext
loop
end if
rs.Close
set rs=nothing
response.write"<div align='center'><center><TABLE bgcolor="&c1&" cellSpacing=0 cellPadding=0 width='"&tbw&"' border=0 style='border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px'><TBODY><TR height=25><TD height=2><TABLE cellSpacing=0 cellPadding=3 width='100%' border=0 background='"&tbg&"' style='border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0'><TBODY><TR><TD><b><font color='#FFFFFF'><img border='0' src='pic/fl.gif'> 本版面共有</font><font color='#00FFFF'> "&TotalPage&" </font><font color='#FFFFFF'>頁,<font color='#00FFFF'> "&count&" </font>張帖子，每頁有<font color='#00FFFF'> "&pagesetup&" </font> 張帖子 >> ["
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"><font color=yellow>1</font></a> ... "
end if
for i=ii to iii
If i<>PageCount then
Response.Write "<a href=?topage="& i &"&action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"><font color=yellow>" & i & "</font></a> "
else
Response.Write " <font color=red><b>"&i&"</b></font> "
end if
next
if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&action=search&bbs="&bbs&"&key="&key&"&searchtime="&searchtime&"><font color=yellow>"&TotalPage&"</font></a>"
end if
response.write" ]</font></b></TD><form username=form method='POST' action=javascript:Check()><TD height=2 align='right'><font color='#FFFFFF'>頁碼：<input style=FONT-SIZE:9pt maxLength='6' size='6' username='topage' value='"&PageCount&"'><input style=FONT-SIZE:9pt value='GO!' type='submit'></font></TD></form></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></center></div>"&tbottom&""
%>


<%end select
call down%>