如何做一个文本搜索？

<%
head = "搜索"
SearchString = Request("SearchString")
count=0

Function UnMapPath( Path )
    UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")

' 把当前目录的实际路径转换为虚拟路径.
End Function

Function SearchFile( f, s, title )
  Set fo = fs.OpenTextFile(f)
  content = fo.ReadAll

' 把全部文本读到content.
  fo.Close
  SearchFile = InStr(1, content, S, vbTextCompare) > 0

' 从第一个字符开始检查content里面是否有S.
  If SearchFile Then

' 如果有,则提出文件title存入变量.
      pos1 = InStr(1, content, "<title>", vbTextCompare)
      pos2 = InStr(1, content, "</title>", vbTextCompare)
      title = ""
      If pos1 > 0 And pos2 > 0 Then

' 取title标记中间的字符.
        title = Mid( content, pos1 + 7, pos2 - pos1 - 7 )
      End If
  End If
End Function

Function FileLink( f, title )
  vPath = UnMapPath( f.Path )

' 获取路径.
  If title = "" Then title = f.Name

' 做个链接.
  FileLink = "<A HREF=""" &  vPath & """>" & title & "</A>"
  FileLink = "<UL>·" & FileLink & "</UL>"
End Function

Sub SearchFolder( fd, s )
  found = False 
  For each f In fd.Files
      pos = InStrRev(f.Path, "." )
      If pos > 0 Then
        ext = Mid(f.Path, pos + 1 )
      Else
        ext = ""
      End If
      If LCase(ext) = "htm" Then

' 显示扩展名字为HTM的文件.
        If SearchFile( f, s, title ) Then
            Response.Write FileLink(f, title)
            count=count+1
            Response.Write cstr(count)
        End If
      End If
  Next

For each sfd In fd.SubFolders
      SearchFolder sfd, s
  Next
End Sub
%>
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=head%></title>
</head>

<body>

<h1>星河影动之无敌文本搜索<%=head%></h1>

<hr>

<form action="search.asp" method="Get">
    <p>请输入想要搜索的内容： <input type="text"
    size="20" name="SearchString" value="<%=SearchString%>"> <input
    type="submit" value="搜索"> </p>
</form>
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fd = fs.GetFolder( Server.MapPath("/") )

' 设置开始搜索的路径.

If SearchString <> "" Then
  Response.Write "<H2>搜索<font color=red>" & SearchString & "</font>结果如下：</H2><P>"
  SearchFolder fd,SearchString
End If
%>
<hr>
</body></html>

[1]

赞 (0)

相关推荐

  • 如何做一个文本搜索？

    <%head = "搜索"SearchString = Request("SearchString")count=0 Function UnMapPath( Path )    UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/") ' 把当前目录的实际路径转换为虚拟路径.End Function Function

  • React-Native做一个文本输入框组件的实现代码

    React-Native做一个文本输入框组件的实现代码

    由于最近一直在做公司的项目,而且比较急.如今项目已经迭代到第三期,可以缓一缓了... 说实话,最近一直再用android做开发,而且时间也不宽裕,react-native有点生疏了. 好了,废话不多说,今天在做登录界面的时候,我发现,登录注册的文本框样式都是一个样的,如果一个一个的写,就会显得有些麻烦了,于是我就简单的封装了一下TextInput这一个组件 上图就是我放到登录界面的效果啦. 代码: import React, { Component } from 'react'; import

  • 如何做一个只搜索本网站的引擎？

    searchfiles.html <html> <head> <title>撼雪喷云之本网搜索引擎</title> </head> <body> <form method="POST" action="cgi-bin/searchfiles.asp"> <table border="0" cellpadding="5" bgcolor=&

  • 如何做一个文本书写器？

    <%function WriteToFile(FileName, Contents, Append)on error resume next if Append = true then  iMode = 8else   iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs.OpenTextFile(FileName, iMode, True)oTe

  • 用python做一个搜索引擎(Pylucene)的实例代码

    用python做一个搜索引擎(Pylucene)的实例代码

    1.什么是搜索引擎? 搜索引擎是"对网络信息资源进行搜集整理并提供信息查询服务的系统,包括信息搜集.信息整理和用户查询三部分".如图1是搜索引擎的一般结构,信息搜集模块从网络采集信息到网络信息库之中(一般使用爬虫):然后信息整理模块对采集的信息进行分词.去停用词.赋权重等操作后建立索引表(一般是倒排索引)构成索引库:最后用户查询模块就可以识别用户的检索需求并提供检索服务啦. 图1 搜索引擎的一般结构 2. 使用python实现一个简单搜索引擎 2.1 问题分析 从图1看,一个完整的搜索

  • Python实战之用tkinter库做一个鼠标模拟点击器

    Python实战之用tkinter库做一个鼠标模拟点击器

    前言 用Python做一个鼠标模拟点击器,可以实现多位置,定时,定次数,定区域随机位置点击,对于一些比较肝的游戏(痒痒鼠之类的),挂机非常有帮助,解放双手;定区域随机点击可以一定程度上防止系统检测出有使用脚本开挂的行为 import tkinter as tk import random import pyautogui as mouse from tkinter.messagebox import * 安装库 首先是今天要用到的几个必要的库:tkinter,random,pyautogui 没

  • 用Python做一个哔站小姐姐词云跳舞视频

    用Python做一个哔站小姐姐词云跳舞视频

    目录 一.前言 二.实现思路 1. 下载视频 2. 获取弹幕内容 3. 从视频中提取图片 4. 利用百度AI进行人像分割 5. 小姐姐跳舞词云生成 6. 合成跳舞视频 7. 视频插入音频 一.前言 B站上的漂亮的小姐姐真的好多好多,利用 you-get 大法下载了一个 B 站上跳舞的小姐姐视频,利用视频中的弹幕来制作一个漂亮小姐姐词云跳舞视频,一起来看看吧. 二.实现思路 1. 下载视频 安装 you-get 库 pip install you-get -i http://pypi.douban

  • 教你用Java Swing做一个定时提醒工具

    教你用Java Swing做一个定时提醒工具

    前言 因为上下班的时候,老是忘记打卡(其实这不是重点,因为可以补卡嘛),重点是下班走的时候总是忘记关空调(谁最后走忘记关空调,罚100...) 我一开始的做法是,在主机上贴个便签,写上关空调三个大字,坐在电脑旁,只要你眼睛稍微一瞥,就是看到.可是依旧是该忘还得忘,那么明显一个便签贴在那,走的时候死活看不到,我有什么办法! 然后我就想做个弹窗提醒,一到下班的点,就弹窗提醒,然后就关空调,下班就关,总不会忘了吧.刚好那两天因为项目需要,我写了个vbs脚本,用vbs启动jar和exe程序这些.就想用v

  • 结合Python网络爬虫做一个今日新闻小程序

    核心代码 requests.get 下载html网页 bs4.BeautifulSoup 分析html内容 from requests import get from bs4 import BeautifulSoup as bs from datetime import datetime as dt def Today(style=1): date = dt.today() if style!=1: return f'{date.month}月{date.day}日' return f'{dat

  • Vue做一个简单的随机点名册

    Vue做一个简单的随机点名册

    目录 布局部分: <div id="app"> <p>{{result}}</p> <button @click="randomName()">{{txt}}</button> </div> Vue部分: <script> let vm = new Vue({ el:'#app', data:{ list:["小一","李二","王三

随机推荐