...

View Full Version : emoticons



zadjali2000
01-20-2003, 04:18 PM
Hi everybody;

I would like to know how the emoticons or the smilies are interpreted when saved into the database and then be viewed when calling them from the database again.

example:
I'm saving my message as follow:
I'm 'mad'
and when viewed
I'm :mad:

So if u have the answer in a website tutorial or u can handle it yourself i would be very thankful.

Yours

whammy
01-20-2003, 11:51 PM
Something like this?



<%
Function Emote(byVal str)

If IsNull(str) Then Exit Function

Dim EmotedStrings(5)

EmotedStrings(0) = "'mad'"
EmotedStrings(1) = "'happy'"
EmotedStrings(2) = "'sad'"
EmotedStrings(3) = "'embarrassed'"
EmotedStrings(4) = "'laughing'"

Dim Emoticons(5)

Emoticons(0) = "<img src=""images/mad.gif"" width=""15"" height=""15"" />"
Emoticons(1) = "<img src=""images/happy.gif"" width=""15"" height=""15"" />"
Emoticons(2) = "<img src=""images/sad.gif"" width=""15"" height=""15"" />"
Emoticons(3) = "<img src=""images/embarrassed.gif"" width=""15"" height=""15"" />"
Emoticons(4) = "<img src=""images/laughing.gif"" width=""15"" height=""15"" />"

Dim EmoteLoop

For EmoteLoop = 0 to 5
str = Replace(str,EmotedStrings(EmoteLoop),Emoticons(EmoteLoop))
Next

Emote = str

End Function

Dim teststring
teststring = "I am 'mad' today because I am no longer 'happy'. I get 'embarrassed' easily because when I'm 'laughing' it sounds pretty 'sad'."
Response.Write Emote(teststring)
%>

zadjali2000
01-21-2003, 12:04 AM
That's what i was looking for, thank you my friend



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum