søgemaskine hvordan
Hej derude jeg håber der er nogen der kan hjælpe mig. Jeg er igang med at lave en lille søgemaskine. Men jeg kan ikke få den til at fungere. Den skal kunne følgende:Det skal være muligt efter fx baggrundsbilleder, baggrundslyde, sider med formularer eller style typografier
Man skal også kunne søge på ord som findes i enten overskriften eller i teksten på siden.
Man skal kunne angive flere søgeord, ved at vælge og eller Eller.
Når man finder billeder, skal billederne kunne ses i resultatoversigten.
dette starter vi med. de første to punkter skal helst løses. de to næste vil jeg gerne have løst mindst en af.
her er hvad jeg forløbig har skrevet. (hvis du har forslag til hvad der skal stå vil du så ikke skrive en kommentar til den de linier du har tilføjet)
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE> En lille lokal søgemaskine </TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 3">
</HEAD>
<BODY BACKGROUND="bg509.jpg">
<BR>
<CENTER>
<H2><U> Den lille søgemaskine</U></H2><BR><BR>
<H4>
Startside<BR> <INPUT NAME="side" TYPE="text" value="">
<BR><BR>
Søgeord<BR> <INPUT NAME="ord" TYPE="text" value="">
<BR><BR>
Søgeord 2<BR> <INPUT NAME="ord2" TYPE="text" value="">
<BR><BR>
Søg efter<BR>
<SELECT name="valg">
<OPTION value="titel"> Titel
<OPTION value="tekst"> Tekst
<OPTION value="billede"> Billede
</SELECT>
<select name="logisk">
<OPTION value="og"> OG
<OPTION value="eller"> ELLER
</select>
<BR><BR><BR>
<INPUT NAME="Start" TYPE="button" VALUE=" Søg ">
<BR><BR>
<BR><BR>
</H4>
</CENTER>
<SCRIPT LANGUAGE="vbs">
Option Explicit
Dim websider(300)
Dim webside
Dim s_ord, tekst,i
Dim s_ord2
Dim fundne_sider(100), antal_fundne, fuld
Dim resultat
Dim antal_sider
Dim nyside
Sub start_onclick
On Error Resume Next
antal_sider=0
webside = side.value
s_ord = ord.value
s_ord2 = ord2.value
antal_fundne = 0
fuld = False
check_side(webside)
vis_resultat
End Sub
Sub check_side(webside)
Dim n,tst, antal_links
Set nyside = window.open(webside,"nytvindue","left=100, top=400, width=600")
If Err>0 Then
Err=0
Exit Sub
End If
If antal_sider<300 then
antal_sider=antal_sider+1
websider(antal_sider)=webside
Select Case valg.value
Case "titel"
tekst = nyside.document.title
If fundet(s_ord,tekst) Then husk(webside)
Case "tekst"
If logisk.value="og" THEN
If Fundet(s_ord,tekst) AND
Fundet(s_ord2,tekst) THEN husk (webside)
Else
If Fundet(s_ord,tekst) Or
Fundet(s_ord2,tekst) THEN husk (webside)
end if
tekst = nyside.document.body.innertext
If fundet(s_ord,tekst) Then husk(webside)
Case "billede"
For n=0 to nyside.document.images.length-1
If fundet(s_ord,nyside.document.images(n).src) Then husk(webside)
Next
End Select
If Not fuld AND nyside.document.links.length > 0 Then
antal_links=nyside.document.links.length
For n=0 to antal_links-1
Set nyside = window.open(webside,"nytvindue","left=200, top=800, width=600")
check_side(nyside.document.links(n).href)
Next
End If
End If
End Sub
Function fundet(sogeord,tekst)
If InStr(tekst,sogeord)>0 then
fundet=True
Else
fundet=False
End If
End Function
Sub husk(ws)
antal_fundne = antal_fundne+1
If antal_fundne <= 100 Then
fundne_sider(antal_fundne) = ws
Else
fuld = True
End If
End Sub
Sub vis_resultat
Dim side
If antal_fundne=0 Then
Set resultat = window.open("intet.htm")
Else
Set resultat = window.open("resultat.htm")
resultat.document.write "<HTML><BODY>"
For i=1 to antal_sider
side=websider(i)
resultat.document.write side & "<BR>"
Next
For i=1 to antal_fundne
side = fundne_sider(i)
resultat.document.write "<A href=" & side & ">" & side & "</A><BR>"
Next
resultat.document.write "</BODY></HTML>"
resultat.document.close
End If
End Sub
</SCRIPT>
</BODY>
</HTML>
