Notifikationer

Markér alle som læst Log ud

l_otto Nybegynder

11. juni 2003 - 13:43 Der er 13 kommentarer og
1 løsning

Søge script i .asp

Jeg skal bruge et godt søge script

Med:

dropdown felter
and
or
not

Det var bare lige det... jeg syntes ikke jeg kan finde et godt på www.activeserverpages.dk

det er bare et link eller noget...jeg leder efter..og som jeg kan få til at virke..

Synes godt om

Slettet bruger

11. juni 2003 - 13:49 #1

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

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

Synes godt om

l_otto Nybegynder

11. juni 2003 - 13:52 #2

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

øv

Synes godt om

mortency Nybegynder

11. juni 2003 - 13:52 #3

<%
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();">
 </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 & ")   </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

Synes godt om

mortency Nybegynder

11. juni 2003 - 13:54 #4

<%
'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();">
 </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 & ")   </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
%>

Synes godt om

l_otto Nybegynder

11. juni 2003 - 13:57 #5

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 ?

Synes godt om

mortency Nybegynder

11. juni 2003 - 14:02 #6

//soek.asp

<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>


//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();">
 </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 & ")   </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
%>

Synes godt om

l_otto Nybegynder

11. juni 2003 - 14:02 #7

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

så kan jeg selv arbejde videre...

Synes godt om

mortency Nybegynder

11. juni 2003 - 14:04 #8

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>

Synes godt om

l_otto Nybegynder

11. juni 2003 - 14:08 #9

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..

Synes godt om

mortency Nybegynder

11. juni 2003 - 14:10 #10

Jeg kan mailen deg noen script.

Hva er mail adressen din?

Synes godt om

l_otto Nybegynder

11. juni 2003 - 14:11 #11

l_otto@ofir.dk

takker

Synes godt om

mortency Nybegynder

11. juni 2003 - 14:15 #12

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

Synes godt om

l_otto Nybegynder

11. juni 2003 - 14:17 #13

kigger på det..tak

Synes godt om

l_otto Nybegynder

11. juni 2003 - 14:42 #14

virker guuut....

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS