📄 search.asp

📁 在线考试系统
💻 ASP
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="conn_forum.asp" -->
		
<HTML>
	<HEAD>
		<title>论坛搜索</title>
		<meta http-equiv="Content-Language" content="zh-cn">
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		<link rel="stylesheet" type="text/css" href="../main.css">
	</HEAD>
	<body bgcolor="#ffffff">
		<%
	dim iarea
	if Request("area")="" then
		iarea=-1
	else
		iarea=clng(Request("area"))
	end if

%>
		<SCRIPT language="JavaScript" src="../include/header.inc" type="text/javascript"></SCRIPT>
		<!-- #include file="inc_forumheader.asp" -->
		<center>
			<b>论 坛 搜 索</b>
        <table border="0" width="100%">
          <tr>
            <td width="100%"></td>
          </tr>
        </table>
			<form method="post" action="search_exec.asp">
				<center>
					<table border="0" width="760" cellspacing="1" bgcolor="#D2D6DD">
						<tr>
							<td width="47%" bgcolor="#E8EAEE" align="right" height="50"><br>
								搜索关键字：</td>
							<td width="53%" bgcolor="#E8EAEE" height="50">
								<input type="text" name="KeyWord" size="20">
							</td>
						</tr>
						<tr>
							<td width="47%" bgcolor="#F5F5F5" align="right" height="30">讨论区：</td>
							<td width="53%" bgcolor="#F5F5F5" height="30">
								<select size="1" name="area">
									<option value="-1" selected>-所有讨论区-</option>
									<%
	dim rs
	set rs=Server.CreateObject ("ADODB.Recordset")
	rs.Open  "SELECT areaID,areaName FROM tindex ORDER BY AreaID",connf,1 ,1

	dim i

	if not(rs.EOF and rs.BOF) then

		rs.MoveFirst
		do while not rs.EOF
			i=clng(rs("areaid"))
			if iarea=i then
				Response.Write "<option selected value=" & rs("areaid") & ">" & rs("areaname") & "</option>" & vbcrlf
			else
				Response.Write "<option value=" & rs("areaid") & ">" & rs("areaname") & "</option>" & vbcrlf
			end if
			rs.MoveNext
		loop

	end if
%>
								</select></td>     
						</tr>
						<tr>
							<td width="47%" bgcolor="#E8EAEE" align="right" height="30">搜索范围：</td>
							<td width="53%" bgcolor="#E8EAEE" height="30">
								<select size="1" name="range">
									<option selected value="1">文章主题及内容</option>
									<option value="2">仅文章主题</option>
									<option value="3">仅文章内容</option>
									<option value="4">作者</option>
								</select></td>
						</tr>
						<tr>
							<td width="47%" bgcolor="#F5F5F5" align="right" height="30">时间范围：</td>
							<td width="53%" bgcolor="#F5F5F5" height="30">
								<select size="1" name="day">
									<option value="0">显示今天的主题</option>
									<option value="3">显示三天以来的主题</option>
									<option value="7">显示一周以来的主题</option>
									<option value="30">显示一个月以来的主题</option>
									<option value="90" selected>显示三个月以来的主题</option>
									<option value="365">显示一年以来的主题</option>
									<option value="-1">-显示所有的主题-</option>
								</select>
								<input type="hidden" name="search" value="1">     
							</td>
						</tr>
					</table>
					<p>
					</p>
					<p align="center"><input type="submit" value="Go go go!" name="CmdSearch"></p>     
			</form>
		</center>
		<p>&nbsp;</p>
		<SCRIPT language="JavaScript" src="../include/buttom.inc" type="text/javascript"></SCRIPT>
		<%
	rs.Close
	set rs=nothing
	call closeconnf()
%>
		</CENTER>
	</body>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -