Søge script i .asp

Ved ikke om den har not og dropdown men der står den har and og or

http://www.hotscripts.com/Detailed/10623.html

den er ikke så god og har ikke dropdown... :-(

øv

<%
Const fsoForReading = 1

Dim strSearchText
strSearchText = Request("SearchText")

Dim strSearchMappe
strSearchMappe = Request.Form("Mappe")

If strSearchText = "" Then
    error = error & "Du må søke etter noe. "
End if

If Len(strSearchMappe) > 14 Then
    error = error & "Du kan bare velge en mappe å søke i. "
End if

If strSearchMappe = "" Then
    error = error & "Du må velge hva du skal søke i. "
End if

If error <> "" Then
    Response.Clear
    %><html>
    <body onload="window.alert('En feil oppstod! <% =error %>');
            window.history.back();">
    &nbsp;</body></html><%
    Response.End
End If   

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim strSti
strSti = "../wwwroot/" & strSearchMappe

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath(strSti))

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

For Each objFile in objFolder.Files
  If Response.IsClientConnected then
    Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

    strFileContents = objTextStream.ReadAll

    If InStr(1,strFileContents,strSearchText,1) then
                              Response.Write "<table width=490 border=0 cellspacing=0 cellpadding=0>"
                            Response.Write "<tr><td><li><font face=Arial size=2>"
                            Response.Write "<A HREF=" & strSti & "/" & objFile.Name & ">" & objFile.Name
                            Response.Write "</td>"
                            Response.Write "<td width=210><font face=Arial size=2>(Opprettet: " & objFile.DateCreated & ")&nbsp; &nbsp;</font></td></tr></table>"
      bolFileFound = True
    End If

    objTextStream.Close
  End If
Next

if Not bolFileFound then Response.Write "Beklager ingen treff..."

Set objTextStream = Nothing
Set objFolder = Nothing
Se

<%
'NÅ KOMMER DET RIKTIG, DU KAN SELV VELGE AND,OR,NOT
'SØKER IGJENNOM ALLE ASP FILER SOM LIGGER I MAPPEN DU VELGER.
Const fsoForReading = 1

Dim strSearchText
strSearchText = Request("SearchText")

Dim strSearchMappe
strSearchMappe = Request.Form("Mappe")

If strSearchText = "" Then
    error = error & "Du må søke etter noe. "
End if

If Len(strSearchMappe) > 14 Then
    error = error & "Du kan bare velge en mappe å søke i. "
End if

If strSearchMappe = "" Then
    error = error & "Du må velge hva du skal søke i. "
End if

If error <> "" Then
    Response.Clear
    %><html>
    <body onload="window.alert('En feil oppstod! <% =error %>');
            window.history.back();">
    &nbsp;</body></html><%
    Response.End
End If   

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim strSti
strSti = "../wwwroot/" & strSearchMappe

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath(strSti))

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

For Each objFile in objFolder.Files
  If Response.IsClientConnected then
    Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

    strFileContents = objTextStream.ReadAll

    If InStr(1,strFileContents,strSearchText,1) then
                              Response.Write "<table width=490 border=0 cellspacing=0 cellpadding=0>"
                            Response.Write "<tr><td><li><font face=Arial size=2>"
                            Response.Write "<A HREF=" & strSti & "/" & objFile.Name & ">" & objFile.Name
                            Response.Write "</td>"
                            Response.Write "<td width=210><font face=Arial size=2>(Opprettet: " & objFile.DateCreated & ")&nbsp; &nbsp;</font></td></tr></table>"
      bolFileFound = True
    End If

    objTextStream.Close
  End If
Next

if Not bolFileFound then Response.Write "Beklager ingen treff..."

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>

hej mortncy..

den kan jeg ikke lige få til at virke.... den skriver til mig at jeg ikke har søgt noget nor jeg loader siden ?

//soek.asp
            <!-- SØK STARTER -->
            <FORM METHOD=POST ACTION="soeklogg.asp">
            <font face="Arial" size="2">
            Skriv inn søkeord:
            <INPUT TYPE=TEXT NAME=SearchText style="{ background-color: #221162; font-family: Arial; font-size: 12px; color: #FFFFFF; font-weight: bold;}">
            <p>Velg søk i:<br>
            <INPUT type="checkbox" name="mappe" value="endringer">Endringer<br>
            <INPUT type="checkbox" name="mappe" value="nyregistrering">Nyregistrerte<br>
            <INPUT type="checkbox" name="mappe" value="slettet">Slettet<P>
            <P>
            <INPUT TYPE=SUBMIT VALUE="Søk!" style="{ background-color: #221162; font-family: Arial; font-size: 12px; color: #FFFFFF; cursor: hand; font-weight: bold;}">
            </font>
            </FORM>
            <!-- SØK SLUTTER-->

//soeklogg.asp filen
<%
'NÅ KOMMER DET RIKTIG, DU KAN SELV VELGE AND,OR,NOT
'SØKER IGJENNOM ALLE ASP FILER SOM LIGGER I MAPPEN DU VELGER.
Const fsoForReading = 1

Dim strSearchText
strSearchText = Request("SearchText")

Dim strSearchMappe
strSearchMappe = Request.Form("Mappe")

If strSearchText = "" Then
    error = error & "Du må søke etter noe. "
End if

If Len(strSearchMappe) > 14 Then
    error = error & "Du kan bare velge en mappe å søke i. "
End if

If strSearchMappe = "" Then
    error = error & "Du må velge hva du skal søke i. "
End if

If error <> "" Then
    Response.Clear
    %><html>
    <body onload="window.alert('En feil oppstod! <% =error %>');
            window.history.back();">
    &nbsp;</body></html><%
    Response.End
End If   

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim strSti
strSti = "../wwwroot/" & strSearchMappe

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath(strSti))

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

For Each objFile in objFolder.Files
  If Response.IsClientConnected then
    Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

    strFileContents = objTextStream.ReadAll

    If InStr(1,strFileContents,strSearchText,1) then
                              Response.Write "<table width=490 border=0 cellspacing=0 cellpadding=0>"
                            Response.Write "<tr><td><li><font face=Arial size=2>"
                            Response.Write "<A HREF=" & strSti & "/" & objFile.Name & ">" & objFile.Name
                            Response.Write "</td>"
                            Response.Write "<td width=210><font face=Arial size=2>(Opprettet: " & objFile.DateCreated & ")&nbsp; &nbsp;</font></td></tr></table>"
      bolFileFound = True
    End If

    objTextStream.Close
  End If
Next

if Not bolFileFound then Response.Write "Beklager ingen treff..."

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>

eller jeg skal bruge en ganske alm søg.asp og vis.asp fil...

så kan jeg selv arbejde videre...

ja det kan du.

Scriptet er laget så det kan søke i 3 forskjellige mapper du kan selv endre det til hva du selv vil. bare bytt ut value til riktig mappe navn:

<INPUT type="checkbox" name="mappe" value="endringer">Endringer<br>

men den skal søge ned i min accessdatabase...

det kan jeg ikke få til at virke...

Dim strSti
strSti = "../wwwroot/test/database.mdb" & strSearchMappe
har jeg ændre med hvordan ændre jeg mapper jeg har en tabel der hedder "bruger" den skal kigge ned i..

Jeg kan mailen deg noen script.

Hva er mail adressen din?

l_otto@ofir.dk

takker

mail er send med 3 script, se om du kan bruke noen av disse.

kigger på det..tak

virker guuut....