Kolla om indexeringstjänsten fungerar

10 svar · 351 visningar · startad av Addeladde 8 apr. 2003

AddeladdeMedlem sedan jan. 20013 406 inlägg

Frågan8 apr. 2003 13:25#1

Hej

Jag gör en funktion för att kolla om servern är rätt inställd för en del funktioner som webbsidan måste kunna ha.

Jag har lyckats med allt utom att kolla om indexeringsmappen finns.

Private Sub TestIndex()

	On Error Resume Next

	Set oQuery = Server.CreateObject("IXSSO.Query")
	Set util = Server.Createobject("ixsso.Util")
	oQuery.Catalog = sokkatalog
	set oQuery = nothing
	set util = nothing
	
	If Not Err.Number = 0 Then
		response.write "<span class=""normal11rod"">-&nbsp;Det gick inte att anropa Microsoft Indexeringstjänst. Objektet är inte installerat eller aktiverat.<br></span>"
	Else
		response.write "<span class=""normal11gron"">-&nbsp;Kommunikationen med Indexeringstjänsten lyckades.<br></span>"
	End If
End Sub

Även om sokkatalogen inte finns specificerat i indexeringstjänsten så ger den okej. Den ger endast fel om hela indexeringstjänsten är avaktiverad.

Hur gör jag för att kolla katalogen eller filförteckningen som det heter?

AddeladdeMedlem sedan jan. 20013 406 inlägg

8 apr. 2003 13:54#2

jag körde en liten testfråga och då fick jag det att fungera.

Private Sub TestIndex()

	On Error Resume Next

	Set oQuery = Server.CreateObject("IXSSO.Query")
	Set util = Server.Createobject("ixsso.Util")
	oQuery.Catalog = filforteckning
	oQuery.Query = "@all index.asp"
	oQuery.MaxRecords = 1
	oQuery.Columns = "FileName"
	Set oRS = oQuery.CreateRecordSet("nonsequential")
	set oQuery = nothing
	set util = nothing
	Set oRS = nothing
	
	If Not Err.Number = 0 Then
		response.write "<span class=""normal11rod"">-&nbsp;Det gick inte att anropa Microsoft Indexeringstjänst. Tjänsten är inte installerat eller aktiverad.<br></span>"
	Else
		response.write "<span class=""normal11gron"">-&nbsp;Kommunikationen med Indexeringstjänsten lyckades.<br></span>"
	End If
End Sub

m_soderlundMedlem sedan sep. 20026 425 inlägg

8 apr. 2003 14:01#3

Nu är jag nyfiken.. Vad indexerar du och varför? Är tjänsten gratis? Jag har aldrig hört talas om IXSSO i alla fall.. Berätta!

AddeladdeMedlem sedan jan. 20013 406 inlägg

8 apr. 2003 14:07#4

Det är Micrsoft indexeringstjänst.
Den indexerar html, txt, doc, ppt m.m. och även pdf om man installerar ett tilläggg som är gratis.

Indexeringstjänsten används för att kunna göra sökningar på webbsidan på alla dokument som finns inom den katalog man specificerat. Sedan kan man presentera sökningen med sökväg och en liten beskrivning av dokumentet.

m_soderlundMedlem sedan sep. 20026 425 inlägg

8 apr. 2003 14:13#5

Har du en adress där man kan testa? Nu blev jag intresserad på allvar, det här verkar ju bra!
Har du någon bra artikel? Jag sökte på Google men hittade ingen "riktig" artikel..

AddeladdeMedlem sedan jan. 20013 406 inlägg

8 apr. 2003 14:24#6

Jag förklarar lite snabbt. Gå in på kontrollpanellen > administrationsverktyg > datorhantering > tjänster > indexeringstjänsten

Skapa en filförteckning för din webbsideskatalog och starta sedan tjänsten.

Sedan prövar du min kod. Det kan dock ta ett tag för Indexeringstjänsten att indexera alla dokument. Du kan se hur mycket som är indexerat i i datorhantering > tjänster > indexeringstjänsten.

Här är ett utomordentligt kodexempel under (jag fick dela upp det)

<%
						Dim sSearchString
						Dim oQuery
						Dim virtuellsokvag
						Dim arrSokord
						Dim beskrivning
						
						pg = TRIM( Request( ""pg"" ) )
						IF pg = """" THEN pg = 1 
						
						sSearchString = Request(""sokord"")
						
						SEARCH_CATALOG = [b]Ändra till din filförtekning web är standard[/b]
						
						on error resume next
						Set oQuery = Server.CreateObject(""IXSSO.Query"")
						Set util = Server.Createobject(""ixsso.Util"")
						oQuery.Catalog = SEARCH_CATALOG
						oQuery.Query = ""@all "" & sSearchString & "" AND NOT #path *_* AND NOT #path *bilder* AND NOT #filename *.class AND NOT #filename *.mdb AND NOT #filename *.asa AND NOT #filename *.inc""
						oQuery.MaxRecords = 50
						oQuery.SortBy = ""rank[d]""
						oQuery.Columns = ""DocAuthor, Vpath, doctitle, FileName, Path, Write, Size, Rank, Create, Characterization, DocCategory""
						oQuery.LocaleID = util.ISOToLocaleID(""sv"")
						Set oRS = oQuery.CreateRecordSet(""nonsequential"")
						oRS.Pagesize = 10
						oRS.AbsolutePage = pg
						
						Response.write ""<form method=""""post"""" action=""""http://""&TRIM(request.servervariables(""HTTP_HOST"") & request.servervariables(""SCRIPT_NAME"")) &"""""">""&_ 
						""<span class=""""mallFet"""">Sök efter:</span><br>"" &_ 
						""<input class=""""mallFalt"""" size=""""30"""" type=""""text"""" name=""""sokord"""">&nbsp;<input type=""""submit"""" value=""""Sök"""" class=""""mallKnapp""""></form>""
						
						
						
						Response.write ""<span class=""""mallFet"""">Sökresultat</span><hr size=1 noshade>""

AddeladdeMedlem sedan jan. 20013 406 inlägg

8 apr. 2003 14:26#7

IF oRS.EOF THEN
						  Response.Write ""<span class=""""vanligtext"""">Din sökning - </span><span class=""""mallFet"""">"" & sSearchString & ""</span><span class=""""vanligtext""""> - matchade inte något dokument.</span><br><br>"" &_
						  ""<span class=""""mallFet"""">Tips:</span><br>"" &_
						  ""<span class=""""vanligtext"""">- Kontrollera att alla ord är rättstavade.<br>"" &_
						  ""- Försök med andra sökord.<br>"" &_
						  ""- Försök med mer allmänna sökord.<br>"" &_
						  ""- Försök med färre sökord.""
						Else
						
						Response.write ""<span class=""""vanligtext"""">Du sökte efter:</span><span class=""""vanligtextFarg""""> ""& sSearchString&""</span>"" 
						IF  NOT oRS.recordcount > 50 THEN
						  Response.write ""<br><span class=""""vanligtext"""">Din sökning genererade: ""& oRS.recordcount  &"" träffar.</span>""
						ELSE
						  Response.write ""<br><span class=""""vanligtext"""">Eftersom din sökning genrerade mer än 50 träffar så har vi begränsat din sökning till 50 träffar.</span>""
						END IF
						
						'Vilka träffar som visas
						Dim startTraff, slutTraff
						startTraff = 1
						Sluttraff = oRS.Pagesize
						IF pg <> 1 THEN
						  slutTraff = sluttraff * pg
						  startTraff = slutTraff - oRS.Pagesize +1
						END IF
						IF pg = """"&(FIX((oRS.recordcount / oRS.Pagesize))+1) &"""" OR oRS.recordcount < oRS.Pagesize THEN
						  slutTraff = oRS.recordcount 
						END IF
						
						Response.write ""<br><br>"" &_ 
						""<table width=""""100%"""" cellspacing=""""0"""" cellpadding=""""0"""">"" &_ 
						  ""<tr>"" &_ 
							""<td bgcolor=""""#E8E8E8"""" align=""""right"""" class=""""vanligtext"""">Visar träffar: ""&startTraff&"" - ""&slutTraff&""</td>"" &_ 
						  ""</tr>"" &_
						""</table><br>"" &vbcrlf &_ 
						
						""<table width=""""100%"""" cellspacing=""""0"""" cellpadding=""""0"""">"" 
						  While Not oRS.EOF   AND rowCount < oRS.PageSize
							rowCount = rowCount + 1
							
						   response.write ""<tr>"" &_ 
						   ""<td valign=""""top"""" width=""""25"""" class=""""vanligtext"""">"" 
						   typ = lcase(right(oRS(""FileName""),3))
									select case typ
										case ""pdf""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_pdf.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""ppt"",""pps""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_powerpoint.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""psd"",""eps""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_psd.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""doc""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_word.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""xls""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_excel.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""fla"",""swf""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_flash.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""wav"",""wma"",""mp3"",""mp2"",""avi"",""aif"",""mov"",""mp1"",""mpa"",""peg"",""mpg"","".ra""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_ljud.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""zip""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_zip.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""exe"",""bat""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_exe.gif' width='16' height='16' alt='' border='0' align='left'>"")	
										case ""css""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_css.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""gif"",""png"",""bmp""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_gif.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""jpg""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_jpg.gif' width='16' height='16' alt='' border='0' align='left'>"")				
										case ""mdb""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_access.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""htm"",""tml"", ""asp"",""asa"",""xml"",""hta"",""htc"",""stm"","".js"",""xsd"",""xsl"",""slt"",""spx"",""jsp"",""jst"",""scx"",""cfm"",""fml"",""php"",""hp3"",""hp4""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_html.gif' width='16' height='16' alt='' border='0' align='left'>"")
										case ""txt"",""rtf""
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_text.gif' width='16' height='16' alt='' border='0' align='left'>"")			 
										case else
											response.write(""<img src='""&application(""httpAdress"")&""systembilder/filhanterare/typ_unknown.gif' width='16' height='16' alt='' border='0' align='left'>"")			 
									end select
						  response.write ""</td><td valign=""""top"""">""
								virtuellsokvag = application(""httpAdress"") & replace(replace( lcase(oRS(""Path"") ), lcase(application(""driver""))&lcase(application(""rootFolder""))&""\"", """"), ""\"", ""/"")
							IF oRS(""doctitle"") <> """" THEN 
							  IF len(oRS(""doctitle"") ) > 70 THEN 
								response.write ""<a class=""""soklank"""" href=""""""& virtuellsokvag &"""""">""&TRIM(left(oRS(""doctitle""),70))&""...</a><br>""
							  ELSE 
								response.write ""<a  class=""""soklank"""" href=""""""& virtuellsokvag &"""""">""&oRS(""doctitle"") &""</a><br>""
							  END IF 
							ELSE 
							  Response.write ""<a  class=""""soklank"""" href=""""""& virtuellsokvag &"""""">""&oRS(""FileName"") &""</a><br>""
							END IF
							
							beskrivning = TRIM(util.TruncateToWhitespace(oRS(""Characterization""), 250))
							
							astrWords = Split(replace(replace(sSearchString, """""""", """"), ""+"", """"), "" "")
							
							FOR i2 = 0 to Ubound(astrWords)
							   IF len(astrWords(i2)) > 2 THEN
								 strSearch = astrWords(i2)
						
							
								If Ubound(astrWords) > 1 Then
								  For i = 1 To UBound(sSearchString) - 1
									 strSearch = strSearch & """" & astrWords(i)
								  Next 
								End If
							
						
								Set objRegExp = New RegExp
						
								objRegExp.Global = True
								objRegExp.IgnoreCase = True
								objRegExp.Pattern = ""("" & strSearch & "")""
						
								beskrivning = objRegExp.Replace(beskrivning, ""</span><span class=""""mallFet"""">$1</span><span class=""""vanligtext"""">"")
							  END IF
							NEXT
						
							Response.write  ""<span class=""""vanligtext"""">""&beskrivning&""""	  
							  
						
							IF oRS(""Characterization"") <> """" THEN
							  response.write ""...</span><br>""
							END IF
							response.write ""<span class=""""sokvag"""">""&virtuellsokvag & ""</span><br><br>""
						  response.write ""</td><tr>""
						  
						  oRS.MoveNext
						  Wend
						  
						  response.write ""</table>""
						
						End If
						
						IF oRS.PageCount > 1 THEN 
						IF err.number = 0 THEN
						Response.write ""<br><br>"" &_ 
						""<table width=""""100%"""" cellspacing=""""0"""" cellpadding=""""0"""">"" &_ 
						  ""<tr>"" &_ 
							""<td bgcolor=""""#E8E8E8"""" align=""""left""""><span class=""""vanligtext"""">Visa&nbsp;sida: </span>""
							 FOR i = 1 to oRS.PageCount
							   IF i <> cINT( pg ) THEN
								 response.write ""<a  href=""""http://""&TRIM(request.servervariables(""HTTP_HOST"") & request.servervariables(""SCRIPT_NAME""))&""?sokord=""&sSearchString&""&pg=""&i&"""""">""&i&""</a>&nbsp;""
							   ELSE
								 response.write ""<span class=""""vanligtext"""">""&i&""</span>&nbsp;""
							   END IF 
							 NEXT
							Response.write ""</td><td bgcolor=""""#E8E8E8"""" align=""""right"""" class=""""vanligtext"""">""
							IF pg <> 1 THEN
							  response.write ""<a href=""""http://""&TRIM(request.servervariables(""HTTP_HOST"") & request.servervariables(""SCRIPT_NAME""))&""?sokord=""&sSearchString&""&pg=""&(pg-1)&"""""">Föregående sida</a>&nbsp;I&nbsp;""
							ELSE
							  response.write ""<span class=""""vanligtextGra"""">Föregående sida</span>&nbsp;I&nbsp;""
							END IF
							IF pg <> """"&(FIX((oRS.recordcount / oRS.Pagesize))+1) &"""" THEN
							  response.write ""<a href=""""http://""&TRIM(request.servervariables(""HTTP_HOST"") & request.servervariables(""SCRIPT_NAME""))&""?sokord=""&sSearchString&""&pg=""&(pg+1)&"""""">Nästa sida</a></td>"" 
							ELSE
							  response.write ""<span class=""""vanligtextGra"""">Nästa sida</span>""
							END IF  
						  response.write ""</tr>"" &_
						""</table>""
						
						END IF
						END IF
						
						Set oRS = nothing
						Set oQuery = nothing
						Set util = nothing
						%>

m_soderlundMedlem sedan sep. 20026 425 inlägg

14 apr. 2003 12:20#8

Tack, men jag har Windows 98 och det operativsystemet hade tydligen ingen indexeringstjänst. :(

AddeladdeMedlem sedan jan. 20013 406 inlägg

14 apr. 2003 12:32#9

Det får bli en uppgradering till w2k3 tycker jag

m_soderlundMedlem sedan sep. 20026 425 inlägg

14 apr. 2003 12:46#10

Addeladde skrev:

Det får bli en uppgradering till w2k3 tycker jag

På min 166:a? Nope, tror ej det. :(

AddeladdeMedlem sedan jan. 20013 406 inlägg

14 apr. 2003 13:46#11

Det tror inte jag heller