|
|
||||||||||||
|
|
Sitenizi Dizin Hizmeti (Indexing Service) Arasın İnternet sitenizi aramak için dosyaları birer birer incelemek yerine Windows ile hazır gelen Dizin Hizmetini (Indexing Service) kullanın. Sadece internet sayfalarında değil, Office belgelerinde de, NT 4.0 ve Windows 2000 ile gelen bu hizmet birimi yardımıyla ADO'yu kullanarak arama yaptırabilirsiniz.
Indexing Service web sitelerinde ve
bilgisayarlarda arama ve sorgulama yapmak için tasarlanmış güçlü bir araç. Bu
servise ADO ile bir bağlantı açıp kataloglar içinde arama yaptırılabiliyor. Bu,
ADO’nun standart veritabanı dışında olan kataloglarda da arama yapabildiği
anlamına geliyor.
dim cnindex
set cnindex=createobject("adodb.connection")
cnindex.open "provider=msidxs; data source=web"
dim rsindex
set rsindex=createobject("adodb.recordset")
rsindex.open "SELECT rank, doctitle, vpath, filename FROM SCOPE() " & _
"WHERE FREETEXT('" & kriter & "') > 0" & _
"ORDER BY Rank DESC", cnindex,1,3
dim i, toplam
toplam=0
do while not rsindex.eof
toplam=toplam+1
response.write "Sıra=" & toplam & ""
for i=0 to rsindex.fields.count-1
response.write rsindex.fields(i).name & "= " & rsindex(i) & ""
next
response.write ""
rsindex.movenext
loop
rsindex.close
cnindex.close
set rsindex=nothing
set cnindex=nothing
Ek: Düzeltilmiş ciquery.htm dosyası.
(Winnt\Help\ciquery.htm) Gelecek ay: Serkan ŞAHİNOĞLU |