CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede bodyguard Nybegynder
09. juli 2008 - 18:50 Der er 11 kommentarer og
1 løsning

Replace se bort fra store og små

Hej Exp,

Jeg har dette stykke kode som virker OK, problemet er bare at hvis jeg søger efter "hej" så kan søgningen godt finde "Hej" highlight funktionen markere det ikke...

<%
IF not request.form("Keyword") = "" then
    Response.Write replace (objRec("rapport"),strKeyword,"<span style=""BACKGROUND-COLOR: YELLOW"">"& strKeyword &"</span>")
ELSE
    Response.Write objRec("rapport")
END IF
%>
Avatar billede hundevennen Nybegynder
09. juli 2008 - 20:14 #1
dette stk kode virker fint hos mig:

' Henter værdien fra soeg.asp
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("soeg.asp")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If
'response.write strkeyword
'response.end
' Opbygger en dynamisk SQL streng
sqlstr = "SELECT * FROM T_Dok WHERE"
sqlstr = Sqlstr & " (melding LIKE '%" & strkeyword & "%') order by datof asc"


Function Highlight(vFind, vSearch)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = vFind
RegEx.IgnoreCase = True
Highlight = RegEx.Replace(vSearch, "<span class=""Highlight"">" & vFind &
"</span>")
Set RegEx = Nothing
End Function


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
        "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
    <title>Untitled</title>
<style type="text/css">
.Highlight{background-color:#FFFF00;}
</style>
</head>

<body>
Avatar billede hundevennen Nybegynder
09. juli 2008 - 20:15 #2
du ka måske tilpasse det til dit søgescript
Avatar billede hundevennen Nybegynder
09. juli 2008 - 20:17 #3
eller her er hvor jeg fik hjælp

http://www.eksperten.dk/spm/825289
Avatar billede bodyguard Nybegynder
09. juli 2008 - 20:54 #4
Den fattede jeg ikke... Kan du evt flette det ind i mit script?
Avatar billede hundevennen Nybegynder
09. juli 2008 - 21:03 #5
jeg kan da prøve - men ikke før imorgen da det er noget jeg bruer i en søgemaskine på mit arbejde
Avatar billede hundevennen Nybegynder
09. juli 2008 - 21:04 #6
jeg går ud fra du har en fil med en søgeformular, samt en fil der eksekvere selve søgning?
Avatar billede bodyguard Nybegynder
09. juli 2008 - 21:14 #7
IF not request.form("Keyword") = "" then

    strKeyword = Trim(Request.Form("Keyword"))
    strKeyword = Replace(strKeyword,"'","''")
   
    strKeytype = Trim(Request.Form("Keytype"))
    strKeytype = Replace(strKeytype,"'","''")
   
    If session("adgangsniveau") = "9" then
        strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE " & strKeytype & " LIKE '%" & strKeyword & "%' ORDER BY dato ASC"
    else
        strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE " & strKeytype & " LIKE '%" & strKeyword & "%' AND kundeid = '"& session("kunde") &"' ORDER BY dato ASC"
    end if
   
ELSE
   
    If session("adgangsniveau") = "9" then
        strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE dato = #" & aar & "-" & maaned & "-" & dato & "# ORDER BY dato ASC"
    else
      strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE dato = #" & aar & "-" & maaned & "-" & dato & "# AND kundeid = '"& session("kunde") &"' ORDER BY dato ASC"
    end if
   
END IF
   
    objRec.Open strSQL, objConn, 3, 1, 1





<%
IF not request.form("Keyword") = "" then
    Response.Write replace (objRec("rapport"),strKeyword,"<span style=""BACKGROUND-COLOR: YELLOW"">"& strKeyword &"</span>")
ELSE
    Response.Write objRec("rapport")
END IF
%>
Avatar billede hundevennen Nybegynder
10. juli 2008 - 08:54 #8
Her er min kode sat ind og tilpasset din - jeg kan jo ikke teste den af, men functionen og highlight virker ihvertfald hos mig - oppe i Stylen kan du selv ændre farven til en der passer dig
her kommer koden:


<style type="text/css">
.Highlight{background-color:#bce2f4;}
</style>

<%

Function Highlight(vFind, vSearch)
Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = vFind
  RegEx.IgnoreCase = True
  RegEx.Global = True
  Highlight = RegEx.Replace(vSearch, "<span class=""Highlight"">" & vFind &"</span>")
  Set RegEx = Nothing
End Function



IF not request.form("Keyword") = "" then

    strKeyword = Trim(Request.Form("Keyword"))
    strKeyword = Replace(strKeyword,"'","''")
   
    strKeytype = Trim(Request.Form("Keytype"))
    strKeytype = Replace(strKeytype,"'","''")
   
    If session("adgangsniveau") = "9" then
        strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE " & strKeytype & " LIKE '%" & strKeyword & "%' ORDER BY dato ASC"
    else
        strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE " & strKeytype & " LIKE '%" & strKeyword & "%' AND kundeid = '"& session("kunde") &"' ORDER BY dato ASC"
    end if
   
ELSE
   
    If session("adgangsniveau") = "9" then
        strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE dato = #" & aar & "-" & maaned & "-" & dato & "# ORDER BY dato ASC"
    else
      strSQL = "SELECT * FROM vagtrapport_doegnrapport WHERE dato = #" & aar & "-" & maaned & "-" & dato & "# AND kundeid = '"& session("kunde") &"' ORDER BY dato ASC"
    end if
   
END IF
   
    objRec.Open strSQL, objConn, 3, 1, 1






IF not request.form("Keyword") = "" then
'    Response.Write replace (objRec("rapport"),strKeyword,"<span style=""BACKGROUND-COLOR: YELLOW"">"& strKeyword &"</span>")
Response.Write " & highlight(strkeyword, objRec("rapport")) & "
   
ELSE
    Response.Write objRec("rapport")
END IF



'Response.Write "<td colspan=4><strong>" & highlight(strkeyword, DBSet("overskrift")) & "</strong></td>"
'response.write "<tr><td colspan=4 >" & highlight(strkeyword, DBSet("melding")) & "</td></tr><tr><td colspan=4  bgcolor='#808080' height=7></td></tr>"
%>
Avatar billede bodyguard Nybegynder
31. august 2009 - 20:22 #9
hundevennen > Kom med et svar :)
Avatar billede hundevennen Nybegynder
31. august 2009 - 22:08 #10
:-)
Avatar billede bodyguard Nybegynder
31. august 2009 - 22:11 #11
Hov... hvorfor har jeg fået points?
Avatar billede hundevennen Nybegynder
01. september 2009 - 10:42 #12
fordi du har valgt digselv :-)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP 6 09/03/202418:16 10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 17:40 Hvad kan jeg få får mit setup her Af Nicolai i PC
I går 17:00 Produktnøgle ikke aktiv? Af BornThisAj i Windows
I går 12:31 Søger et program disk oversigt Af johnnylassen i Andet software
07/0918:39 Hjælp til Google Fotos Af Kbr i Foto & video
07/0912:25 Hjælp til wifi Af Kim1998 i Andet sikkerhed
White papers
Flere white papers »


Premium
Teaser billede
Hårde tider for Danmarks største it-selskaber: Mere end en tredjedel af profitten er forduftet
Læs mere »
Pludselig exit fra Schultz kom som en overraskelse for Merete Søby: Derfor stoppede samarbejdet
Fagforbund rasende: Ansatte har fået blot 50 kroner i timen for at arbejde på Microsofts datacenter i Køge - melder firma til politiet
Microsoft vil have flere kunder ind i folden: Åbner for verdensomspændende rabat på Copilot M365
Se alle »
Computerworld
Teaser billede
Om en uge går det løs: Så banebrydende bliver iPhone 16
Læs mere »
Nu kommer en af bilbranchens største software-opdateringer nogensinde
Lokker med ’Nordens hurtigste internet’: Sådan ved du, om du kan få adgang til Danmarks nyeste bredbåndsudbyder
Google frigiver Android 15 og kommer med nye funktioner
Se alle »
CIO
Teaser billede
Kommunerne brugte 6,6 milliarder kroner på it i 2023: Se top 10 over hvem der bruger flest penge
Læs mere »
De to største medlems-kommuner trækker sig fra det sjællandske it-fællesskab Digit
Dansk top-CIO har en nøglerolle ved kæmpe-opkøb: Her er hendes opskrift på succesfulde sammenlægninger
Microsoft vil have flere kunder ind i folden: Åbner for verdensomspændende rabat på Copilot M365
Se alle »
Job & Karriere
Teaser billede
Merete Søby fratræder med omgående virkning som CEO for Schultz efter blot tre måneder på posten
Læs mere »
Professor: "Det er på høje tid at opløse virksomhedernes it-afdelinger"
KMD-direktør forlader selskabet: Det skal hun nu
Kom tæt på Danmarks nye digitaliserings-minister: 33-årige Caroline Stage Olsen er tidligere tobaks-lobbyist - har været aktiv i politik siden hun var helt ung
Se alle »
White paper
Teaser billede
Opdag fordelene ved cloud-baseret backup og recovery
Læs mere »
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
AI’s rolle i fremtidens projektledelse
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »