[aspdebeginners] RE: Index Server

[Hubert Daubmeier]

Title: Nachricht

>  Leider gibt es ein kleines Problem. Ich habe zu viele Probleme mit ihm.

 

Also ich bin momentan zum ... mit Arbeit eingedeckt.  Aber was h�re ich da!?  Der IX ist vielleicht ein bischen spr�de weil es da gar nicht so viel zum Einstellen gibt.  Mal eben ein bischen rumklicken und dann ein fancy Ergebnis haben ist auch nicht; man muss sich mit ihm schon mal eine Weile unterhalten.  Aber: wenn man das Pferd mal ein bischen reiten kann, kommt bald Freude auf.

Also Angebot: hier der Kern der Seite http://www.neusob.de/karlskron/finden.asp   (und damit es ankommt die Ausnahme mit HTML Mail).  Viel Inhalte sind von unserem Pfarrer drauf.  Such mal nach Ostern oder Gottesdienst oder so.

Zum Code: irgendwo in der Seite die Sub aufrufen.  Der Code wirft entweder eine Maske oder das Ergebnis hin.  Kann man anders machen, aber ...   Oder eben beim dr�berschauen, noch andere Optimierungskandidaten gesehen.  Also nicht am quickhack st�ren   ;-)

<%

Sub Finden()
  Dim sSuche, sSQL
  Const FIXSQL = "SELECT DocTitle, filename, vpath, size, write, rank FROM scope('deep traversal of ""/karlskron""') WHERE (CONTAINS(filename, '*.asp') or CONTAINS(filename, '*.htm*')) And CONTAINS ('xxxx') > 0 And not Contains('vti_encoding') ORDER BY rank DESC"
    ' andere M�glichkeiten rank
    ' CONTAINS(Contents, '"content search"')
    ' AND (Not #vpath *|(\_vti|,\_private|,\wwww|,\wm-intern|)*) AND #filename *.|(htm*|,asp|,stm|,shtml|)"

  sSuche = Replace(Request("SearchString"), chr(34), "")

  ' -- Nix gescheits da, dann Formular
  If Len(sSuche) <= 2 Then
    response.write "<form METHOD=""POST"" ACTION=""finden.asp"">" & vbcrlf & _
        "  <p><input TYPE=""TEXT"" SIZE=""60"" NAME=""SearchString"">" & vbcrlf & _
        "  <input TYPE=""submit"" NAME=""action"" VALUE=""Suchen""> </p>" & vbcrlf & _
        "</form>"
  Else
    ' -- create and open a connection
    Set objConnection = Server.CreateObject("ADODB.Connection")
    objConnection.ConnectionString = "provider=msidxs;"
    objConnection.Open
    ' -- fill a recordset with the results
    Set objRS = objConnection.Execute(Replace(FIXSQL, "xxxx", sSuche))
    If Not objRS.EOF Then
      Response.write "<p>Folgende Seiten wurde zu <em>" & sSuche & "</em> gefunden</p><hr><ol>"
      Do While Not objRS.EOF
        Response.write "<li>" & _
                "<a href=" & chr(34) & objRS("vpath") & chr(34) & _
                " title=" & chr(34) & objRS("Filename") & "&#10;" & objRS("write") & "&#10;Rang: " & objRS("Rank") & chr(34) & _
                ">" & objRS("DocTitle") & "</a>" & vbcrlf

'               "<td>" & objRS("Filename") & "&nbsp;</td>" & _
'               "<td ALIGN=""RIGHT"">" & objRS("size") & "</td>" & _
'               "<td>" & objRS("DocTitle") & "&nbsp;</td>" & _
'               "<td>" & objRS("vpath") & "</td>" & _
'               "<td>" & objRS("Rank") & "</td>" & _
'               "<td>" & objRS("write") & "</td>" & _
'               "</li>"
        objRS.MoveNext
      Loop
      Response.write "</ol><hr align=""left"" noshade color=""#008000"" size=""1"">"
    Else
        Response.write "<p>Keine Seiten zu <em>" & sSuche & "</em> gefunden</p><hr align=""left"" noshade color=""#008000"" size=""1"">"
    End If
    Response.write "<form METHOD=""POST"" ACTION=""finden.asp"">" & vbcrlf & _
        "  <p><input TYPE=""TEXT"" SIZE=""60"" NAME=""SearchString"">" & vbcrlf & _
        "  <input TYPE=""submit"" NAME=""action"" VALUE=""Suchen""> </p>" & vbcrlf & _
        "</form>"
    Set objRS = Nothing
    objConnection.Close
    set objConnection = Nothing
  End If 
End Sub

%>

--

Viele Gr��e
Hubert Daubmeier

 

| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als archive@jab.org subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp