📄 sys_search.asp

📁 有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大
💻 ASP
字号:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/CallErr.asp" -->
<!--#include file="class/command.asp" -->
<!--#include file="class/showpage.asp" -->
<%
Response.Expires = -1
Server.ScriptTimeout = 300
dim ClassSystem,ClassCheck,ClassPage
Set ClassSystem = New System
Set ClassCheck = New CheckUser
Set ClassPage = New ShowPage
ClassSystem.GetWebSys()
ClassCheck.GetUserInfo()
ClassCheck.GetUserCss Request.Querystring("GetStyle")
ClassCheck.CheckUserLogin ClassSystem.ArrRs(2,0),ClassSystem.ArrRs(3,0),ClassCheck.AdminUser,ClassCheck.AdminPass
ClassPage.GetSearchInfo Request.Form("Content"),Request.Form("SearchMode")
ClassPage.GetPageInfo_Search ClassPage.CurrentPage,ClassPage.Pagesize,ClassPage.SearchSql
ClassSystem.Closedb()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="script/GetStyle.js"></script>
<title><%=ClassSystem.ArrRs(0,0)%> - <%=ClassSystem.ArrRs(1,0)%></title>
</head>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 class="body" Bgproperties="fixed">
<!--#include file=Include/Top_Sys.asp -->
<div class="div"> 
  <table Class=TableTop border=0 cellpadding="0" cellspacing="0">
    <tr> 
    <td class=TableTop_Left rowspan="11">&nbsp;</td>
    <td colspan="2" align="center">&nbsp;</td>
  </tr>
  <tr> 
      <td colspan="2" class=TableTop_Right> 
        <table width="600" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><p><strong>=> 留言资料搜索</strong> </p>
			<form method="POST" action="Sys_Search.asp" name="form">
                <p>搜索留言：<strong> 
                  <input name="Content" type="text" size="20" maxlength="20" Class=put>
                  <select name="SearchMode" Class=put>
                    <option value="Title" selected>留言标题</option>
                    <option value="Author">留言作者</option>
                  </select>
                  <input type="submit" name="Submit" value="=> 搜索" Class=put2>
                  </strong></p>
			 </form>
              <%
for i=0 to ubound(ClassPage.ArrRs,2)
%>
              <div> 标题：<a href=ShowGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%> target=_blank><u><%=ClassPage.ArrRs(7,i)%></u></a> 
                &nbsp;[作者：<%=ClassPage.ArrRs(2,i)%>] - 留言于<%=ClassPage.ArrRs(11,i)%> 
                <br>
                <font color="#FF0000">[操作：<a href="EditGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">修改</a> 
                | <a href="DelGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">删除</a> 
                | <a href="Ontop.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">置顶</a> 
                | <a href="ReGsbook.asp?Id=<%=ClassPage.ArrRs(15,i)%>" target="_blank">回复</a>]</font><br>
                <br>
              </div>
              <%
Next
%>
</td>
          </tr>
        </table></td>
  </tr></table>
</div>
<!--#Include File="Include/CopyRight.asp" -->
</body>
</html>
⌨️ 快捷键说明

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