Søg
Avatar billede kennethlassen Nybegynder
04. april 2001 - 16:53 Der er 10 kommentarer og
1 løsning

Problemer med søgefunk.

<HTML>
<BODY background=\"..\\..\\tapetbg.gif\">
<%
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 %>
Her skrives en tekst til de fundne html-sider
<A HREF=\"<%=file.name%>\"><%=file.name%></A>
<%    end if
    next
set foldercollection = nothing
set fso = nothing
set dir = nothing

else
%>
Her skrives en tekst til indtastningsfeltet<br></br>
<FORM ACTION=\"search.asp\" METHOD=\"GET\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Søg\">
</FORM>
<%end if%>
</BODY>
</HTML>

OBS: Filerne ligger i samme biblotek. Fundne dokumenter skal vises i samme vindue (frame) når der trykkes på link´ne.
Har lige nogle spørgsmål hertil:

1) Hvad skal indsættes i scriptet for at give en fejlmeddelelse, hvis søgningen ikke gav resultat eller der ikke er indtastet noget?

2) Når søgningen giver resultat vises en eller flere links. Men linkteksten ser fx. sådan ud: \"Sommerferie 1997.html\". Hvad indsættes i scriptet for at der kun skrives \"Sommerferie 1997\"?

3) Hvordan sættes fokus på tekstfeltet når siden loades?

4) I samme biblotek som filerne, ligger også denne search.asp og et gif-billede. Hvordan undgåes det at der kan søges på disse, hvis man fx. bare indtaster et \"e\"??

5) Slutteligt, søgefunk. skelner mellem store og små bogstaver - hvordan forhindres det?

På forhånd tak!

/Lasse
Avatar billede netsrac Praktikant
04. april 2001 - 16:57 #1
1)

<HTML>
<BODY background=\"..\\..\\tapetbg.gif\">
<%
if request.querystring(\"action\") = \"go\" then
if request.querystring(\"search\") = \"\" then %>
Der er ikke indtastet noget søgeord.
<%else
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
    nogetfundet = \"1\" %>
Her skrives en tekst til de fundne html-sider
<A HREF=\"<%=file.name%>\"><%=file.name%></A>
<%    end if
    next
if nogetfundet <> \"1\" then %>
Der blev ikke fundet noget.
<%end if
set foldercollection = nothing
set fso = nothing
set dir = nothing
end if
else
%>
Her skrives en tekst til indtastningsfeltet<br></br>
<FORM ACTION=\"search.asp\" METHOD=\"GET\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Søg\">
</FORM>
<%end if%>
</BODY>
</HTML>

Avatar billede kennethlassen Nybegynder
04. april 2001 - 16:59 #2
Takker! Kan du klare flere af dem?
Avatar billede kennethlassen Nybegynder
04. april 2001 - 17:00 #3
Det kunne være lækkert, hvis du gad...
Avatar billede netsrac Praktikant
04. april 2001 - 17:01 #4
1 + 2:

<HTML>
<BODY background=\"..\\..\\tapetbg.gif\">
<%
if request.querystring(\"action\") = \"go\" then
if request.querystring(\"search\") = \"\" then %>
Der er ikke indtastet noget søgeord.
<%else
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
    nogetfundet = \"1\"
    position = instr(file.name, \".\")
    navn = left(file.name, (1-position))%>
Her skrives en tekst til de fundne html-sider
<A HREF=\"<%=file.name%>\"><%=navn%></A>
<%    end if
    next
if nogetfundet <> \"1\" then %>
Der blev ikke fundet noget.
<%end if
set foldercollection = nothing
set fso = nothing
set dir = nothing
end if
else
%>
Her skrives en tekst til indtastningsfeltet<br></br>
<FORM ACTION=\"search.asp\" METHOD=\"GET\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Søg\">
</FORM>
<%end if%>
</BODY>
</HTML>
Avatar billede kennethlassen Nybegynder
04. april 2001 - 17:01 #5
Specielt 2´eren og 5´eren
Avatar billede kennethlassen Nybegynder
04. april 2001 - 17:03 #6
Der var du hurtig. Mange tak :-) Har du lyst til at fortsætte?
Avatar billede netsrac Praktikant
04. april 2001 - 17:04 #7
1 + 2 + 3

<HTML>

<%
if request.querystring(\"action\") = \"go\" then %>
<BODY background=\"..\\..\\tapetbg.gif\"> 
<% if request.querystring(\"search\") = \"\" then %>
Der er ikke indtastet noget søgeord.
<%else
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
    nogetfundet = \"1\"
    position = instr(file.name, \".\")
    navn = left(file.name, (1-position))%>
Her skrives en tekst til de fundne html-sider
<A HREF=\"<%=file.name%>\"><%=navn%></A>
<%    end if
    next
if nogetfundet <> \"1\" then %>
Der blev ikke fundet noget.
<%end if
set foldercollection = nothing
set fso = nothing
set dir = nothing
end if
else
%>
<BODY background=\"..\\..\\tapetbg.gif\" ONLOAD=\"doument.theform.search.focus();\">
Her skrives en tekst til indtastningsfeltet<br></br>
<FORM ACTION=\"search.asp\" METHOD=\"GET\" NAME=\"theform\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Søg\">
</FORM>
<%end if%>
</BODY>
</HTML>
Avatar billede kennethlassen Nybegynder
04. april 2001 - 17:06 #8
Hvor er det godt
Avatar billede netsrac Praktikant
04. april 2001 - 17:06 #9
1 + 2 + 3 + 4:

<HTML>

<%
if request.querystring(\"action\") = \"go\" then %>
<BODY background=\"..\\..\\tapetbg.gif\"> 
<% if request.querystring(\"search\") = \"\" then %>
Der er ikke indtastet noget søgeord.
<%else
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 file.name <> \"search.asp\" then
    if instr(file.name, search) then
    nogetfundet = \"1\"
    position = instr(file.name, \".\")
    navn = left(file.name, (1-position))%>
Her skrives en tekst til de fundne html-sider
<A HREF=\"<%=file.name%>\"><%=navn%></A>
<%    end if
    end if
    next
if nogetfundet <> \"1\" then %>
Der blev ikke fundet noget.
<%end if
set foldercollection = nothing
set fso = nothing
set dir = nothing
end if
else
%>
<BODY background=\"..\\..\\tapetbg.gif\" ONLOAD=\"doument.theform.search.focus();\">
Her skrives en tekst til indtastningsfeltet<br></br>
<FORM ACTION=\"search.asp\" METHOD=\"GET\" NAME=\"theform\">
<INPUT TYPE=\"hidden\" NAME=\"action\" VALUE=\"go\">
<INPUT TYPE=\"text\" NAME=\"search\" NAME=\"search\">
<INPUT TYPE=\"submit\" VALUE=\"Søg\">
</FORM>
<%end if%>
</BODY>
</HTML>


5 er desværre ikke muligt, med denne løsning.
Avatar billede kennethlassen Nybegynder
04. april 2001 - 17:09 #10
Det går nok - jeg er meget taknemmelig!! Og den er lige til at uploade og bruge?
Avatar billede netsrac Praktikant
04. april 2001 - 17:15 #11
Jep den sidste er lige til at uploade.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 13:35 Bruger på Win11 Af lurup i Browsere
07/1022:52 Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
White papers
Flere white papers »