Avatar billede Jman Praktikant
01. november 2001 - 16:50 Der er 8 kommentarer og
1 løsning

Highlight\'e et søgeord

Er det muligt at highlight\'e det ord man har søgt på i en database ?
.....
kode:
.....
<% hvilket = Request.Form(\"hvilken\") %>
    <html>
    <head>
    <title>tidligere indlæg</title>
    <link rel=\"stylesheet\" type=\"text/css\" href=\"../scripts/prepress.css\">
    </head>
<BODY style=\"color: #6699CC\" bgcolor=\"#F5F5F1\">
<% if hvilket = \"\" then  %>
<div align=\"center\">
  <center>
  <table border=\"3\" cellpadding=\"0\" cellspacing=\"1\" style=\"border-collapse: collapse\" bordercolor=\"#336699\" width=\"540\" id=\"AutoNumber1\" bgcolor=\"#FFFFFF\">
    <tr><td width=\"100%\">
      <h2>Søg efter emner i tidligere indlæg:</h2>
    <form action=\"soeg2.asp\" method=\"post\">
    <h4 style=\"margin-left: 10; margin-top: 0; margin-bottom: 0\"><b>Søgeord: </b><input type=\"Text\" name=\"hvilken\" size=\"20\"><input type=\"Submit\" value=\"SØG\"> </h4>
    </form>
<h2><% else %> </h2>
<%
Dim objRec, antal
antal = 0

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set objRec = Server.CreateObject(\"ADODB.recordset\")

Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"info.mdb\")
objRec.Open \"SELECT * FROM info WHERE emne like \'%\" & hvilket & \"%\' OR info like \'%\" & hvilket & \"%\'\",conn,1,3

antal = objRec.recordcount

  %>
      <div align=\"center\">
        <center>
  <table border=\"3\" cellpadding=\"0\" cellspacing=\"1\" style=\"border-collapse: collapse\" bordercolor=\"#336699\" width=\"540\" id=\"AutoNumber1\" bgcolor=\"#FFFFFF\">
    <tr>
      <td width=\"100%\">
<%
if antal > 0 then
    Response.write \"<b><h2>Der var \" & antal & \" fundne emner</h2></b><p>\"

    While Not objRec.EOF
    Response.write \"<b><h3>\" & objRec(\"emne\") & \" uge \" & objRec(\"uge\")
    Response.write \"</h3></b><h5><i>skrevet af: \" & objRec(\"Init\")
    Response.write \"</i></h5><h4>\" & objRec(\"info\") & \"</h4>\"
    objRec.MoveNext
Response.write \"<hr width=\'100%\' align=\'left\'>\"
Wend

objRec.Close
Set objRec = Nothing
Conn.Close
Set conn = Nothing
%>
<p style=\"margin-left: 10; margin-top: 0; margin-bottom: 0\"> </p>
    <form action=\"soeg2.asp\" method=\"post\">
    <h2 style=\"margin-left: 10; margin-right: 0; margin-top: 0; margin-bottom: 0\">
    <font color=\"#000000\"><b><font size=\"2\">Søg igen:</font></b><font size=\"2\">
    </font></font>
    <input type=\"Text\" name=\"hvilken\" size=\"20\">
    <input type=\"Submit\" value=\"SØG\"> </h2>
    </form></td></tr></table></center></div></center>
<%
else
    Response.write \"<b><font color=\'#FF0000\' face=\'Arial\'> Desværre, emnet du søgte findes ikke i databasen!<p></font></b>\"
%>
    <form action=\"soeg2.asp\" method=\"post\">
    <h2 style=\"margin-left: 10; margin-right: 0; margin-top: 0; margin-bottom: 0\">
    <font color=\"#000000\"><b><font size=\"2\">Søg igen:</font></b><font size=\"2\">
    </font></font>
    <input type=\"Text\" name=\"hvilken\" size=\"20\">
    <input type=\"Submit\" value=\"SØG\"> </h2>
    </form>
<%
end if
end if
%>
      </td>
    </tr>
    <tr>
      <td width=\"100%\">
      <p align=\"center\">
<b><font size=\"2\"><a href=\"vis.asp\">Tilbage til info</a></font></b></td>
    </tr>
  </table>
<b><h5> </h5><h5> </h5></b>
  </center>
</div>
    </body>
    </html>
Avatar billede eagleeye Praktikant
01. november 2001 - 18:10 #1
Denne function markere med fed:

Function markString(strInput,findStr)
  Set objRegPath = New RegExp
  objRegPath.Global = true
  objRegPath.IgnoreCase = True
  objRegPath.Pattern = \"(\"&findStr&\")\"
  strOutput = objRegPath.Replace(strInput, \"<b>$1</b>\")
  Set objRegPath = Nothing
  markString = strOutput
End Function


Response.write markString(\"Test af markering i en streng.\", \"en\")
Avatar billede tmceu Praktikant
01. november 2001 - 18:14 #2
Hvis hvilket indeholder den streng du søger efter, kan du tilføje dette når du udskriver resultatet fra databasen. Dette eksempel vil markere søgeordet med fed


emne = objRec(\"emne\")
markering = \"<B>\" & emne & \"</B>\"
emne = replace(emne, hvilket, markering)
Avatar billede tmceu Praktikant
01. november 2001 - 18:15 #3
UPS! Du skal selvfølgelig ændre din response.write til at udskrive variable emne i stedet for objRec(\"emne\")

Og det samme med info, hvis du ønsker det.
Avatar billede Jman Praktikant
01. november 2001 - 18:15 #4
shvor skal den ind ?
Avatar billede Jman Praktikant
01. november 2001 - 18:37 #5
jeg kan ikke få nogle af dem til at virke - hvor skal koden sættes ind?
Avatar billede eagleeye Praktikant
01. november 2001 - 18:58 #6
læg functionen ind i bunden af filen efter </html>

While Not objRec.EOF
    Response.write \"<b><h3>\" & markString(objRec(\"emne\"),hvilket) & \" uge \" & objRec(\"uge\")
    Response.write \"</h3></b><h5><i>skrevet af: \" & objRec(\"Init\")
    Response.write \"</i></h5><h4>\" & markString(objRec(\"info\"),hvilket) & \"</h4>\"
    objRec.MoveNext
Response.write \"<hr width=\'100%\' align=\'left\'>\"
Wend
Avatar billede Jman Praktikant
01. november 2001 - 19:08 #7
eagleeye - du er bare fantastisk! *SSS*
Avatar billede Jman Praktikant
01. november 2001 - 19:09 #8
..og jeg er en nar! 
Det var jo meningen Eagleeye skulle have point *lol*
Avatar billede tmceu Praktikant
01. november 2001 - 22:27 #9
eagleeye >> Hent dine point her http://www.eksperten.dk/spm/128580
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