上一篇
下一篇
無數據庫實現站內靜態網頁搜索
作者:tank 日期:2004-12-10
穩萊
| 無數據庫實現站內靜態網頁搜索 |
| <% '使用說明：服務器必須支持fso 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 fo.Close SearchFile = InStr(1, content, S, vbTextCompare) > 0 If SearchFile Then pos1 = InStr(1, content, "<TITLE>", vbTextCompare) pos2 = InStr(1, content, "</TITLE>", vbTextCompare) title = "" If pos1 > 0 And pos2 > 0 Then 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><br>" 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 If SearchFile( f, s, title ) Then count=count+1 Response.Write count&"、"&FileLink(f, title) '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 bgcolor="#FFFFFF"> <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("/yanke") ) '設置開始搜索的路徑！ If SearchString <> "" Then Response.Write "<H2>搜索<font color=red>" & SearchString & "</font>結果如下：</H2><P>" SearchFolder fd,SearchString End If %> <hr> </body> </html> |
給當前日誌評分：
正在讀取評分資料...
文章來自: 
引用通告: 
Tags: 評論: 0 | 引用: 0 | 查看次數: -
發表評論