Javascript:在内部站点中添加搜索功能

Javascript: Adding a search ability in an internal site

本文关键字：添加 搜索 功能 站点 在内部 Javascript      更新时间：2023-09-26

我在公司网络上创建了一个静态网站。它不会暴露在互联网上。

它们是纯HTML - 到目前为止没有CSS或脚本。

我的意思是让它非常简单，因为我受到时间的限制。

但是，显然，需要一种搜索机制。

我在网上找到了谷歌和其他汽车创造者。但据我了解，它们需要设置互联网 Web URL，并且不支持内部站点。

而我的 URL 域的形式是：

http://192.168.4.XXX/something.htm

那么，你知道我可以使用的解决方案吗？我可以使用的免费组件还是JavaScript？

谢谢！

你跑什么来像这样在本地内网上托管网页？

如果您使用的是某种服务器（如 Apache 或 IIS），则可以使用服务器端语言来创建搜索功能。在客户端使用纯Javascript来创建搜索功能是不切实际的。

下面是一个在 Apache 服务器上运行的 PHP 脚本可以做什么的示例 https://stackoverflow.com/a/4090449/4422715 请记住，这是一段非常简单的代码，肯定会有问题，但对于小规模使用，可能值得做这样简单的事情。

编辑：OP表示IIS与ASP。

环顾四周后，我发现了这个 http://www.codeproject.com/Articles/7296/Reading-Files-in-ASP-and-How-to-Search-for-a-parti

您输入要搜索的单词的页面应该是这样的，让我们说"搜索.htm"

<FORM METHOD=POST id=form1 action="searchresult.asp"
                       name=form1 onsubmit="return Check();">
  Enter text to search for:
  <INPUT TYPE=TEXT NAME=TextToSearch>
  <P>
  <INPUT TYPE=SUBMIT VALUE="Begin Search!" id=SUBMIT1 name=SUBMIT1>
</FORM>

那么"搜索结果.asp"页面应该是：

'Search Text
Dim strtextToSearch
strtextToSearch = Request("TextToSearch")
'Now, we want to search all of the files
Dim fso
'Constant to read
Const ForReading = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Specify the folder path to search.
Dim FolderToSearch
FolderToSearch = "D:'temp"
'Proceed if folder exists
if fso.FolderExists(FolderToSearch) then
    Dim objFolder
    Set objFolder = fso.GetFolder(FolderToSearch)
    Dim objFile, objTextStream, strFileContents, bolFileFound
    bolFileFound = False
    Dim FilesCounter
    FilesCounter = 0 'Total files found
    For Each objFile in objFolder.Files
        Set objTextStream = fso.OpenTextFile(objFile.Path,ForReading)
        'Read the content
        strFileContents = objTextStream.ReadAll
        If InStr(1,strFileContents,strtextToSearch,1) then
           Response.Write objFile.Name & "<br>"
           FilesCounter = FilesCounter + 1
        End If
        objTextStream.Close
    Next
    if FilesCounter = 0 then
        Response.Write "Sorry, No matches found."
    else
        Response.Write "Total files found : " & FilesCounter
    end if
    'Destroy the objects
    Set objTextStream = Nothing
    Set objFolder = Nothing
else
    Response.Write "Sorry, invalid folder name"
end if
Set fso = Nothing

以上是直接从链接网站复制粘贴。在运行之前，请查看链接的网站并通读代码!!确保将"文件夹搜索"设置为根文档文件夹。

看起来此代码将仅直接查看您设置为搜索的文件夹中的文件。如果您希望它读取子文件夹等，那么您需要弄清楚如何做到这一点 抱歉，我不是 ASP 专家，您可以将此代码发布在网站的 ASP 部分，并寻求某人使用此脚本进行目录递归的帮助。

相关文章：