search.asp

一个不错的ASP论坛源码

%>
      <tr>
        <td height="20" colspan="5" bgcolor="<% =strCategoryCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><b>&nbsp;<% =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>&nbsp;</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>&nbsp;<% =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" -->