Fritekst-søgning i alle html-sider ?

Ja, flere point ;o)

Jeg er ikke så meget inde i betydningen af point-systemet, men hva\' m\' 100 ?

Jeg vil lave det for 300, men hvis du venter lidt, så kan det være der er en som er \"billigere\"
;o)

//Claus

Du kan jo også downloade en:
http://www.freeperlcode.com/guide/Search/Site/
http://www.activeserverpages.dk/download/default.asp?mode=kategori&id=5

hvis der kører Indexing Service på serveren kan du lade den indexerede alle dine html dokumenter og så lave en søgning i det katalog med ASP

>>nordclc<<
Tak for links - men jeg foretrækker et løsningsforslag fra dig -

og hvad angår de 300 point og din kommentar - så lyder det som om, at jeg ikke kan uddele \"ubegrænset\" antal point ! ?

Men for min skyld får du gerne 300 point ! fortæl mig blot hvordan !

Tyv stjålet, Men er det ngoet i den stil ?

Side 1:

<FORM METHOD=get ACTION=\".asp\">
<INPUT TYPE=TEXT NAME=SearchText>
<br>
<INPUT TYPE=SUBMIT VALUE=\"Begin Search !\"></FORM>


Side 2 (resultater):
<B>Search Results for: <%=Request(\"SearchText\")%></B><BR>

<%
Const fsoForReading = 1

Dim strSearchText
strSearchText = Request(\"SearchText\")

\'Now, we want to search all of the files
Dim objFSO
Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")


Dim objFolder
set objfolder = objFSO.getfolder(server.Mappath(\"/ditblibliotekher/\"))

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

For Each objFile in objFolder.Files
  If Response.IsClientConnected then
    Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

    strFileContents = objTextStream.ReadAll

    If InStr(1,strFileContents,strSearchText,1) then
      Response.Write \"<LI><A HREF=\"\"/ditblibliotekher/\" & objFile.Name & _
                      \"\"\">\" & objFile.Name & \"</A><BR>\"

      bolFileFound = True
    End If

    objTextStream.Close
  End If
Next

if Not bolFileFound then Response.Write \"<br><br><h3>No matches found...</h3>\"

Set objTextStream = nothing
Set objFolder = nothing
Set objFSO = nothing
%>

Laver i hvert fald en fri tekstsøgning i et bestemt bibliotek. Medtager også underbiblioteker. Resultaterne kan du jo printe ud som du har lyst til.

>>phineas phreak<<
TAK  !
og det virker !!!