Søg
Avatar billede eds Nybegynder
02. juli 2003 - 17:54 Der er 5 kommentarer og
1 løsning

Søge maskine der søger på webhotel

Hej jeg mangler en søge maskine der kan søge på mit eget webhotel altså sådan så den går ind og læser alle meta namesne der er på mine forskelige asp php og htm sider og når den har søgt skal den vise alle tingene som den har fundet på en liste under hinanden.
på forhånd tak.
Avatar billede c Nybegynder
02. juli 2003 - 20:18 #1
på www.netcoders.dk kan du finde det ASPscrtip som hedder Home made FileCrawler... den gør det som du har brug for...
Avatar billede eds Nybegynder
02. juli 2003 - 21:00 #2
Jeg kan ikke få den til at du skal den kode jeg laver ikke bare se sådan her ud for eksempel:

<%@ Language=VBScript %>
<html>

<head>
<meta name="eds" content="eds">
<title></title>
</head>

<body>

</body>

</html>
Avatar billede eagleeye Praktikant
03. juli 2003 - 20:08 #3
Her er et eks som lister det som står i:
<title>
<meta name="description" content="..HER..">
<meta name="keywords" content="..HER..">


Du angiver det fulde navn på file altså www.blabla.dk/sti/sti/fil.html
Det rettes i denne linje:
adresse="localhost/eksperten/testtags.asp"



<html>
<body>

<%
adresse="localhost/eksperten/testtags.asp"

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
oServerXMLHTTPRequest.open "GET", "http://" & adresse, False
oServerXMLHTTPRequest.Send
streng= oServerXMLHTTPRequest.ResponseText

ArrTitle1 = Split(Streng, "<title>",3,1)
If UBound(ArrTitle1) > 0 Then
    ArrTitle2 = Split(ArrTitle1(1), "</title>",3,1)
    titel = ArrTitle2(0)
End If
ArrDesc1 = Split(Streng, "<meta name=""description"" content=""",3,1)
If UBound(ArrDesc1) > 0 Then
    ArrDesc2 = Split(ArrDesc1(1), """>",3,1)
    beskrivelse = ArrDesc2(0)
End If
ArrKeys1 = Split(Streng, "<meta name=""keywords"" content=""",3,1)
If UBound(ArrKeys1) > 0 Then
    ArrKeys2 = Split(ArrKeys1(1), """>",3,1)
    keys = server.Htmlencode(replace(ArrKeys2(0), "''", ""))
End If
response.Write"<p>Adresse: "& adresse &"</p>"
response.Write"<p>Titel: "& titel &"</p>"
response.Write"<p>Beskrivelse: "& beskrivelse &"</p>"
response.Write"<p>Søgeord: "& keys &"</p>"

%>
</body>
</html>
Avatar billede c Nybegynder
04. juli 2003 - 06:09 #4
Her er et eks som lister det som står i:
<title>
<meta name="description" content="..HER..">
<meta name="keywords" content="..HER..">


Du angiver det fulde navn på file altså www.blabla.dk/sti/sti/fil.html
Det rettes i denne linje:
adresse="localhost/eksperten/testtags.asp"



<html>
<body>

<%
adresse="localhost/eksperten/testtags.asp"

Set oServerXMLHTTPRequest = Server.CreateObject("Msxml2.ServerXMLHTTP")
oServerXMLHTTPRequest.open "GET", "http://" & adresse, False
oServerXMLHTTPRequest.Send
streng= oServerXMLHTTPRequest.ResponseText

ArrTitle1 = Split(Streng, "<title>",3,1)
If UBound(ArrTitle1) > 0 Then
    ArrTitle2 = Split(ArrTitle1(1), "</title>",3,1)
    titel = ArrTitle2(0)
End If
ArrDesc1 = Split(Streng, "<meta name=""description"" content=""",3,1)
If UBound(ArrDesc1) > 0 Then
    ArrDesc2 = Split(ArrDesc1(1), """>",3,1)
    beskrivelse = ArrDesc2(0)
End If
ArrKeys1 = Split(Streng, "<meta name=""keywords"" content=""",3,1)
If UBound(ArrKeys1) > 0 Then
    ArrKeys2 = Split(ArrKeys1(1), """>",3,1)
    keys = server.Htmlencode(replace(ArrKeys2(0), "''", ""))
End If

ArrKeys1 = Split(Streng, "<meta name=""eds"" content=""",3,1)
If UBound(ArrKeys1) > 0 Then
    ArrKeys2 = Split(ArrKeys1(1), """>",3,1)
    eds = server.Htmlencode(replace(ArrKeys2(0), "''", ""))
End If

response.Write"<p>Adresse: "& adresse &"</p>"
response.Write"<p>Titel: "& titel &"</p>"
response.Write"<p>Beskrivelse: "& beskrivelse &"</p>"
response.Write"<p>Søgeord: "& keys &"</p>"
response.Write"<p>Eds: "& eds &"</p>"

%>
</body>
</html>

Jeg vilige sige at jeg mener at det er det samme som FileCrawleren gør...,
Dog har den bare mulighed for at løbe mange mapper igennem, uden at du skal ændre noget for hver fil...

du finder crawleren på: http://www.asp.dk/sources.asp?mode=view_source&tech_id=1&id=486

mvh
Christian
Avatar billede eds Nybegynder
04. juli 2003 - 13:33 #5
ehm... den der sti skal det være til den der crawler.
Avatar billede eds Nybegynder
17. oktober 2003 - 17:31 #6
Nå jeg kan ikke få det til at virke...
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
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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 går 17:00 Film Server Af dcedata1977 i Andet software
I går 12:56 Mistænkelige mails! Af ErikHg i E-mail
12/0914:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
12/0913:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
White papers
Flere white papers »