最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 搜索文件或文件夹
时间:2022-07-02 23:12:42 编辑:袖梨 来源:一聚教程网
此搜索工具可以让您将搜寻字词或词组在您的网站,以及由此产生的网页将显示您的访客网页的标题和一个指向它的链接。
你只需要包括波纹管的形式在您的网页:
html页面.
和您将需要建立一个档案,内容表中的波纹命名searchfiles.asp在相应的目录。 Active Server Pages中必须具备的服务器。指示都在底部。
<%
SearchTerm = request.form("term")
Novalid=" a b c d e f g h i j k l m n o p q r s t u v w x y z yes no and more"
NovalidResponse ="Go back and try again. Your search term is very common"
if instr(SearchTerm,Novalid)=0 then
Response. Write ("
Search results
FolderName= "FolderName"
ShowList()
else
Response.Write NovalidResponse
End if
SearchResponse=""
%>
<%
Sub ShowList()
FolderToCheck = server.mappath("") &"/" & FolderName & "/"
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(FolderToCheck)
Set fc = f.Files
For Each f1 in fc
Wfile = f1.name
if right(Wfile, 5)=".html" OR right(Wfile, 4)=".htm" then
Wfile2 = FolderToCheck & Wfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Wfile2)
ct = a.ReadAll
a.close
ct2=lcase(ct)
SearchTerm2 = lcase(SearchTerm)
if instr(ct2,SearchTerm2)>0 then
if instr(ct,"")>0 then
longitud=instr(ct,"")
longitud=longitud -1
ct=left(ct,longitud)
longitud2=len(ct)
longitud=instr(ct,"
longitud=longitud2 -longitud -6
ct=right(ct,longitud)
else
if instr(ct,"
longitud=instr(ct,"")
longitud=longitud -1
ct=left(ct,longitud)
longitud2=len(ct)
longitud=instr(ct,"
longitud=longitud2 -longitud -6
ct=right(ct,longitud)
end if
end if
SearchResponse= SearchResponse +"
longitud=0
ct=""
end if
end if
Next
Response.Write ("
Response.Write ("
Search Results |
Response.Write ("
The specified term or phrase was not found |
Response.Write ("
End Sub
%>
“搜索结果”的文本将显示在上方的搜索结果页。
“文件夹”是您想要的目录搜索。只有“ 。热媒”和“ 。的HTML ”的文件在此目录将搜查。子目录不要搜索。如果你想要搜寻您的顶级目录,设置文件夹= “ ” 。此脚本只是在最有用的目录只。我不建议检查50多个文件(尝试友好与您的服务器! )
此脚本将显示为响应标题清单的网页所要求的任期词组。
相关文章
- 碧蓝航线弗里茨鲁梅l2d皮肤彩蛋有哪些 12-23
- 明日方舟12月19日常驻双UP卡池要不要抽 12-23
- FGO国服圣诞2024高难攻略 12-23
- FGO国服2025年免费从者一览 12-23
- 无限暖暖大钟奇想星获取方法分享 12-23
- 无限暖暖蚯蚓洞奇想星获取方法分享 12-23