Notifikationer

Markér alle som læst Log ud

t-rex Nybegynder

18. april 2001 - 01:13 Der er 5 kommentarer og
1 løsning

Chat???

Jeg er hved at laven en chat men jeg vil gerne have smilies på men jeg kan ikke på det til at virker så her er en del at dokumentet... så i kan se hvordan det er opbygget skriv hvis i skal bruge mere...

Next
PublicMessage = Server.HTMLEncode(Request(\"message\"))
Application(\"\"& Systemname &\"_publicmessage_1\") = \"<font color=\'\" & Actioncolor & \"\'><b>\" & Session(\"\"& Systemname &\"_chatname\") & Replace(Request(\"message\"), Left(Request(\"message\"), 4), \"\") & \"</b></font>\"
Response.Redirect \"chat.asp?mode=publicmessages\"
ElseIf InStr(LCase(Request(\"message\")), \"/tænk\") Then
For x = MaxPublicMessages To 2 Step -1
Application(\"\"& Systemname &\"_publicmessage_\" & x) = Application(\"\"& Systemname &\"_publicmessage_\" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request(\"message\"))
Application(\"\"& Systemname &\"_publicmessage_1\") = \"<font color=\'\" & Actioncolor & \"\'><b>\" & Session(\"\"& Systemname &\"_chatname\") & \": .oO( \" & Replace(Request(\"message\"), Left(Request(\"message\"), 5), \"\") & \" )</b></font>\"

Her er hvis du skriver /tænk...

Jeg vil gerne have at når jeg skriver i chatten eks. Hej :-) så vil den bytte smiliet ud med et billed og det skal ligne det script som er oven over...

Synes godt om

kornfreak Nybegynder

18. april 2001 - 01:18 #1

Application(\"\"& Systemname &\"_publicmessage_1\") = \"<font color=\'\" & Actioncolor & \"\'><b>\" & Session(\"\"& Systemname &\"_chatname\") & \": \" & Replace(Request(\"message\"), \":-)\", \"<img src=\"\"smile.gif\"\">\") & \" )</b></font>\"

Synes godt om

no_doubt Nybegynder

18. april 2001 - 01:21 #2

Måske du kan bruge dette :

<%

Response.Buffer = True
Dim Page, Mark, GladSmilie, SurSmilie, Text
GladSmilie = \"<img src=\"\"smilie1.gif\"\" alt=\"\"Glad\"\">\"
Mark = \"<img src=\"\"17.jpg\"\" alt=\"\"Mark\"\">\"
Page = \"<img src=\"\"images/2000.gif\"\" alt=\"\"Page\"\">\"
SurSmilie = \"<img src=\"\"smilie2.gif\"\" alt=\"\"Sur\"\">\"
Text = Request(\"tekst\")
Text = Server.HTMLEncode(Text)
Text = Replace(Text, \":-)\", GladSmilie)
Text = Replace(Text, \":-(\", SurSmilie)
Text = Replace(Text, \":;(\", Mark)
Text = Replace(Text, \"Shut the fuck up\", Page)
%>
<html>
<head>
<title>Smilie\'s (Replace)</title>
</head>
<body>
<hr>
<% Response.Write Text %>
<form name=\"smilies\" action=\"smilie.asp\" method=\"get\">
<p>Tekst: <input type=\"text\" name=\"tekst\" size=\"50\"> <input type=\"submit\" value=\" OK \"><br>
</form>
</body>
</html>

Synes godt om

t-rex Nybegynder

18. april 2001 - 01:25 #3

Når jeg skriver en besked... kommer den med den text den skal men den bliver hved med at skrive på en line og går ikke til næste...

Synes godt om

kornfreak Nybegynder

18. april 2001 - 01:28 #4

For x = MaxPublicMessages To 2 Step -1
Application(\"\"& Systemname &\"_publicmessage_\" & x) = Application(\"\"& Systemname &\"_publicmessage_\" & x-1)
Next
Application(\"\"& Systemname &\"_publicmessage_1\") = \"<font color=\'\" & Actioncolor & \"\'><b>\" & Session(\"\"& Systemname &\"_chatname\") & \": \" & Replace(Request(\"message\"), \":-)\", \"<img src=\"\"smile.gif\"\">\") & \" )</b></font>\"

Synes godt om

kornfreak Nybegynder

18. april 2001 - 01:28 #5

Nøj den fucker up...hehe...

Synes godt om

t-rex Nybegynder

18. april 2001 - 01:34 #6

Tak skal du have........

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