Notifikationer

Markér alle som læst Log ud

doeboy Nybegynder

17. marts 2003 - 14:08 Der er 15 kommentarer og
1 løsning

Smilies i forum

hey har lige lykkedes mig at lave et Skrabed forum
opret ny besked / besvar beskeder
den kører på access
nu er jeg jo noob med asp osv.. men hvordan kan jeg nemmest lave så man kan inserte smilies nå man udfylder Form Under tekst feltet (altså ens spørgsmål osv..)

Synes godt om

medions Nybegynder

17. marts 2003 - 14:09 #1

http://www.eksperten.dk/kat/3/?searchtype=txt&words=Smilies&method=and&sort=score&catid=3

//>Rune

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 14:23 #2

kommentar = request.form("kommentar")
kommentar = replace(kommentar,":-)","<img src='glad smiley'>)

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 14:34 #3

Eller den udbyggede...
Function fncTextChange(strText)
strTekst = Trim(strText)
fncTextChange = Replace(strTekst,":-)","<img src='glad smiley'")
fncTextChange = Replace(fncTextChange,":-(","<img src='sur smiley'")
osv osv....
End Function

så kan du kalde den med:..
<%=fncTextChange(rs.fields("feltnavn"))%>

Synes godt om

oasen Nybegynder

17. marts 2003 - 14:38 #4

Hvis du skal have mange smileys kan du lave et array med henholdsvis smiley-symboler og tilhørende filnavne.
Og så herefter løbe dem i gennem og lave en replace (som vist ovenfor) for hver af positionerne i array'et.

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 14:38 #5

eller <%=fncTextChange(request.form("feltnavn"))%>

Synes godt om

doeboy Nybegynder

17. marts 2003 - 14:55 #6

<%
function smileys(tekst)
tekst = replace(tekst, \":)\", \"<img src=\'glad.gif\'>\")
tekst = replace(tekst, \":-(\", \"<img src=\'sur.jpg\'>\")
smileys = tekst
end function

'her laves en session til id af besked til besvarelse
Session("BeskedID") = Request("BeskedID")

'her åbnes databasen i forbindelse med Id feltet Beskedid
Set Forum = Server.CreateObject ("ADODB.Recordset")
Forum.Open "SELECT * FROM Beskeder WHERE beskedid=" & Request.QueryString ("Beskedid") ,database
%>

<html>
<head>
<title>Untitled</title>
</head>

<body>

<% ' her vises det originale Indlæg %>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%" bgcolor="gray">

<tr><td colspan="2" bgcolor="Silver"><center>Emne:<% = forum.Fields("BeskedEmne")%> </center></td></tr>
<tr>
<td width="50%"> Afsender</td>
<td width="50%"> <% = forum.Fields("Afsendernavn")%> <% = forum.Fields("AfsenderEmail")%></td>
</tr>
<tr>
<td width="50%">Besked</td>
<td width="50%"><% = forum.Fields("Beskedtekst")%></td>
</tr>

</table>
<a href="nybesvarelse.asp">Besvar dette indlæg</a>

<%
' her Lukkes det originale indlæg

forum.close
set forum = Nothing
%>

Virker ikke sådan kunne man evt få eksempel ??

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 14:59 #7

<%
function smileys(tekst)
tekst = replace(tekst, \":)\", \"<img src=\'glad.gif\'>\")
tekst = replace(tekst, \":-(\", \"<img src=\'sur.jpg\'>\")
smileys = tekst
end function

'her laves en session til id af besked til besvarelse
Session("BeskedID") = Request("BeskedID")

'her åbnes databasen i forbindelse med Id feltet Beskedid
Set Forum = Server.CreateObject ("ADODB.Recordset")
Forum.Open "SELECT * FROM Beskeder WHERE beskedid=" & Request.QueryString ("Beskedid") ,database
%>

<html>
<head>
<title>Untitled</title>
</head>

<body>

<% ' her vises det originale Indlæg %>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%" bgcolor="gray">

<tr><td colspan="2" bgcolor="Silver"><center>Emne:<% = forum.Fields("BeskedEmne")%> </center></td></tr>
<tr>
<td width="50%"> Afsender</td>
<td width="50%"> <% = forum.Fields("Afsendernavn")%> <% = forum.Fields("AfsenderEmail")%></td>
</tr>
<tr>
<td width="50%">Besked</td>
<td width="50%"><% = smileys(forum.Fields("Beskedtekst"))%></td>
</tr>

</table>
<a href="nybesvarelse.asp">Besvar dette indlæg</a>

<%
' her Lukkes det originale indlæg

forum.close
set forum = Nothing
%>

Synes godt om

doeboy Nybegynder

17. marts 2003 - 15:07 #8

Med følgende sætning kan jeg få en smilie frem nu men så er resten af teksten væk
<td width="50%">Besked</td>
<td width="50%"><%=fncTextChange(forum.fields("beskedtekst"))%>

Får en smilie Men resten af teksten kommer ikke med efter smilie ?

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 15:09 #9

Prøver det lige...!

2 sek..!

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 15:14 #10

<%
function smileys(tekst)
tekst = replace(tekst, ":)", " Glad smiley")
tekst = replace(tekst, ":-(", " Sur Smiley")
smileys = tekst
end function

'her laves en session til id af besked til besvarelse
Session("BeskedID") = Request("BeskedID")

'her åbnes databasen i forbindelse med Id feltet Beskedid
Set Forum = Server.CreateObject ("ADODB.Recordset")
Forum.Open "SELECT * FROM Beskeder WHERE beskedid=" & Request.QueryString ("Beskedid") ,database
%>

<html>
<head>
<title>Untitled</title>
</head>

<body>

<% ' her vises det originale Indlæg %>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%" bgcolor="gray">

<tr><td colspan="2" bgcolor="Silver"><center>Emne:<% = forum.Fields("BeskedEmne")%> </center></td></tr>
<tr>
<td width="50%"> Afsender</td>
<td width="50%"> <% = forum.Fields("Afsendernavn")%> <% = forum.Fields("AfsenderEmail")%></td>
</tr>
<tr>
<td width="50%">Besked</td>
<td width="50%"><% = smileys(forum.Fields("Beskedtekst"))%></td>
</tr>

</table>
<a href="nybesvarelse.asp">Besvar dette indlæg</a>

<%
' her Lukkes det originale indlæg

forum.close
set forum = Nothing
%>

Dette virker glimrende hos mig...

Synes godt om

doeboy Nybegynder

17. marts 2003 - 15:14 #11

Hey prøvede dit overstående eksempel
men fåår følgende
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/ny/visemne.asp, line 4, column 23
tekst = replace(tekst, \":)\", \"<img src=\'glad.gif\'>\")

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 15:16 #12

drop de der \ hele tiden..:!

Gør det som det sidste jeg skrev ind..

Synes godt om

doeboy Nybegynder

17. marts 2003 - 15:18 #13

øhh ja altså det oven over det andet =)

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 15:19 #14

nej, det sidste jeg skrev...

Synes godt om

doeboy Nybegynder

17. marts 2003 - 15:23 #15

Mange Tak Har fået det til at Virke =)) har give points

Synes godt om

ellebaek Nybegynder

17. marts 2003 - 15:24 #16

Selv tak...

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
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
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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