Avatar billede ponyboye Nybegynder
16. juli 2004 - 06:17 Der er 4 kommentarer og
1 løsning

Lave bestemte ord fra DB udtræk til et bestemt link

Jeg har en opskrift database og vil nu lave en del om de dataer der udtrækkes fra databasen bliver kigget igemmen og hvis exsempel jordbær finde, så vil jeg have ordet jordbær lavet om til at link og linke til en popup beskrivelse om hvad jordbær er.

Jeg ved bare ikke hvordan jeg får den til at kigge efter disse ord og lave et link til den rigtige beskrivelse.

Jeg vil lager teksen af beskrivelserne i databasen, hvor alt andet indhold er.

Jeg vil også vide om tabellen skal bygges op på en bestemt må før dette vil virke?

Jeg bruger asp og access database.
Avatar billede tjaz Nybegynder
21. juli 2004 - 00:24 #1
Kan du ikke bare replace de forskellige ord som du trækker ud ... dvs hvis den finder ordet gulerod erstatter den ordet gulerod med <a href='gulerod.htm'>gulerod</a> som bekedt jo er html'en for et link ...

eks:

http://www.tjaz.dk/exp/replace.asp

kode:

<%
tekst = "Her er en tekst om en gulerod og en agurk."
' Erstat teksten herover med udtræk fra din db, fx rs("beskrivelse")
tekst = replace(tekst, "gulerod", "<a href='gulerod.htm'>gulerod</a>")
tekst = replace(tekst, "agurk", "<a href='agurk.htm'>agurk</a>")
response.write tekst
%>
Avatar billede ponyboye Nybegynder
21. juli 2004 - 12:47 #2
nu skulle det gerne kører vis en database. Jeg har sammen sat dette med lidt hjælp:

<!--#include virtual="connection.asp" -->

<table width="600" border="0" cellspacing="10">
  <tr><%
OpenDatabase

strSQL = "SELECT kw_ID, kw_word FROM keywords"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then arrKeywords = rs.getRows() End If
rs.Close
Set rs = Nothing

strSQL = "Select * From opskrifter Where id = "&Request.Querystring("id")&""

Set rs = Conn.Execute(strSQL)

Response.Write "Navn:&nbsp;" & rs("navn") & "<br><br>"

Response.Write "<u>Antal personer:</u>&nbsp;" & rs("personer") & "<br><br>"

Response.Write "<u>Tilberedningstid:</u>&nbsp;" & rs("tid") & "&nbsp;min" & "<br><br>"

'Her stopper vi lige og leder efter keywords:
strTekst = rs("in1")
If (IsArray(arrKeywords)) Then
For i = 0 To UBound(arrKeywords,2)
  tempKey = arrKeywords(1,i)
  strTekst = Replace(Replace(strTekst, LCase(tempKey), "<a href='#' onClick='java script:doKey(" & arrKeywords(0,i) & ")'>" & LCase(tempKey) & "</a>"), tempKey, "<a href='#' onClick='java script:doKey(" & arrKeywords(0,i) & ")'>" & tempKey & "</a>")
Next
End If

Response.Write "<u>Ingedienser:</u><br><br>" & rs("in1") & "&nbsp;&nbsp;<br><br>"

Response.Write "<u>Fremgangsmåde:</u><br><br>" & rs("fremgang") & "<br><br><br><br>"

Response.Write "<u>Skrevet af:</u>&nbsp;&nbsp;&nbsp;" & rs("af") & "<br><br>"

CloseDatabase
%></tr>
</table>

<!-- JavaScript -->
<script language="JavaScript">
function doKey(mykey) {
window.open("beskriv.asp?key="+mykey);
}
</script>

<hr align="left" width="600" size="1" noshade>


<table width="600" border="0">
  <tr>
    <td>&nbsp;</td>
    <td width="60" align="right" valign="top"><a href="java script:history.go(-1)">Tilbage</a></td>
    <td width="60" align="right" valign="top"><a href="#top">Toppen</a></td>
  </tr>
</table>


I databsen har jeg en tabel der hedder keywords med disse felter:

kw_ID - automummering
kw_word - tekst
kw_beskriv - tekst

det er her jeg gerne vil have hentet det hele fra. Denne kode melder ikke nogen fejl, men viser heller ikke noget.
Avatar billede ponyboye Nybegynder
21. juli 2004 - 15:46 #3
jeg fik det til at virke...lukker
Avatar billede tjaz Nybegynder
21. juli 2004 - 22:53 #4
ikke fordi mit liv ér point ... men et "tak for hjælpen" er vel ikke for meget at forlange ? :)
Avatar billede ponyboye Nybegynder
21. juli 2004 - 23:37 #5
Sorry det må du meget undskylde og et stort tak er da også det midste du skal have...

TAK...Mange Tak
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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