Notifikationer

Markér alle som læst Log ud

tjivs Nybegynder

27. april 2005 - 14:28 Der er 9 kommentarer

Smiley i Tagwall

dette her er min kode i min tagwall men vil gerne have så der kan komme smileys ind i nogen der kan hjælpe mig plz?

Her er koden

<title>Webstuffz</title>
<%
If Session("login") = true Then
%>
VIP Tagwall:<hr>

<hr>

<% if mode = "" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database.mdb")
strSQL = "SELECT * FROM tagwall order by id desc"
Set rs = myConn.Execute(strSQL)
Do until rs.eof %>
Skrevet af <a style="text-decoration: none" href="../profil.asp?id=<%=RS("brugerid")%>"><%=Server.HtmlEncode(rs("brugernavn"))%></a> den <%=Server.HtmlEncode(rs("oprettet"))%> 
<%=Server.HtmlEncode(rs("besked"))%> 


<%
rs.movenext
loop
myConn.Close
Set myConn = Nothing
end if %><%
Else
Response.Write "Du er ikke logget ind."
End If
%>

Hjælp plZ?

Synes godt om

fennec Nybegynder

27. april 2005 - 14:35 #1

Den nemme metode er at udskifte et smiley-tag med et billed:
<%=replace(Server.HtmlEncode(rs("besked")),":)","<img src=""smil.gif"">")%>

Så hvis der er indtastet :) bliver det udskiftet med et billed.

Synes godt om

tjivs Nybegynder

27. april 2005 - 14:37 #2

af hvad mener du lige med det?
du kan godt se min kode ikke?
jeg vil have så jeg bare kan skrive :) og det kommer en smiley ?

Synes godt om

fennec Nybegynder

27. april 2005 - 14:52 #3

Mener du at der skal komme en smily mens du skriver teksten i et tekstfelt, når du opretter en ny post?? Så hvis du skriver:
"hejsa alle. Godt at se jer :) Håber I har det godt."

Så bliver :) udskiftet med et billed i samme sek du trykker Shift+9. For det er meget svært, om ikke umuligt. Jeg kender i hvertfald ikke en metode.

Eller vil du bare skrive:
"hejsa alle. Godt at se jer :) Håber I har det godt."

Og når det så bliver vist på siden, bliver :) vist som en smiley i stedet, for det er den løsning jeg har lavet.

Synes godt om

tjivs Nybegynder

27. april 2005 - 15:02 #4

Eller vil du bare skrive:
"hejsa alle. Godt at se jer :) Håber I har det godt."

Og når det så bliver vist på siden, bliver :) vist som en smiley i stedet, for det er den løsning jeg har lavet.
det er hvad jeg vil have men ehmm kan du ikke prøve og ligge det ind i min kode? for mig

Synes godt om

fennec Nybegynder

27. april 2005 - 15:13 #5

Du skal bare udskifte:
<%=Server.HtmlEncode(rs("besked"))%> 

med:
<%=replace(Server.HtmlEncode(rs("besked")),":)","<img src=""smil.gif"">")%> 

Hvor smil.gif er det billed (smiley) du vil vise.

Synes godt om

tjivs Nybegynder

27. april 2005 - 15:13 #6

ja men ehmm
hvad nu vis jeg har 100 smileys?

Synes godt om

fennec Nybegynder

27. april 2005 - 15:27 #7

Forskellige smilyes???

Med replace() bliver alle forkomster af :) udskiftet med <img src="smil.gif">

Hvis du har flere forskellige "tags" som skal udskiftes med et tilsvarende billed skal du lave en replace for hver. Er det f.eks sådan her??
:) = <img src="smil.gif">
:( = <img src="sur.gif">
:D = <img src="Glad.gif">

Replacen kan evt smides i en funktion med noget array, så koden er mere overskuelig.

Synes godt om

tjivs Nybegynder

27. april 2005 - 15:38 #8

ja?
sæt lige 20 af sådan nogle kommandoer en med det samme tag i min kode og jeg retter selæv og du vinder de 30 point

Synes godt om

fennec Nybegynder

27. april 2005 - 16:06 #9

Dette burde gøre det:

...
Do until rs.eof %>
Skrevet af <a style="text-decoration: none" href="../profil.asp?id=<%=RS("brugerid")%>"><%=Server.HtmlEncode(rs("brugernavn"))%></a> den <%=Server.HtmlEncode(rs("oprettet"))%> 
<%
tmpBesked = Server.HtmlEncode(rs("besked"))
tmpBesked = replace(tmpBesked,":)","<img src=""smil.gif"">")
tmpBesked = replace(tmpBesked,":(","<img src=""sur.gif"">")
tmpBesked = replace(tmpBesked,":D","<img src=""glad.gif"">")
tmpBesked = replace(tmpBesked,";)","<img src=""blink.gif"">")
...
'endnu flere tmpBesked = replace(...)
...
response.write tmpBesked

%> 

<%
rs.movenext
loop
...

Det er faktisk kun:
<%=Server.HtmlEncode(rs("besked"))%>

Der er blevet udskiftet med:
<%
tmpBesked = Server.HtmlEncode(rs("besked"))
tmpBesked = replace(tmpBesked,":)","<img src=""smil.gif"">")
...
response.write tmpBesked
%>

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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