📄 query.asp
字号:
<!--#include file="conn.asp"--><!--#include file="inc/const.asp"--><!--#include file="inc/char.asp"--><!--#include file="inc/stats.asp"--><!--#include file="inc/grade.asp"--><html><head><meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"><meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312"><link rel="stylesheet" type="text/css" href="forum.css"><title><%=ForumName%>--搜索</title></head><!--#include file="inc/theme.asp"--><body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0"><br><TABLE border=0 width="95%" align=center> <TBODY> <TR> <TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD> <TD valign=middle align=top> <img src="<%=picurl%>closedfold.gif" border=0> <a href="index.asp"><%=ForumName%></a><br> <img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>openfold.gif" border=0> 论坛搜索</a> </TD></TR></TBODY></TABLE> <br><% dim sql,rs dim sel dim boardid dim username dim guestlist if memberclass = user_level18 or memberclass = user_level19 or memberclass = user_level20 then guestlist="" else guestlist=" where lockboard<>2" end if boardid=1 if not (isNUll(request("boardid")) or isEmpty(request("boardid")) or (request("BoardID")="") ) then boardid=request("boardid") end if set rs=server.createobject("adodb.recordset") sql="select * from board "&guestlist&"" rs.open sql,conn,1,1%><table cellpadding=0 cellspacing=0 border=0 width=500 bgcolor=<%=aTablebackcolor%> align=center> <tr> <td><table cellpadding=6 cellspacing=1 border=0 width=100%> <TBODY> <TR align=middle bgColor=<%=aTabletitlecolor%>> <TD colSpan=2 height=23><b>论坛搜索</b></TD></TR><form name="queryTopic" method="POST" action="queryResult.asp?type=1"> <TR bgColor=<%=Tablebodycolor%>> <TD width=150 height=32>主 题：</TD> <TD height=32><input type="text" name="txtTopic" size="13"> 版面：<select class="smallSel" name="selBoard" size="1"> <% rs.movefirst do while not rs.eof if boardid=cstr(rs("boardid")) then sel="selected" else sel="" end if response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10) rs.movenext loop %> </select> <input type="submit" value="查 询" name="cmdTopic"> </TD></TR></form><form name="queryUser" method="POST" action="queryResult.asp?type=2"> <TR bgColor=<%=Tablebodycolor%>> <TD width=150 height=32>发言人：</TD> <TD height=32><input type="text" name="txtUser" size="13"> 版面：<select name="selBoard" size="1"> <% rs.movefirst do while not rs.eof if boardid=cstr(rs("boardid")) then sel="selected" else sel="" end if response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10) rs.movenext loop %> </select> <input type="submit" value="查 询" name="cmdTopic"> </TD></TR></form><form name="queryUser" method="POST" action="queryResult.asp?type=3"> <TR bgColor=<%=Tablebodycolor%>> <TD width=150 height=32>内 容：</TD> <TD height=32><input type="text" name="txtCon" size="13"> 版面：<select name="selBoard" size="1"> <% rs.movefirst do while not rs.eof if boardid=cstr(rs("boardid")) then sel="selected" else sel="" end if response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10) rs.movenext loop %> </select><input type="submit" value="查 询"> </TD></TR></form><form name="queryUser" method="POST" action="queryResult.asp?type=4"> <TR bgColor=<%=Tablebodycolor%>> <TD width=150 height=32><b> I D：</b></TD> <TD height=32><select name="selCompare" size="1"> <option selected value="=">=</option> <option value=">">></option> <option value=">=">>=</option> <option value="<"><</option> <option value="<="><=</option> </select><input type="text" name="aid" size="6">版面：<select name="selBoard" size="1"> <% rs.movefirst do while not rs.eof if boardid=cstr(rs("boardid")) then sel="selected" else sel="" end if response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10) rs.movenext loop %> </select><input type="submit" value="查 询"> </TD></TR></form><form name="queryUser" method="POST" action="queryResult.asp?type=5"> <TR bgColor=<%=Tablebodycolor%>> <TD width=150 height=32>新 贴：</TD> <TD height=32><select name="selTimeLimit" size="1"> <option value="一天">一天内 </option> <option value="一周">一周内</option> <option value="一月">一月内</option> <option value="一年">一年内</option> </select> 版面：<select class="smallSel" name="selBoard" size="1"> <% rs.movefirst do while not rs.eof if boardid=cstr(rs("boardid")) then sel="selected" else sel="" end if response.write "<option " & sel & " value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10) rs.movenext loop rs.close set rs=nothing call endConnection() %> </select><input type="submit" value="查 询"> </TD></TR></form><form name="queryUser" method="POST" action="queryResult.asp?type=6"> <TR bgColor=<%=Tablebodycolor%>> <TD width=150 height=32>其他查询：</TD> <TD height=32><select name="selCompare" size="1"> <option value="2">查询最新的50个帖子</option><option value="1">查询点击数为前10位的帖子</option></select> <input type="submit" value="查 询" name="cmdTopic"> </td> </TR> <TR align=middle bgColor=<%=aTabletitlecolor%>> <TD colSpan=2 height=23><b>论坛主题搜索支持<a href=help.asp>多条件模糊查询</a></b></TD></TR></TBODY></TABLE> </td> </TR></TBODY></TABLE><!--#include file="footer.asp"--></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -