📄 search.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True

Dim strReturnPage
Dim strForumName 
Dim intForumID 
Dim intReadPermission
%>

<html>
<head>


<title><% = strMainForumName %> 搜索</title>
<script  language="JavaScript">
function CheckForm () {
	if (document.frmSearch.kw.value==""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";
		alert(msg + "\n\t搜索\t- 输入你想要搜索的\n\n");
		document.frmSearch.kw.focus();
		return false;
	}

	return true
}
// -->
</script>
<table width="96%" border="0" cellspacing="1" cellpadding="0" align="center"><tr>
<td class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="search.asp" target="_self" class="boldLink">搜索</a></td>
</tr></table>
<form method="get" name="frmSearch" action="searchchk.asp" onSubmit="return CheckForm();" onReset="return confirm('你确认要重新填写此表单?');">
<table width="96%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%= strTableBgcolour %>">
 <tr class="tHeading" height="25">
   <td width="57%" background="<% = strTableTitleBgImage %>">>>>关键字</td>
    <td width="43%" background="<% = strTableTitleBgImage %>">>>>搜索选项</td>
  </tr>
        <tr bgcolor="#FFFFFF">
         <td width="57%"> <input type="text" name="kw" maxlength="35" value="<% = Request.QueryString("kw") %>">
          <span class="text">搜索&nbsp;:
          <input type="radio" name="SM" value="1" <% If Request.QueryString("SM") = "1" OR Request.QueryString("SM") = "" Then Response.Write "CHECKED" %>>所有
          <input type="radio" name="SM" value="2" <% If Request.QueryString("SM") = "2" Then Response.Write "CHECKED" %>>关键字
          <input type="radio" name="SM" value="3" <% If Request.QueryString("SM") = "3" Then Response.Write "CHECKED" %>>词组</span></td>
         <td width="43%"> <select name="si">
           <option value="TC" <% If Request.QueryString("si") = "TC" OR Request.QueryString("si") = "" Then Response.Write "selected" %>>帖子主题</option>
           <option value="PT" <% If Request.QueryString("si") = "PT" Then Response.Write "selected" %>>文章正文</option>
           <option value="AR" <% If Request.QueryString("si") = "AR" Then Response.Write "selected" %>>作者姓名</option>
          </select> </td>
        </tr>    </table>
 <br />
 <table width="96%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<% = strTableBgColour %>">
  <tr bgcolor="#FFFFFF" class="tHeading" height="25">
         <td width="57%" background="<% = strTableTitleBgImage %>">>>>搜索范围</td>
         <td width="43%" background="<% = strTableTitleBgImage %>">>>>结果排序</td>
   </tr>
        <tr bgcolor="#FFFFFF">
         <td width="57%"> <select name="FM">
           <option value="0">所有论坛</option><%
strSQL = "SELECT timesbbs.* FROM timesbbs ORDER BY timesbbs.boardid ASC, timesbbs.bbsnum ASC;"
rsConn.Open strSQL, adoCon
Do while NOT rsConn.EOF
	strForumName = rsConn("bbsname")
	intForumID = CLng(rsConn("bbsid"))
	intReadPermission = CInt(rsConn("Read"))
	Call forumPermisisons(intForumID, intGroupID, intReadPermission, 0, 0, 0, 0, 0, 0, 0, 0, 0)
	If (isNull(rsConn("Password")) = True OR Request.Cookies("PrForum")("Forum" & intForumID) = rsConn("codes")) AND (blnRead = True OR blnAdmin = True OR blnModerator = True) Then
		Response.Write vbCrLf & "<option value=" & intForumID & " "
		If CInt(Request.QueryString("fid")) = intForumID OR CInt(Request.QueryString("forum")) = intForumID Then Response.Write "selected"
		Response.Write ">" & strForumName & "</option>"
	End If
	rsConn.MoveNext
Loop
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
          </select> </td>
         <td width="43%"> <select name="OB">
           <option value="1" <% If Request.QueryString("OB") = "1" OR Request.QueryString("OB") = "" Then Response.Write "selected" %>>最后参与时间</option>
           <option value="2" <% If Request.QueryString("OB") = "2" Then Response.Write "selected" %>>发帖时间</option>
           <option value="3" <% If Request.QueryString("OB") = "3" Then Response.Write "selected" %>>字母排列</option>
           <option value="4" <% If Request.QueryString("OB") = "4" Then Response.Write "selected" %>>按回复数</option></select> </td>
        </tr>
       </table><br/>
 <table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
  <tr>
   <td align="center"> <input type="submit" name="Submit" value="搜索"> <input type="reset" name="Reset" value="清除"> </td>
  </tr>
 </table>
</form>
<br/>
<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

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