📄 searchw.asp.txt

📁 ASP 网页数据库短训教程源码
💻 TXT
字号:
<%
  ' 取得表单数据
  Keyword = Request("Keyword")
  PageNo = Cint(Request("PageNo"))
%>
<HTML>
  <HEAD><TITLE>搜索结果</TITLE></HEAD>
  <BODY>
    <FORM NAME="Engine" ACTION="Searchw.asp" METHOD="GET">
      <TABLE ALIGN="CENTER" BGCOLOR="#FEEFBA" BORDER="1" 
             BORDERCOLOR="#FF9900" CELLSPACING="0" CELLPADDING="3">
        <TR><TD>关键字：
          <INPUT TYPE="TEXT" NAME="Keyword" SIZE="28">
          <INPUT TYPE=BUTTON VALUE="搜索" name=b1><BR>
          <SCRIPT for=b1 event = onclick LANGUAGE="VBSCRIPT">
            If Engine.Keyword.Value = Empty Then
              MsgBox "您没有输入搜索的字符串！", 48 ,"注意！"
            Else
              Engine.Submit
            End if
          </SCRIPT>
      </TABLE></FORM><hr>
<%
  if not IsEmpty(Keyword) then
    '打开Indexing Service
    Set objConn = Server.CreateObject("Ixsso.Query")
    Set Dic = Server.CreateObject("Ixsso.Util")
    Dic.AddScopeToQuery objConn,"\","Deep"
    objConn.Query = Keyword
    objConn.Columns = "FileName, Size, Write, Characterization, VPath"
    objConn.SortBy = "VPath"
    Set RS = objConn.CreateRecordset("nonsequential")
    '判断是否搜索到资料
    If RS.EOF Then 
      Response.Write "找不到您所查询的信息"
    Else
      RS.PageSize = 10
      If PageNo = Empty Then PageNo = 1
      RS.AbsolutePage = PageNo
      If PageNo = RS.PageCount Then
        count=RS.RecordCount
      Else
        count=RS.AbsolutePosition + RS.PageSize - 1
      End If
%>
    <P ALIGN="RIGHT">您搜索的信息是【<% = Keyword %>】，符合的查询有
    <% = RS.RecordCount %> 条记录，现在显示 <% = RS.absolutePosition%> -
    <%=count%>条</P>
    <CENTER>
<%
      If PageNo > 1 Then 
        Response.Write "<A HREF='Search.asp?Keyword=" & Keyword _
        & "&Kind=" & Kind & "&Order=" & Order _
        & "&PageNo=" & PageNo -1 & "'>上一页</A>&nbsp;&nbsp;"
      End If
      If RS.PageCount > PageNo Then
        Response.Write "<A HREF='Search.asp?Keyword=" & Keyword _
        & "&Kind=" & Kind & "&Order=" & Order _
        & "&PageNo=" & PageNo + 1 & "'>下一页</A>"
      End If
%>
    <TABLE WIDTH="100%" CELLSPACING="0" CELLPADDING="3" border=1>
      <TR BGCOLOR="#33CCCC">
        <TD WIDTH="10%" ALIGN="CENTER">编号</TD>
        <TD WIDTH="16%" ALIGN="CENTER">标题</TD>
        <TD WIDTH="10%" ALIGN="CENTER">大小</TD>
        <TD WIDTH="14%" ALIGN="CENTER">修改日期</TD>
        <TD WIDTH="50%" ALIGN="CENTER">路径</TD>
      </TR>
<%
      For I=1 To RS.PageSize
        Data="<TR>"
        Data=Data & "<TD ALIGN=CENTER>" & RS.absolutePosition
        Data=Data & "<TD><A HREF=" & RS("VPath") & ">" & RS("FileName") & "</A>"
        Data=Data & "<TD ALIGN=Right>" & FormatNumber(CDbl(RS("Size"))/1024,2) & "KB"
        Data=Data & "<TD ALIGN=Center>" & DateValue(RS("Write"))
        Data=Data & "<TD><A HREF=" & RS("VPath") & ">" & RS("VPath") & "</A>"
        Response.write Data
        RS.MoveNext
        If RS.EOF Then Exit For
      Next
      Response.write "</TABLE>"
      Response.write "</BODY>"
      Response.write "</HTML>"
  End If 
End If
%>
⌨️ 快捷键说明

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