CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede kjeldsen Nybegynder
27. november 1999 - 10:30 Der er 7 kommentarer og
1 løsning

Mere søgemaskine

Er det ikke muligt at lave en søgemaskine/søgefunktion der kun køre på ens egen url, forstået sådan at hele søgefunktionen ligger i et script i en af filerne på ens eget site og ikke involverer andre severe. Og kan man samtidig begrænse søgningen til kun at omfatte nogle bestemte sider på sitet, f.eks. en arrangements-kalender ?
Avatar billede dkkarpen Nybegynder
27. november 1999 - 13:27 #1
Ja du kan jo bygge din kalender op omkring en database. Den kan du jø så søge i med din sql streng.
Avatar billede dkkarpen Nybegynder
27. november 1999 - 13:28 #2
jø=jo
Avatar billede kjeldsen Nybegynder
27. november 1999 - 14:09 #3
Dkkarpen-> Se det oprindelige spørgsmål, svar og kommentarer her:

DHTML/HTML, besvarede spørgsmål, "Mere søgemaskine"

Morten :~)
Avatar billede s Nybegynder
27. november 1999 - 14:12 #4
Jeg har et script til dette. Det skal bare lige rettes lidt. Jeg vender tilbage.
Avatar billede s Nybegynder
27. november 1999 - 14:35 #5
Prøv noget i den her retning:


<html>
<body>
<%

'Soeges der i filer eller i mapper (Filer:Mapper)
Soegi = "Filer"
'Hvis der soeges i mapper skal undermapper saa medtages (True:False)
Medtagundermapper = False
'Stien/stierne paa de filer eller de mapper der skal soeges i
thepath = array("/soeg.asp", "/prove.html")
'Ordet der soeges efter (kan skiftes ud med: soegeord = request.form("Soegeord")
'hvis man soeger ud fra en form)
soegeord = "html"
'Hvis der soeges i mapper kan det ikke betale sig at soege i f.eks. *.gif eller *.bmp - filer. Angiv hvilke typer filer der skal soeges i
filetypes = array("asp", "html")

'Dette script er lavet af: Svend Hoestgaard Bang Henriksen, smbang@mail1.stofanet.dk

Set fso = Server.CreateObject("Scripting.FileSystemObject")

if Soegi = "Mapper" then

for b = 0 to ubound(thepath)
path = Server.MapPath(thepath(b))

Set folder = fso.getfolder(path)
Set subs = folder.subfolders
Set files = folder.files

for each x in files
a = split(x.path, ".")
if ubound(a) > 0 then
for e = 0 to ubound(filetypes)
if filetypes(e) = a(ubound(a)) then ftypes = True
next
if ftypes = True then
response.write x.path
if not x.size = 0 then
checkfiles(x.path)
end if
end if
end if
next

if Medtagundermapper = True then

for each x in subs
Call subf(x.path)
next

end if

next

else

for b = 0 to ubound(thepath)
path = Server.MapPath(thepath(b))

Call checkfiles(path)

next

end if

sub subf(folderpath)
for each x in subs
set files = x.files
for each i in files
set f = fso.getfile(i.path)
a = split(i.path, ".")
if ubound(a) > 0 then
if a(ubound(a)) = filetypes then
if not i.size = 0 then
Call checkfiles(i.path)
end if
end if
end if
next
Set subs = x.subfolders
for each q in subs
Call subf(q.path)
next
next
end sub


sub checkfiles(filepath)
set file = fso.opentextfile(filepath, 1, True)
txt = file.readall
if instr(txt, soegeord) > 0 then
response.write "S&oslash;geord fundet i: " & filepath & "<br>"
end if
end sub

%>
</body>
</html>
Avatar billede kjeldsen Nybegynder
27. november 1999 - 15:19 #6
S-> o.k. så bliver du nødt til at fortælle mig hvad jeg stiller op med scriptet og hvordan jeg definerer hvilke sider der må søges på.

Check evt. http://www.cirkusbygningen.dk og vælg: "Det sker i Cirkusbygningen".
Der på velkomstsiden til kalenderen skal der være et søgefelt og ligeledes på alle kalendersiderne. Det er samtidig de sider man må kunne søge på og ikke andre.
Avatar billede s Nybegynder
27. november 1999 - 15:22 #7
For det første skal du for at kunne bruge scriptet kalde det for .asp .
Hvordan du definere de forskellige ting er vist beskrevet i de første linier af scriptet.
Jeg har desværre ikke så god tid så jeg har tid til at hjælpe dig med at sætte det op på dine sider, hvis vi kun snakker points.
Avatar billede kjeldsen Nybegynder
27. november 1999 - 15:26 #8
S-> Fint nok, det er da ren besked, jeg finder nok ud af det på en eller anden måde. Tak for hjælpen.
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
Lost focus Af bsn i ASP 0 07/11/202415:34 -
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
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
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:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27 renteberegning Af Pil i Excel
I går 22:30 Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Læs mere »
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Styrk compliance, sikkerhed og overblik med ét hug
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »