Notifikationer

Markér alle som læst Log ud

*gizmo* Nybegynder

11. juni 2001 - 15:24 Der er 29 kommentarer og
1 løsning

Vil du gerne have 150 point ???

Okay jeg vil gerne have sådan noget smiley på min tagwall. Hvis man f.eks skriver :D i kommentar så vil jeg gerne have et script som laver :D om til et billede.

Jeg har altid villet vide dette !!!

Synes godt om

keysersoze Ekspert

11. juni 2001 - 15:26 #1

her er to mulige måder:

<% =replace(rs(\"tekst\"), \":-)\", \"<img src=\'smil.jpg\'>\") %>

------------------

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

tekst = replace(tekst, \":-(\", \"<img src=\'sur.jpg\'>\")

smileys = tekst
end function

response.write(smileys(rs(\"tektst\")))

Synes godt om

slash Nybegynder

11. juni 2001 - 15:27 #2

noget i retning af dette:

replace(\":D\",\"<img src=\'smil.gif\'>\")

Synes godt om

djarnis Nybegynder

11. juni 2001 - 15:30 #3

Ah, det er nemt nok ;) Du skal bare rewrite dit database udtræk ;)
F.eks:
besked = Replace(besked,\":D\",\"<img src=gfx/din_smily.gif>\")

Synes godt om

tdaugaard Nybegynder

11. juni 2001 - 15:32 #4

150 point !?!

Synes godt om

hookups Nybegynder

11. juni 2001 - 17:24 #5

Du kan også bruge regular expressions men det er en længere og mere besværlig forklaring.....

www.4guysfromrolla.com

her kan du læse mere om regular expressions .... som alle jo nok ved er rimeligt cool til at finde ting og sager i strenge

Synes godt om

djarnis Nybegynder

11. juni 2001 - 17:28 #6

OK Gizmo, her har du et guld link til en allerede eksisterende smily tagwall - nem at tilrette og god at lære af ;) Håber du kan bruge den ;))

http://www.netcoders.dk/sources.asp?mode=ref&id=1591&type=0

Synes godt om

-mascot- Nybegynder

11. juni 2001 - 17:51 #7

keysersoze\'s er en rigtig smart måde at gøre det på :)
det er faktisk den jeg bruger når jeg skal lave det :)

Synes godt om

mindtwister Nybegynder

11. juni 2001 - 19:01 #8

Hvad jeg ikke forstår er at alle skriver det samme... som om der ikke er andre der har skrevet det...

Synes godt om

sbm Nybegynder

11. juni 2001 - 19:33 #9

mindtwister >> Klassisk problem. Folk læser spørgsmålet før der er skrevet nogen besvarelser. Så skriver de et svar, eller kigger i nogle filer de selv har liggende, hvor de selv gør noget lignende, og så skriver det. Når de submitter, er der i mellemtiden andre der har skrevet.

Bemærk at der er under fire minutter mellem de tre første indlæg.

Synes godt om

okay Nybegynder

12. juni 2001 - 01:23 #10

Du kan gøre det lidt nemt for dig selv sådan her:

strKommentar = rs(\"kommetare\")

arrSmiley = Array(\":-)\", \";-)\", \":-(\")
arrImages = Array(\"<img src=\"\"/sti/til/smiley1.gif\"\">\", \"<img src=\"\"/sti/til/smiley2.gif\"\">\", \"<img src=\"\"/sti/til/smiley3.gif\"\">\")

For i = 0 To UBound(arrSmiley)
Replace(strKommentar, arrSmiley(i), arrImages(i))
Next

Hver ny smiley skal du så bare føje til arrayet arrSmiley, og det tilsvarende <IMG> tag til arrImages (de skal selvfølgelig være i samme rækkefølge).

Synes godt om

okay Nybegynder

12. juni 2001 - 01:23 #11

smid det her op i toppen af din asp fil:

<%
function smileys(smil)
smil = Replace(smil, \":)\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley-happy.gif\"\">\")
smil = Replace(smil, \";)\", \"<img width=15 height=15 border=0 src=\"\"smileys/wink.gif\"\">\")
smil = Replace(smil, \":(\", \"<img width=15 height=15 border=0 src=\"\"smileys/angry.gif\"\">\")
smil = Replace(smil, \":D\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin.gif\"\">\")
smil = Replace(smil, \":P\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin2.gif\"\">\")
smil = Replace(smil, \":}\", \"<img width=15 height=15 border=0 src=\"\"smileys/tongue.gif\"\">\")
smil = Replace(smil, \";o\", \"<img width=15 height=15 border=0 src=\"\"smileys/redface.gif\"\">\")
smil = Replace(smil, \";}\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley8.gif\"\">\")
smileys = smil
end function
%>
og i steden foat skrive:
<% = rs(\"kommetare\") %>
skal du skrive:
<% = (smileys(rs(\"kommetare\"))) %>

det er en lidt smartere måde...

Synes godt om

keysersoze Ekspert

12. juni 2001 - 01:40 #12

okay >> flot at bruge samme eksempel som mig...

Synes godt om

*gizmo* Nybegynder

12. juni 2001 - 06:06 #13

intet af det virker alle også kan jeg ikke finde ud af det jeg giver lige alle koden til min tagwall.

<%
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = \"SELECT TOP 20 * FROM tagwall ORDER BY Dato DESC\"
Set rs = Con.Execute(Sql)
%>

<html>
<head>
<title>[AoK] - Art of Killing</title>
<link rel=\"stylesheet\" href=\"aok.css\" type=\"text/css\">
</head>
<body>

<table align=\"center\" width=\"788\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr>
<td height=\"113\" colspan=\"5\" width=\"788\" align=\"center\"><img src=\"billeder/main/logo.jpg\" width=\"788\" height=\"113\" border=\"0\" alt=\"\"></td>
</tr>
<tr>
<td height=\"9\" colspan=\"5\" width=\"788\"></td>
</tr>
<tr>
<td width=\"130\" valign=\"top\">
<table align=\"center\" bgcolor=\"333333\" width=\"130\" border=\"0\" cellspacing=\"1\" cellpadding=\"2\">
<tr>
<td bgcolor=\"111111\"><center>Service</center></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp\">Nyheder</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=arkiv\">Nyheds Arkiv</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=downloads\">Downloads</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=links\">Links</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"#\" onclick=\"this.style.behavior=\'url(#default#homepage)\';this.setHomePage(\'http://www.clan-aok.dk\');\">Startside</a></td>
</tr>
<tr>
<td bgcolor=\"111111\"><center>Clan [AoK]</center></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=info\">Info om [AoK]</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=medlemmer\">Medlemmer</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=blivmedlem\">Bliv Medlem</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=udfordre\">Udfordre</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=tagwall\">Tagwall</a></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=servere\">Servere</a></td>
</tr>
</tr>
<td bgcolor=\"000000\">* <a href=\"index.asp?mode=afstemning\">Afstemning</a></td>
</tr>
<tr>
<td bgcolor=\"111111\"><center>Medlem</center></td>
</tr>
<tr>
<td bgcolor=\"000000\">* <a href=\"login.asp\">Login</a></td>
</tr>
</table>

</td>
<td width=\"15\"></td>
<td width=\"510\" valign=\"top\">
<table align=\"center\" width=\"510\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr>
<td width=\"3\"></td>
<td width=\"510\" bgcolor=\"#000000\">
<center>
[AoK] Tagwallen er til alle besøgende sæt dit tag har så vi kan se du har været her. 
Der er <%=rs(\"antal\")%>
<%
If rs(\"antal\") = \"1 \" Then
Response.Write \" tags\"
Else
Response.Write \" tag\"
End If
%>
på Tagwallen.
</center>
 
<table width=\"510\" border=\"0\" bgcolor=\"#333333\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#111111\" align=\"center\" width=\"100%\">
[ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]           [ <a href=\"index.asp?mode=tagwall=opret\">Skriv på Tagwallen</a> ]           [ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]
</td>
</tr>
<tr>
<td bgcolor=\"#000000\" align=\"center\" colspan=\"2\">
<hr width=\"480\" color=\"#333333\" size=\"1\">

<% Do While Not rs.EOF %>

<table width=\"480\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\">
<tr>
<td align=\"left\" valign=\"top\" width=\"150\">Dato</td><td align=\"left\" valign=\"top\" width=\"380\"><%= FormatDateTime(rs(\"Dato\"),1)%> - <%= FormatDateTime(rs(\"Dato\"),3)%></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"150\">Navn</td><td align=\"left\" valign=\"top\" width=\"380\"><a href=\"mailto:<%=rs(\"mail\")%>\"><%=rs(\"navn\")%></a></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"150\">ICQ</td><td align=\"left\" valign=\"top\" width=\"380\"><%=rs(\"icq\")%></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"150\">Hjemmeside</td><td align=\"left\" valign=\"top\" width=\"380\"><a href=\"<%=rs(\"url\")%>\" target=\"_blank\"><%=rs(\"url\")%></a></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" colspan=\"2\" width=\"480\">
 <%=rs(\"tag\")%>
<hr width=\"480\" color=\"#333333\" size=\"1\"></td>
</tr>
</table>

<%
rs.MoveNext
Loop
%>

</td>
</tr>
<tr>
<td bgcolor=\"#111111\" align=\"center\" width=\"100%\">
[ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]           [ <a href=\"index.asp?mode=tagwall=opret\">Skriv på Tagwallen</a> ]           [ <a href=\"index.asp?mode=tagwall=all\">Vis alle Tags</a> ]
</td>
</tr>
</table>

</td>
<td width=\"30\"></td>
</tr>
</table>
</td>
<td width=\"15\"></td>
<td width=\"130\" valign=\"top\">

<table align=\"center\" bgcolor=\"333333\" width=\"130\" border=\"0\" cellspacing=\"1\" cellpadding=\"2\">
<tr>
<td bgcolor=\"111111\"><center>Spil</center></td>
</tr>
<tr>
<td bgcolor=\"000000\">* [AoK] Sir Killalot</td>
</tr>
<tr>
<td bgcolor=\"000000\">* [AoK] Conan</td>
</tr>
<tr>
<td bgcolor=\"000000\">* [AoK] KnoX</td>
</tr>
<tr>
<td bgcolor=\"000000\">* [AoK] Duke\'s Help</td>
</tr>
<tr>
<td bgcolor=\"000000\">* [AoK] Gizmo</td>
</tr>
<tr>
<td bgcolor=\"000000\">* [AoK] ARiculaR</td>
</tr>
</table>

</body>
</html>

Synes godt om

*gizmo* Nybegynder

12. juni 2001 - 06:15 #14

altså even...

jeg bruger pws (Personal Web Server) til at checke om scriptene virker !

Synes godt om

*gizmo* Nybegynder

12. juni 2001 - 07:34 #15

ARGH jeg prøver lige igen

intet af det virker eller også kan jeg ikke finde ud af det jeg giver lige koden til min tagwall.

Synes godt om

djarnis Nybegynder

12. juni 2001 - 08:35 #16

Gizmo, - har du prøvet det link jeg sendte? ;) ... Det fungere i al fald ... Der kan du se hvordan det skal gøres, eller i al fald få noget inspiration og nogle gode ideer ;)

Synes godt om

keysersoze Ekspert

12. juni 2001 - 10:42 #17

hvad fejl får du?

hvilken del af koden foregår selve udskrivningen, hvor erstatningen skal ske?

Synes godt om

okay Nybegynder

12. juni 2001 - 10:51 #18

keysersoze > jeg har ik bruge den samme måde ?

Synes godt om

okay Nybegynder

12. juni 2001 - 10:55 #19

sorry > jeg har ik brugt den samme måde, som du har givet ham, min er bare nemmere at bruge :o)

Synes godt om

keysersoze Ekspert

12. juni 2001 - 11:12 #20

fortæl mig lige hvor forskellen ligger:

mit

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

tekst = replace(tekst, \":-(\", \"<img src=\'sur.jpg\'>\")

smileys = tekst
end function

response.write(smileys(rs(\"tektst\")))

-----------------

dit

function smileys(smil)
smil = Replace(smil, \":)\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley-happy.gif\"\">\")
smil = Replace(smil, \";)\", \"<img width=15 height=15 border=0 src=\"\"smileys/wink.gif\"\">\")
smil = Replace(smil, \":(\", \"<img width=15 height=15 border=0 src=\"\"smileys/angry.gif\"\">\")
smil = Replace(smil, \":D\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin.gif\"\">\")
smil = Replace(smil, \":P\", \"<img width=15 height=15 border=0 src=\"\"smileys/biggrin2.gif\"\">\")
smil = Replace(smil, \":}\", \"<img width=15 height=15 border=0 src=\"\"smileys/tongue.gif\"\">\")
smil = Replace(smil, \";o\", \"<img width=15 height=15 border=0 src=\"\"smileys/redface.gif\"\">\")
smil = Replace(smil, \";}\", \"<img width=15 height=15 border=0 src=\"\"smileys/smiley8.gif\"\">\")
smileys = smil
end function
%>
og i steden foat skrive:
<% = rs(\"kommetare\") %>
skal du skrive:
<% = (smileys(rs(\"kommetare\"))) %>

Synes godt om

*gizmo* Nybegynder

12. juni 2001 - 13:33 #21

TAK dig der okay dit lort virkede Gizmo out...

Synes godt om

okay Nybegynder

12. juni 2001 - 13:52 #22

mit lort ? *lol*

anyway np :o)

Synes godt om

keysersoze Ekspert

12. juni 2001 - 14:05 #23

og så er det lige jeg prøver en gang til - hvad var forskellen?

Synes godt om

*gizmo* Nybegynder

12. juni 2001 - 14:29 #24

han beskrev bare hvor jeg skulle sætte det hen og hvad det gjorde.

Synes godt om

keysersoze Ekspert

12. juni 2001 - 14:35 #25

ok - men da jeg tidligere spurgte hvad problemet var svarede du ikke - men ok; hvis det var sjovere at få hjælp af okay så...

EOD

Synes godt om

-mascot- Nybegynder

12. juni 2001 - 17:42 #26

LOL...at okay lige kan score 150 point på noget han ikke engang selv har lavet....det er sq...LOL

Synes godt om

okay Nybegynder

13. juni 2001 - 17:40 #27

mascot > ;o)

Synes godt om

okay Nybegynder

13. juni 2001 - 17:41 #28

keysersoze > min var nemmere at bruge :o)

Synes godt om

-mascot- Nybegynder

13. juni 2001 - 17:43 #29

LOL....i skriver jo fuldkoment det samme!!!!

Synes godt om

okay Nybegynder

13. juni 2001 - 17:54 #30

jeg forstod intet af keysersoze måde :o) jeg synes min er mere overskuligt...

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