?? searchok.asp
字號:
<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您還還未<a href=login.asp>登陸</a>社區")
end if
if instr(Request.ServerVariables("http_referer"),""&Request.ServerVariables("server_name")&"") = 0 then
error("<li>來源錯誤")
end if
search=Request("search")
forumid=Request("forumid")
content=Request("content")
searchxm=Request("searchxm")
searchxm2=Request("searchxm2")
searchxm2=replace(searchxm2,"@","&")
if content="" then
content=Request.Cookies("username")
end if
if Request("forumid")<>"" then
forumidor="forumid="&forumid&" and"
end if
if Request("search")="author" then
item=""&searchxm&"='"&content&"'"
elseif Request("search")="key" then
item=""&searchxm2&" like '%"&content&"%'"
end if
if request("TimeLimit")<>"" then
TimeLimit="and DateDiff('d',lasttime,now)<"&request("TimeLimit")&""
else
TimeLimit=""
end if
pagesetup=20 '設定每頁的顯示數量
count=conn.execute("Select count(id)from forum where deltopic<>1 and "&forumidor&" "&item&" "&TimeLimit&"")(0)
sql="select * from forum where deltopic<>1 and "&forumidor&" "&item&" "&TimeLimit&" order by lasttime Desc "
rs.Open sql,Conn
if Count=0 then
error("<li>對不起，沒有找到您要查詢的內容")
end if
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if 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
top
%>
<script>
function loadThreadFollow(ino){
var targetImg =eval("followImg" + ino);
var targetDiv =eval("follow" + ino);
if (targetDiv.style.display!='block'){
targetDiv.style.display="block";
targetImg.src="images/minus.gif";
if (targetImg.loaded=="no"){document.frames["hiddenframe"].location.replace("loading.asp?id="+ino+"");}
}else{
targetDiv.style.display="none";
targetImg.src="images/plus.gif";
}
}
</script>
<IFRAME HEIGHT=0 WIDTH=0 NAME=hiddenframe></IFRAME>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<title>搜索結果</title>
<table width="750" align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top"> <img src="images/closedfold.gif" border="0"> <a href="index.asp"><%=clubname%></a><br>
<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0"> 搜索結果</td>
</tr>
</table>
<table width=750 align=center>
<tr>
<td width="100%" align="right">搜索關鍵字：<font color="#FF0000"><%=content%></font> 共找到了 <b><font color="#FF0000"><%=Count%></font></b> 篇相關帖子</td>
</tr>
</table>
<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7><TR><TD></TD></TR></TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center
bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD align=middle width=46 height=24 background=images/title_sub.gif>狀態</TD>
<TD align=middle height=24 background=images/title_sub.gif><font color="#000000">主題</font></TD>
<TD align=middle width=70 height=24 background=images/title_sub.gif><font color="#000000">作者</font></TD>
<TD align=middle width=40 height=24 background=images/title_sub.gif><font color="#000000">字[回]</font></TD>
<TD align=middle width=32 height=24 background=images/title_sub.gif><font color="#000000">點擊</font></TD>
<TD width=200 height=24 background=images/title_sub.gif> <font color="#000000">最后更新</font> <font color=000000>最后回復</font></TD></TR></TBODY></TABLE>
<%
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1
if rs("toptopic")=1 then
reimage="<img src=images/f_top.gif>"
elseif rs("locktopic")=1 then
reimage="<img src=images/f_locked.gif>"
elseif rs("polltopic")<>"" then
reimage="<img src=images/f_poll.gif>"
elseif rs("replies")>15 or rs("views") > 150 then
reimage="<img src=images/f_hot.gif>"
elseif rs("replies")>0 then
reimage="<img src=images/f_new.gif>"
else
reimage="<img src=images/f_norm.gif>"
end if
if rs("goodtopic")=1 then
reimage2="<img src=images/topicgood.gif>"
elseif rs("username")=""&Request.Cookies("username")&"" then
reimage2="<img src=images/my.gif>"
else
reimage2=" "
end if
if rs("replies")>0 then
replies="<font color=red>["&rs("replies")&"]</font>"
else
replies=Len(rs("content"))
end if
newtopic=""
topicpage=""
if DateDiff("s",rs("posttime"),Now()) < 43200 then
newtopic="<img src=images/new.gif>"
end if
if rs("replies") > 15 then
topicpageend=(rs("replies")-1)/15+1
for topicpagestart=1 to topicpageend
topicpage=""&topicpage&" <b><a href=showtopic.asp?topage="& topicpagestart &"&forumid="&rs("forumid")&"&id="&rs("id")&">" & topicpagestart & "</a></b> "
next
topicpage=" ( <img src=images/multipage.gif>"&topicpage&") "
end if
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD align=middle width=21 bgColor=ecf5ff height=24><%=reimage%></TD>
<TD align=middle width=22 bgColor=f2f8ff><%=reimage2%> </TD>
<TD onmouseover="this.style.backgroundColor='f2f8ff'" onmouseout="this.style.backgroundColor=''" align=left bgColor=ecf5ff>
<img loaded="no" src=images/plus.gif id="followImg<%=rs("id")%>" style="cursor:hand;" onclick="loadThreadFollow(<%=rs("id")%>)">
<a target="_blank" href="showtopic.asp?id=<%=rs("id")%>&forumid=<%=rs("forumid")%>"><img border=0 alt=新窗口 src=images/brow/<%=rs("icon")%>.gif></a> <a href=showtopic.asp?id=<%=rs("id")%>&forumid=<%=rs("forumid")%>><%=rs("topic")%></a> <%=topicpage%><%=newtopic%></TD>
<TD align=middle width=70 bgColor=f2f8ff><a href=profile.asp?username=<%=rs("username")%>><%=rs("username")%> </TD>
<TD align=middle width=40 bgColor=ecf5ff><%=replies%> </TD>
<TD align=middle width=32 bgColor=f2f8ff><%=rs("views")%> </TD>
<TD align=left width=200 bgColor=ecf5ff> <%=rs("lasttime")%> | <a href=profile.asp?username=<%=rs("lastname")%>><%=rs("lastname")%></a></TD></TR></TBODY></TABLE>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25 style="display:none" id="follow<%=rs("id")%>">
<TD width=21 bgColor=ecf5ff> </TD>
<TD width=22 bgColor=f2f8ff> </TD>
<TD id="followTd<%=rs("id")%>" align=left bgColor=f2f8ff>
<div onclick="loadThreadFollow(<%=rs("id")%>)">
<table width=100% cellpadding=10><tr><td width=100%>
Loading...
</td></tr></table>
</div>
</TD>
</TR>
</TBODY></TABLE>
<%
RS.MoveNext
loop
RS.Close
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center bgColor=0bc000 border=1>
<TBODY>
<TR bgColor=c4d4e5 height=25>
<TD height=2 background=images/title_sub.gif>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD height=2><b> 本論壇共有
<font color="#990000"><%=TotalPage%></font> 頁 [
<%
TimeLimit=Request("TimeLimit")
searchxm2=replace(searchxm2,"&","@")
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&forumid="&forumid&"&search="&search&"&searchxm="&searchxm&"&searchxm2="&searchxm2&"&content="&content&"&TimeLimit="&TimeLimit&"'>1</a> ... "
end if
for i=ii to iii
If i<>PageCount then
Response.Write " <a href='?topage="& i &"&forumid="&forumid&"&search="&search&"&searchxm="&searchxm&"&searchxm2="&searchxm2&"&content="&content&"&TimeLimit="&TimeLimit&"'>" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next
if TotalPage > PageCount+5 then
Response.Write " ... <a href='?topage="&TotalPage&"&forumid="&forumid&"&search="&search&"&searchxm="&searchxm&"&searchxm2="&searchxm2&"&content="&content&"&TimeLimit="&TimeLimit&"'>"&TotalPage&"</a>"
end if
%>
]</b></TD>
<TD align=right height=2>
<select onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<option selected>跳轉論壇至...</option>
<%
rs.Open "class order by id",Conn
do while not rs.eof
%>
<option style=BACKGROUND-COLOR:ECF5FF>╋ <%=rs("classname")%></option>
<%
sql="select id,bbsname from bbsconfig where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof
%>
<option value="forumdisplay.asp?forumid=<%=rs1("id")%>"> ├『<%=rs1("bbsname")%>』</option>
<%
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
%>
</select>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<br>
<center>
<p></p>
<div align="center">
<center>
<table cellSpacing="4" cellPadding="0" width="651" border="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td noWrap width="200">
<img alt src="images/f_new.gif" border="0"> 打開主題 (有回復的主題)</td>
<td noWrap width="100">
<img alt src="images/f_hot.gif" border="0"> 熱門主題 </td>
<td noWrap width="100">
<img alt src="images/f_locked.gif" border="0"> 鎖定主題</td>
<td noWrap width="150">
<img src="images/topicgood.gif">
精華主題</td>
</tr>
<tr>
<td noWrap width="200">
<img alt src="images/f_norm.gif" border="0"> 打開主題 (沒有回復的主題)</td>
<td noWrap width="100">
<img alt src="images/f_poll.gif" border="0"> 投票主題</td>
<td noWrap width="100">
<img alt src="images/f_top.gif" border="0"> 置頂主題</td>
<td noWrap width="150">
<img src="images/my.gif">
自己發表的主題</td>
</tr>
</table>
</center>
</div>
<%
htmlend
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -