Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Hvordan scripter man til index server ?

0 views
Skip to first unread message

Crane

unread,
Jul 6, 2001, 4:57:19 AM7/6/01
to
Jeg skal søge i en masse htmlfiler. Jeg har forstået man kan bruge index
server, men er der nogen der har et par script eksempler på en søgning ?

Jens


Jesper Stocholm

unread,
Jul 8, 2001, 7:48:53 AM7/8/01
to
Crane wrote in dk.edb.internet.webdesign.serverside.asp:

> Jeg skal søge i en masse htmlfiler. Jeg har forstået man kan bruge index
> server, men er der nogen der har et par script eksempler på en søgning ?
>

Kig på
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnproasp2/
html/howindexserverworks.asp for en start. Ellers er der en nyhedsgruppe i
microsoft.public.*-hierarkiet. Den hedder
microsoft.public.inetserver.indexserver.

:o)

Jesper


--
Brug Validator service: http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering

Jesper Stocholm

unread,
Jul 9, 2001, 3:48:38 AM7/9/01
to
Crane wrote in dk.edb.internet.webdesign.serverside.asp:

> Jeg skal søge i en masse htmlfiler. Jeg har forstået man kan bruge index
> server, men er der nogen der har et par script eksempler på en søgning ?
>

Hvis du stadig er i tvivl, så kig på denne kode - den kan give dig en idé
om, hvad der kan lade sig gøre.

set con=server.createobject( "adodb.Connection" )
con.Open "provider=msidxs"

search = trim(request.querystring("search"))
'Freetext-search
sql1 = "SELECT Characterization, " &_
" DocTitle, VPATH, Filename, RANK, SIZE, Contents " &_
"FROM SCOPE( ) " &_
"WHERE FREETEXT(Contents, '" & "%" & search & "%" &"') > 0 " &_
"AND Filename NOT LIKE '%.inc%' " &_
"AND VPath NOT LIKE '%_vti%'" &_
"ORDER BY RANK DESC"

' Boolean search
sql2 = "SELECT Characterization, " &_
" DocTitle, VPATH, Filename, RANK, SIZE, Contents " &_
"FROM SCOPE( ) " &_
"WHERE CONTAINS('" & search &"') > 0 AND Filename NOT LIKE '%.inc%' " &_
" AND VPath NOT LIKE '%_vti%'" &_
" ORDER BY RANK DESC"

if request.querystring("bool") = "yes" then
set rs = con.execute(sql2)
else
set rs = con.Execute(sql1)
end if

0 new messages