Notifikationer

Markér alle som læst Log ud

flax Nybegynder

21. marts 2001 - 21:44 Der er 21 kommentarer og
1 løsning

Flere smilyes i chat

Hey er der nogen der kan fortælle mig hvorfor jeg kun kan lave den nederste smiley i \"replace\" funktionen.. altså det er kun denne smiley der kan kaldes vha. replace funktionen:
chatlen1 = Replace(chatlen, \":D\", \"<img src=\\smileypics\\happy.jpg>\")
Her starten af min fil...

<%

chatlen=\"\"

chatusername = session(\"chatloginname\")
chatlen = Trim(Request.Form(\"chattext\"))

if len(chatlen) > 1 then
chatlen1 = Replace(chatlen, \":(\", \"<img src=\\smileypics\\sad.jpg>\")
address = Trim(Request.Form(\"users\"))

if len(chatlen) > 1 then
chatlen1 = Replace(chatlen, \":)\", \"<img src=\\smileypics\\smiley.jpg>\")
chatlen1 = Replace(chatlen, \":(\", \"<img src=\\smileypics\\sad.jpg>\")
chatlen1 = Replace(chatlen, \":%\", \"<img src=\\smileypics\\angry.jpg>\")
chatlen1 = Replace(chatlen, \";)\", \"<img src=\\smileypics\\happyblink.jpg>\")
chatlen1 = Replace(chatlen, \":p\", \"<img src=\\smileypics\\tunge.jpg>\")
chatlen1 = Replace(chatlen, \":I\", \"<img src=\\smileypics\\cool.jpg>\")
chatlen1 = Replace(chatlen, \":D\", \"<img src=\\smileypics\\happy.jpg>\")

address = Trim(Request.Form(\"users\"))

if address = \"all\" Then
color=\"black\"

else

color=\"red\"
end if

Synes godt om

tdaugaard Nybegynder

21. marts 2001 - 21:45 #1

Fordi du erstatter i den samme streng hver gang. brug denne her:

chatlen1 = Replace(chatlen, \":)\", \"<img src=\\smileypics\\smiley.jpg>\")
chatlen1 = Replace(chatlen1, \":(\", \"<img src=\\smileypics\\sad.jpg>\")
chatlen1 = Replace(chatlen1, \":%\", \"<img src=\\smileypics\\angry.jpg>\")
chatlen1 = Replace(chatlen1, \";)\", \"<img src=\\smileypics\\happyblink.jpg>\")
chatlen1 = Replace(chatlen1, \":p\", \"<img src=\\smileypics\\tunge.jpg>\")
chatlen1 = Replace(chatlen1, \":I\", \"<img src=\\smileypics\\cool.jpg>\")
chatlen1 = Replace(chatlen1, \":D\", \"<img src=\\smileypics\\happy.jpg>\")

Synes godt om

flax Nybegynder

21. marts 2001 - 21:45 #2

JEg har prøvet at bytte de firskellige Replace ... ud, og det er altid kun den nederste der virker, når jeg uploader...

Hvad mangeler jeg at skrive??

Hjælp..

Synes godt om

tdaugaard Nybegynder

21. marts 2001 - 21:46 #3

Alt i alt bliver det til:

<%

chatlen=\"\"

chatusername = session(\"chatloginname\")
chatlen = Trim(Request.Form(\"chattext\"))

if len(chatlen) > 1 then
chatlen1 = Replace(chatlen, \":(\", \"<img src=\\smileypics\\sad.jpg>\")
address = Trim(Request.Form(\"users\"))

if len(chatlen) > 1 then
chatlen1 = Replace(chatlen, \":)\", \"<img src=\\smileypics\\smiley.jpg>\")
chatlen1 = Replace(chatlen1, \":(\", \"<img src=\\smileypics\\sad.jpg>\")
chatlen1 = Replace(chatlen1, \":%\", \"<img src=\\smileypics\\angry.jpg>\")
chatlen1 = Replace(chatlen1, \";)\", \"<img src=\\smileypics\\happyblink.jpg>\")
chatlen1 = Replace(chatlen1, \":p\", \"<img src=\\smileypics\\tunge.jpg>\")
chatlen1 = Replace(chatlen1, \":I\", \"<img src=\\smileypics\\cool.jpg>\")
chatlen1 = Replace(chatlen1, \":D\", \"<img src=\\smileypics\\happy.jpg>\")
address = Trim(Request.Form(\"users\"))

if address = \"all\" Then
color=\"black\"

else

color=\"red\"
end if

Synes godt om

snowball Novice

21. marts 2001 - 21:48 #4

Fordi du skal gå ind og tjekke på hvad der står i teksten før du bestemmer dig for hvilket tegn det er. Her sætter du bare chatlen1 til først :) så :( osv. og til sidst :D. Derfor vil du med den kode altid få den sidste.

Så du bli\'r nødt til at sætte nogle if og else if (eller case hvis man kan bruge det i ASP!?)

Snowball

Synes godt om

tpiil Nybegynder

21. marts 2001 - 21:48 #5

chatlen1 = chatlen1 & Replace(chatlen, \":)\", \"<img src=\\smileypics\\smiley.jpg>\")
chatlen1 = chatlen1 & Replace(chatlen1, \":(\", \"<img src=\\smileypics\\sad.jpg>\")
chatlen1 = chatlen1 & Replace(chatlen1, \":%\", \"<img src=\\smileypics\\angry.jpg>\")
chatlen1 = chatlen1 & Replace(chatlen1, \";)\", \"<img src=\\smileypics\\happyblink.jpg>\")
chatlen1 = chatlen1 & Replace(chatlen1, \":p\", \"<img src=\\smileypics\\tunge.jpg>\")
chatlen1 = chatlen1 & Replace(chatlen1, \":I\", \"<img src=\\smileypics\\cool.jpg>\")
chatlen1 = chatlen1 & Replace(chatlen1, \":D\", \"<img src=\\smileypics\\happy.jpg>\")

Synes godt om

tpiil Nybegynder

21. marts 2001 - 21:49 #6

ups det går helt galt :)

Synes godt om

tdaugaard Nybegynder

21. marts 2001 - 21:51 #7

tpiil:> *LÅÅÅL*

Synes godt om

flax Nybegynder

21. marts 2001 - 21:58 #8

tdaugaard :

Gider du ikke lige sende på mail:
q@djq.dk

Så skal du nok få point hvis det virker, det er bare irriterende at når man laver copy paste, så bliver <> skiftet ud....

thanx :)

Synes godt om

tdaugaard Nybegynder

21. marts 2001 - 22:36 #9

Er sendt :-)

Synes godt om

no_doubt Nybegynder

21. marts 2001 - 23:02 #10

tdaugaard, har du en chat færdiglavet ?

Synes godt om

tdaugaard Nybegynder

21. marts 2001 - 23:04 #11

no_doubt:> ja da :-) Du har måske brug for en ?

Synes godt om

no_doubt Nybegynder

21. marts 2001 - 23:09 #12

Tja men den skal have privatsnak og smilyes, og alle de sjove funktioner *s* Og sætte ind i et design på www.zequenze.dk

Synes godt om

tdaugaard Nybegynder

21. marts 2001 - 23:12 #13

Det har den skam også ... og admin funktioner, \"gem chatten\" funktion osv. .. der er dog EEN lille fejl i den .. men den får jeg snart rettet ...

Men den kan ikke sættes ind i et design, da den er konstrueret på en specielt måde ..

du kan se den på www.tdaugaard.dk/c

Synes godt om

no_doubt Nybegynder

21. marts 2001 - 23:53 #14

hvor meget skal du have for at lave en kun med smileys og privatchat ? til mit design

Synes godt om

horsmark Nybegynder

22. marts 2001 - 00:21 #15

tdaugaard hmmm prøvede lige at logge mig på og skrive et par tusinde tegn i EN sætning = Nedsmeltning :-)

Mvh.
HorsMark

Synes godt om

tdaugaard Nybegynder

22. marts 2001 - 00:37 #16

no_doubt:> jeg har desværre ikke tid til flere freelance opgaver i øjbelikket ..

horsmark:> isn\'t it typical ... som jeg sagde er der en lille fejl .. det kan være den :o)

Synes godt om

tdaugaard Nybegynder

22. marts 2001 - 00:55 #17

horsmark:> jeg har nemlig selv afprøvet den med over 6K tegn .. no probs ... så det må være en lille bitte fejl...

Synes godt om

horsmark Nybegynder

22. marts 2001 - 09:20 #18

tdaugaard>>
Det ser eller total fedt ud! På en skala fra 1-10 får den et 8½ tal

De sidste 1½ vil du få med rigtig fed grafik ;-)

Den gik egentligt ikke ned MEN den tog cirka 4-5 min. om at sætte min monsterlange sætning ind. Måske ville det være en idé at sætte en maxlængde på?

Mvh.
HorsMarken

Synes godt om

tdaugaard Nybegynder

22. marts 2001 - 15:59 #19

horsmark:> Tak :-) Hæ hæ .. grafik ? moi ? *lååål* det må være din spøg *G*
Jeg er SÅ dårlig til grafik *G*

Jeg tror jeg skal have sat en begrænsning på ;o)

Synes godt om

tdaugaard Nybegynder

22. marts 2001 - 16:00 #20

flax:> hvaaaøøø ?

Synes godt om

tdaugaard Nybegynder

29. marts 2001 - 00:35 #21

tak :-)

Synes godt om

flax Nybegynder

29. marts 2001 - 00:36 #22

UNDSKYLD DEN LANGE VENTE TID MED UDELING AF POINT TDAUGAARD.

JEg har det skidt med det, specielt for di du var så hurtig med svar, men jeg har altså ikke fået det til at dutte endnu... Du får point alligevel!

Hygge hejsa, jeg håbet du vil hjælpe i fremtiden, trods den lange vente tid,sorry!

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS