Simpel søgemekanisme

Her er lidt der kan bygges på:

    search = request.querystring(\"search\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set dir = fso.GetFolder(server.mappath(\".\"))

    Set foldercollection = dir.Files
    For Each file in foldercollection
   
    if instr(file.name, search) then
    response.write(file.name)
    end if
    next

Ved ikke lige hvad det er for et du tænker på, men her er et:

http://www.netcoders.dk/sources.asp?mode=view_source&id=905

Og hvad skulle der bygges på?
Tænker du på tekstboks og den slags?

Det skal lægges i en asp fil i biblioteket hvor de andre filer ligger. Så kalder du f.eks. siden med search.asp?search=fil

hvor fil er søgeordet.

Jeg har brug for en komplet ASP-kode, da det ikke lige er min stærke side.
HTML-kodningen kan jeg selv klare.

Den jeg har skrevet er en komplet asp kode, prøv den.

Skal jeg kalde navngive selve siden som \"search.asp?search=fil\" eller...?

En lille udvidelse.

<%
search = request.querystring(\"search\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set dir = fso.GetFolder(server.mappath(\".\"))

    Set foldercollection = dir.Files
    For Each file in foldercollection
   
    if instr(file.name, search) then %>
<A HREF=\"<%=file.name%>\"><%=file.name%></A>
<%    end if
    next %>

Siden skal bare hedde search.asp

Når du kalder den op i browseren sætter du ?search=sogeord på.

<%
search = request.querystring(\"search\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set dir = fso.GetFolder(server.mappath(\".\"))

    Set foldercollection = dir.Files
    For Each file in foldercollection
   
    if instr(file.name, search) then %>
<A HREF=\"<%=file.name%>\"><%=file.name%></A>
<%    end if
    next
set foldercollection = nothing
set fso = nothing
set dir = nothing
%>

Og det script er også med tekstboks og det hele?
Og hvad hvis der er flere valgmuligheder?

Det sidste jeg har skrevet udskriver links til alle filer hvor hele eller dele af søgeordet indgår.

Med tekstboks:

<HTML>
<BODY>
<%
if request.querystring(\"action\") = \"go\" then
search = request.querystring(\"search\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set dir = fso.GetFolder(server.mappath(\".\"))

    Set foldercollection = dir.Files
    For Each file in foldercollection
   
    if instr(file.name, search) then %>
<A HREF=\"<%=file.name%>\"><%=file.name%></A>
<%    end if
    next
set foldercollection = nothing
set fso = nothing
set dir = nothing
else
%>
<FORM ACTION=\"search.asp\" METHOD=\"GET\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Sog\">
</FORM>
<%end if%>
</BODY>
</HTML>

Det prøver jeg men hvad siger du, der skal stå der hvor du har skrevet sogeord. Er sogeord navnet på indtastningen?
Jeg gemmer filen under search.asp og når jeg kalder den fra min menu sætter jeg den til at kalde \"search.asp?=sogeord\" ik?

Bare brug den sidste jeg har lagt. Så kalder du den bare med search.asp også er det hele på plads :-)

Det lyder sq godt!
Jeg undrede mig bare istarten lidt over, at scriptet ikke fyldte mere - mit JS fylder jo over 2 sider :-)

Tak for hjælpen!!! :-)

Så lidt :-)