?? search.asp
字號:
%>
<tr>
<td height="20" colspan="5" bgcolor="<% =strCategoryCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><b> <% =ChkString(rs("F_SUBJECT"),"display") %></b></font></td>
</tr>
<% currForum = rs("FORUM_ID")
end if %>
<% if currTopic <> rs("TOPIC_ID") then %>
<tr>
<% if rsCFStatus("CAT_STATUS") <> 0 and rsCFstatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then %>
<td bgcolor="<% =strForumCellColor %>" align="center"><a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><% =ChkIsNew(rs("T_LAST_POST"),"Topic") %></a></td>
<% else %>
<td bgcolor="<% =strForumCellColor %>" align="center"><a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<%=rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<%=ChkString(rs("F_SUBJECT"),"urlpath") %>"><img src="<%=strImageURL %>icon_folder_locked.gif"
<% if rsCFStatus("CAT_STATUS") = 0 then
Response.Write ("alt='分類已被鎖定'")
elseif rsCFStatus("F_STATUS") = 0 then
Response.Write ("alt='論壇已被鎖定'")
else
Response.Write ("alt='主題已被鎖定'")
end if %>
border="0"></a>
</td>
<% end if %>
<td bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><% =ChkString(left(rs("T_SUBJECT"), 50),"display") %></a> </font></td>
<td bgcolor="<% =strForumCellColor %>" valign="top" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =ChkString(rs("M_NAME"),"display") %></font></td>
<td bgcolor="<% =strForumCellColor %>" valign="top" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =rs("T_REPLIES") %></font></td>
<td bgcolor="<% =strForumCellColor %>" valign="top" align="center" nowrap><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strFooterFontSize %>"><b><% =ChkDate(rs("T_LAST_POST")) %></b> <% =ChkTime(rs("T_LAST_POST")) %></font></td>
</tr>
<% currTopic = rs("TOPIC_ID")
end if
end if
rs.MoveNext
loop
end if
%>
</table>
</td>
</tr>
</table>
<p align="center"><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>>
<a href="JavaScript:history.go(-1)">回到論壇搜索</a>
</font></p>
<% Else %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你必須輸入關鍵字</p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">回到論壇搜索</a></p>
<meta http-equiv="Refresh" content="0; URL=JavaScript:history.go(-1)">
<%
end if
Else
%>
<form action="Search.asp?mode=DoIt" method="post">
<table border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<table border="0" cellspacing="1" cellpadding="5">
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">搜索目標：</font></td>
<td bgColor="<% =strPopUpTableColor %>" align="left" valign="top"><input type="text" name="Search" size="40" value="<%=Request.QueryString("Search")%>"><br>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% '################# New Search Code ################################################# %>
<input type="radio" class="radio" name="andor" value="phrase">完全匹配<br>
<% '################# New Search Code ################################################# %>
<input type="radio" class="radio" name="andor" value=" and " checked>符合所有字符串<br>
<input type="radio" class="radio" name="andor" value=" or ">符合任一個字符串</font></td>
</tr>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">目標論壇：</font></td>
<td bgColor="<% =strPopUpTableColor %>" align="left" valign="top">
<select name="Forum" size="1">
<option value="0">所有論壇</option>
<%
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT "
strSql = strSql & " FROM " & strTablePrefix & "FORUM"
set rs = my_Conn.execute (strSql)
On Error Resume Next
do until rs.EOF
if ChkForumAccess(rs("FORUM_ID")) then
Response.Write " <option value=""" & rs("FORUM_ID") & """>" & ChkString(left(rs("F_SUBJECT"), 50),"display") & "</option>" & vbCrLf
end if
rs.movenext
loop
%>
</select>
</td>
</tr>
<%'################# New Search Code #################################################%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">搜索范圍：</font></td>
<td bgColor="<% =strPopUpTableColor %>" align="left" valign="top">
<select NAME="SearchMessage">
<option value="0">整篇文章</option>
<option value="1">只有標題</option>
</select>
</td>
</tr>
<%'################# New Search Code #################################################%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">按日期搜索：</font></td>
<td bgColor="<% =strPopUpTableColor %>" align="left" valign="top">
<select NAME="SearchDate">
<option value="0">任何日期</option>
<option VALUE="1">最近一天</option>
<option VALUE="2">最近兩天</option>
<option VALUE="5">最近五天</option>
<option VALUE="7">最近一個星期</option>
<option VALUE="14">最近兩個星期</option>
<option VALUE="30">最近一個月前</option>
<option VALUE="60">最近兩個月</option>
<option VALUE="120">最近四個月</option>
<option VALUE="365">最近一年</option>
</select>
</td>
</tr>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right" valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">按用戶名搜索：</font></td>
<td bgColor="<% =strPopUpTableColor %>" align="left" valign="top">
<select name="SearchMember">
<option value="0">所有會員
<%
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1
strSql = strSql & " ORDER BY " & strMemberTablePrefix & "MEMBERS.M_NAME ASC;"
set rs = my_Conn.execute (strSql)
On Error Resume Next
do until rs.EOF
Response.Write " <option value=""" & rs("MEMBER_ID") & """>" & ChkString(left(rs("M_NAME"), 50),"display") & "</option>" & vbCrLf
rs.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="center" valign="top" colspan="2"><input type="submit" value="搜索"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<% end if %>
<% on error resume next %>
<% set rs = nothing %>
<!--#INCLUDE FILE="inc_footer.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -