søgning på side

Hvad mener du med at formen skal søge dokumenter "link" ?

feks ligesom www.bjtrading.dk <-- deres søge function

mener du den skal søge html sider igennem for dit søgeord og paste link til siden hvis dit søgeord findes på siden ? ... hvis det er tilfældet så kan du bruge nedenstående kode:


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
%>


BEMÆRK ! at objFSO.getfolder(server.Mappath(\"/ditblibliotekher/\")) angiver det bibliotek dine filer du vil søge igennem ligger i.

mægtig fix løsning phreak :-)