Udskift tegn med smiley-billede i tagwall

tekst = Replace(tekst, ":)", "<img src=""smiley1.gif"">")
tekst = Replace(tekst, ":D", "<img src=""smiley2.gif"">")

Andet skal der ikke til

Ok, hvorhenne skal jeg sætte den ind?
tagwall.asp er selve tagwall'en, der hvor beskederne kommer.
tilfoj.asp er hvor beskederne indskrives og sendes via indsaet.asp til tagwall.asp.
indsat.asp er så hvor beskeden bliver sendt til tagwall'en.

Har jeg ret i, at det skal indsættes i indsaet.asp? Men hvorhenne? Er det ligegyldigt?

(Jep, det er rigtig, jeg er første klasses ASP-newbie ;))

Du kan indsætte det på den side hvor alt teksten skrives til brugeren, eller du kan gøre det på den side hvor det hele indsættes i databasen.
Husk at skifte "tekst" ud med navnet på den variabel som indeholder teksten.

Det skal selvfølgelig indsættes inden der skrives i databasen, eller inden der skrives til brugeren ..

Er ikke helt med på hvad du mener "tekst" skal udskiftes med?

nyvariabel = Replace(gammelvariabel, "erstart_dette", "med_dette")
Måske kan du forstå det sådan ..
altså du har en variabel (her gammelvariabel) som skal udskiftes noget i, dette gemmes så i en ny variabel (her nyvariabel)

I din tagwall har du skrevet:
***
jeg har selv skrevet, hver eneste af de 30.923 linjer kode, systemer er lavet af.
***

Så ved du vel også hvor du udskriver indholdet af din tagwall. Desuden har du jo smileys i din tagwall, så hvad er problemet?

Med hensyn til hvornår du skal udskifte tegnene med smileybilledlinket vil jeg anbefale dig at gøre det inden tagwallen udskrives til brugeren, dvs. at teksten gemmes i databasen UDEN <img src="smiley.gif"> koderne. Derved giver du brugerne mulighed for at slå smileys fra, hvis de ikke vil se dem.

Du skal derfor lave dine replace sætninger i en funktion i tagwall.asp:

function smiley(tekst)
tekst=replace(tekst,"*angel*,"<img src=""http://rommenet.dk/CMS/Images/Smilies/angel.gif""">")
tekst=replace(tekst,"*flame*,"<img src=""http://rommenet.dk/CMS/Images/Smilies/flamed.gif""">")
'fortsæt med en replace for hver smiley
smiley=tekst
end function

Hvis du udskriver med:
response.write rs("besked")
skal du i stedet skrive:
response.write smiley(rs("besked"))

rs("besked") er feltet i databasen som indeholder den tekst dine besøgende har skrevet på din tagwall. Det er kun dig, der kan vide hvad feltet hedder. Hvis du har indholdet i en variabel med navnet tagbesked, skriver du:

response.write smiley(tagbesked)

Hilsen
D4

D4 >> Selvom RommeNet.dk så VAR min hjemmeside (hvilket jeg intet nævner om), kommer det da ikke spørgsmålet ved hvordan min tagwall ser ud? Jeg ville jo ikke spørge om noget jeg allerede havde i min tagwall.

minijensen1 >> Altså, "gammelvariable" skal være navnet på hvor man indtaster beskeden? Det har jeg kaldt "Besked".
Og "nyvariable" skal jeg selv give et navn? Fx. "Smiley"?
Det ser ikke ud til at virke?

Prøv nu at gøre som d4 siger. Bedre forklaring får du næppe.

Nu skal JEG komme med en forklaring ;)

Nu er jeg lige skiftet fra ASP til PHP .. Så det kan være der er nogen fejl - men undskyld så :P

Men hvad JEg vil mene er bedst, er at man først laver Replace function mens men henter beskeden. Dette vil få databasen til at fylde en lille del mindre (Nok ikke så det kan mærkes .. Men alligevel - i store træk kan det godt blive til meget :))

Så derfor, udfører du dit SQL Script - Det kunne være:

strSQL = "SELECT * FROM tagwall ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")

Og alt det bawl der ..

Og så nederst (efter den har åbnet DATABASEN, skriver du dette:

tekst=replace(rs("besked"),":)","<img src=""images/smile.gif""">")
tekst=replace(rs("besked"),":D","<img src=""images/smileyBIG.gif""">")

Forstår du nu ?
Så det vil sige at i dit dokument, hvor dit ASP script udskriver alle de indlæg der er i databasen, finder du der hvor den udskriver beskeden (Skulle nok ligne noget a lá like this: <% = rs("besked") %>
Der skal der istedet stå: <% = tekst %>

Det var da meget nemt, var det ik? :)

Mvh
Thomas Genster

Hov - vent !!

Sry ..

Det skulle være:

tekst=replace(rs("besked"),":)","<img src=""images/smile.gif""">")
tekst=replace(tekst,":D","<img src=""images/smileyBIG.gif""">")

Hej Nickclausen... hvorfor har du ikke bare spurgt mig, hvordan jeg har gjort, nu hvor du alligevel har været inde på min hjemmeside og finde tagwallen? ... jeg vil da med glæde fortælle hvordan jeg har gjort.

  Function ReplaceSmilie (strS, strImg, strHTML)   
      strImg = "<img src=""/Smilies/" & strImg & """ border=""0"" alt="""">"
      strHTML = replace(strHTML, strS, strImg)    
      ReplaceSmilie = strHTML       
  End function

Til d4, kan jeg fortælle, at jeg udmærket godt ved hvordan jeg har lavet tagwallen, men det ved Nick åbenbart ikke, men det er jo også ham, og ikke mig, der har oprettet spørgsmålet.

Nick, hvis du lige mailer mig, så kan jeg lige sende dig den komplette source-kode - så kan du klippe det ud, du skal bruge til din tagwall :-)

Lukketid ...

Hvad var der galt med de svar, du har fået?