Hoe maak je emicons op website :-) naar plaatje

[Verwijderd]

Ik heb een gastenboek op mn website en wil hierin ook emicons gebruiken.
(zoals met dit forum met de tekens :-) e.d. dat dan het plaatje komt)

Ik heb wel de javascript gevonden dat als je op een plaatje klikt dat je dan de tekens krijgt in de form:

<A HREF="javascript:addsmile(' X( ')">[img]"images\icon01.gif"[/img]</A>


Maar nu moet het nog uitgelezen worden op mn website zodat je voor de tekens :-) een plaatje ziet.

moet dit met een java of asp script.

wie kan mij hieraan helpen?

[Rotjeknor]

Dit gebeurt server-side dus met asp of php oid.

[Verwijderd]

Mn guestbook is asp, dus welke codes hiervoor?

[Yoozer]

En het proces heet 'parsen'. Je zorgt er gewoon voor dat je de hele tekst "doorleest" met de code en vervolgens de combinatie ": )" omzet naar een <img> tag met bijbehorende code.

Bij de weg, welkom op Gathering of Tweakers. Lees s.v.p. eerst even de FAQ's van de fora Webdesign & Graphics en Programming & Webscripting, en dan vooral het onderdeel van scriptrequests. Het is de bedoeling dat je eerst zelf gaat zoeken hoe je een tekst die je met bijv. een form verstuurt gaat 'inlezen', en als je er dan niet uit komt, vraag dan pas om een oplossing. www.w3schools.com heeft een interessant stuk over ASP, misschien kun je daarmee vooruit. Stel deze vraag dan vervolgens niet hier, maar in het Programming & Webscripting forum.

[ Voor 99% gewijzigd door Yoozer op 21-03-2003 15:18 ]

[LauPro]

Mwa, beetje scriprequest, maar vooruit:

ASP:

    aEl = Array( _
    " B)"," [img]'/i/s/nerd.gif'[/img]", _
    " :?"," [img]'/i/s/confused.gif'[/img]", _
    " :s"," [img]'/i/s/confused.gif'[/img]", _
    " :S"," [img]'/i/s/confused.gif'[/img]", _
    " 8)7"," [img]'/i/s/bonk.gif'[/img]", _
    "7(8)7","[img]'/i/s/bonk3.gif'[/img]", _
    " :p"," [img]'/i/s/puh2.gif'[/img]", _
    " :P"," [img]'/i/s/puh2.gif'[/img]", _
    " :r"," [img]'/i/s/pukey.gif'[/img]", _
    " :7"," [img]'/i/s/loveit.gif'[/img]", _
    "[hr]","<hr size=1 />" _
    )
    
    For I = LBound(aEl) To UBound(aEl) Step 2
        sText = Replace(sText,aEl(I),aEl(I+1))
    Next

Dit is een verkorte versie van mijn smile/UBB-parser en de waarde sText wordt hierbij aangepast. Let er wel op dat je voor sommige smiles eerst ff toestemming moet vragen.

[Verwijderd]

ah parsen , nooit van gehoord, ik ga s zoeken naar parsen want ik kon hierover nergens wat over vinden...

[Verwijderd]

Microsoft VBScript compilation error '800a03ea'

Syntax error

/guestbook/message.asp, line 142

[Karp]

er zit blijkbaar een foutje in je script op regel 142

succes met debuggen?

[Verwijderd]

tnx hoor, fout is eruit mijn fout.
Maar met de code van LauPro gebeurd vrij weinig:

<%
aEl = Array( _
" X( "," [img]'images/icon01.gif'[/img]", _
"

---

","<hr size=1 />" _
)

For I = LBound(aEl) To UBound(aEl) Step 2
sText = Replace(sText,aEl(I),aEl(I+1))
Next
%>
geen foutmelding, site wordt gewoon getoond maar geen plaatje op plaats van de X(

[FitNiX]

Heb je wel gelet op hoofdletters etc

* FitNiX heeft het zelf iets anders gedaan: hij heeft een misschien ietwat ranzige methode gebruikt , Kijk en leer hoe het ook anders kan
[code=asp]
bericht = REPLACE(bericht,"X(", "[img]'images/icon01.gif'>") [/code] Je[/img][/b].
Resultaat, mooie smilies

[ Voor 137% gewijzigd door FitNiX op 21-03-2003 18:04 ]

[Reinier]

Even half off-topic, als je wil googlen voor nog meer hulp, schrijf dan gewoon emoticons zoals het hoort

[FitNiX]

Reinier schreef op 21 March 2003 @ 18:05:
Even half off-topic, als je wil googlen voor nog meer hulp, schrijf dan gewoon emoticons zoals het hoort

[offtopic]Ik vind dat niet echt offtopic hoor :o[/offtopic]

[Verwijderd]

vooruit dan maar.. (scriptrequests zijn eigenlijk niet toegestaan)
 

ASP:

<%  Set dbConn    = Server.CreateObject("ADODB.Connection")
 sConnection   = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source=" & Server.MapPath("database.mdb") & ";" & _
                 "Persist Security Info=False"
 dbConn.Open(sConnection)

SqlStrng = "SELECT * FROM Gbook WHERE Visable = 1 ORDER BY ID DESC"

Set rs = dbConn.Execute(SqlStrng)

IF NOT rs.EOF
DO While NOT rs.EOF

Message = Replace(rs("Message"),":)",    "[img]'layout/smilies/01.gif'>")
Message[/img]")

Response.Write Message &"<BR>"

rs.MoveNext
END IF
dbConn.Close %>

zoiets moet het dus worden

[ Voor 16% gewijzigd door Verwijderd op 21-03-2003 18:11 ]

[Verwijderd]

kan in asp en in js. voor asp zoek naar de replace functie (bijvoorbeeld op w3schools.com), voor js: zoek eveneens naar de replace functie (bv op w3schools.com) en naar regular expressions bv

http://www.rikkertkoppes.com/forum/jslib.js als voorbeeld, hierin staat een megafunctie (formatMessage) die vanalles omzet in wat anders

[Verwijderd]

toppie man (Y) tnx voor de info