Avatar billede cyberkox Nybegynder
14. maj 2002 - 17:23 Der er 7 kommentarer og
1 løsning

Gøre søgeord fed...

Hej Eksperter.

Jeg spurgte for nogen tid siden, hvordan man gør søgeordet fed. Da jeg ikke helt fik svar nok den gang, prøver jeg nu igen:

Jeg har en søgeformular. Den er ganske normal med <INPUT… osv. Så har jeg filen, der tager imod formularen:
------------------------------------------------------------------------------------
søg.asp
------------------------------------------------------------------------------------
<%
' Henter værdien fra index.asp
strKeyword = Trim(Request.Form("Keyword"))
if strKeyword = "" then
  strKeyword = Trim(Request.QueryString("Keyword"))
end if
If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("index.asp")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If


' Opbygger en dynamisk SQL streng
' Skaber DSNLess forbindelse til DBen
strSQL = "SELECT ID, navn, beskrivelse, dato, url, klik, stor FROM download WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Beskrivelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (URL LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Stor LIKE '%" & strKeyword & "%')"
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("download.mdb")
rs.Open strSQL, strDSN, 1
------------------------------------------------------------------------------------
søg.asp
------------------------------------------------------------------------------------

Nu er spørgsmålet så bare, hvordan jeg får ”strKeyword” fed. Jeg har prøvet med
strKeyword = Replace(strKeyword,"strKeyword"," <B>strKeyword </B>") , men det virkede ikke…

Håber på et godt svar…

Avatar billede eagleeye Praktikant
14. maj 2002 - 17:26 #1
du skal lave Replace for de kolonner du vil udskriver eks beskrivelse:


Response.write Replace(rs("beskrivelse"),strKeyword,"<b>"&strKeyword&"</b>")
Avatar billede 2go Nybegynder
14. maj 2002 - 17:35 #2
Det er ikke lovligt at oprette samme spørgsmål 2gange..

/2Go
Avatar billede razor Nybegynder
14. maj 2002 - 17:38 #3
2Go, Hvis det oprindelige svar er accepteret og ude af systemet gør det vel ikke noget at han søger uddybende hjælp?
Avatar billede eagleeye Praktikant
14. maj 2002 - 17:38 #4
2Go --- Hvorfor laver du det som et svar og ikke en KOMMENTAR ???? Han har jo lukket det gamle spørgsmål så det kan der vist ikke være noget galt i.
Avatar billede cyberkox Nybegynder
14. maj 2002 - 17:39 #5
Hmmm, det virker ikke....
Her er koden, der udskriver søgeresultatet:

<%
beskrivelse = rs("beskrivelse")
beskrivelse = Replace(beskrivelse, vbCrLf, "<br>")
%>
<CENTER>
<TABLE WIDTH="400" BORDER="1">
<TR>
<TD WIDTH="185"><B><FONT SIZE=2><a href="index.asp?mode=id&id=<% =rs("ID")%>"><% =rs("navn")%></A></FONT></B>
</TD>
<%

Response.Write "<TD ALIGN=center WIDTH=100><FONT SIZE=2>Hits: " & rs("klik") & "</FONT></TD>"
Response.Write "<TD ALIGN=right WIDTH=100><FONT SIZE=2><U>" & rs("stor") & "</U></TD></FONT>"
Response.Write "</TR>"
Response.Write "<TR>"
Response.Write "<TD COLSPAN=3 WIDTH=400><FONT SIZE=2>" & beskrivelse & "<BR><BR>// Dato: " & rs("dato") & ""
%><% nydato = dateadd("d", 7 , RS("dato"))
If nydato > Date() Then
%>
<FONT SIZE="-1" COLOR="RED"><I><B>Ny</B></I></FONT>
<% End If %></TD></FONT>
</TR>
</TABLE>
</CENTER>
<BR>

Hvor skal det sættes ind henne ?
Avatar billede eagleeye Praktikant
14. maj 2002 - 17:41 #6
du tilføjer lidt i starten:

<%
beskrivelse = rs("beskrivelse")
beskrivelse = Replace(beskrivelse, vbCrLf, "<br>")
beskrivelse = Replace(beskrivelse, strKeyword, "<b>"&strKeyword&"</b>")

%>
Avatar billede cyberkox Nybegynder
14. maj 2002 - 17:42 #7
Okai, nu fik jeg det til at virke...

Takker mange gange...
Avatar billede eagleeye Praktikant
14. maj 2002 - 17:43 #8
Det var så lidt :)
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
Kurser inden for grundlæggende programmering

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