Notifikationer

Markér alle som læst Log ud

-mascot- Nybegynder

23. maj 2001 - 18:36 Der er 7 kommentarer og
1 løsning

Replace

Jeg har lavet en tagwall..
Jeg vil have så man kan f.eks. skrive: ;) også kommer der et billed...jeg ved overhoved slet ikke hvordan man bruger Replace komandoen....HJÆLP!!!

-Mascot-

Synes godt om

no_doubt Nybegynder

23. maj 2001 - 18:38 #1

http://62.243.10.58/scripts/Asp%20-%20Replace%20(Ærstat%20tekst%20med%20billeder).asp

Synes godt om

bjarke-b Nybegynder

23. maj 2001 - 18:38 #2

<%=replace(variabel, \";)\", \"<img src=\"smiley.gif\")%>

Synes godt om

tdaugaard Nybegynder

23. maj 2001 - 18:39 #3

streng = \"Hejsa :-)\"
streng = Replace(streng, \":-)\", \"<img src=\'happysmile.gif\'>\")

sådan :-)

Synes godt om

no_doubt Nybegynder

23. maj 2001 - 18:39 #4

Kig lidt på denne : <%

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

keysersoze Ekspert

23. maj 2001 - 18:41 #5

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

-mascot- Nybegynder

23. maj 2001 - 18:41 #6

her er min kode:

<html>
<head>
<title>Mascot\'s Simple Tagwall ver. 1.0</title>
</head>
<body>
<%
Response.Write \"<div align=center><a href=tag.asp>Nyt Tag</a><br><br><br><br>\"
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tagwall.mdb\") & \";UID=admin;PWD=;\"

Set myConn = Server.CreateObject(\"ADODB.Connection\")
Nyhed = \"SELECT * FROM tagwall ORDER BY ID DESC;\"
myConn.Open tempConn
Set rs = myConn.Execute(Nyhed)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF

Response.Write \"<table border=1 cellpadding=0 cellspacing=0 bordercolor=#000000>\" & \"<tr>\" & \"<td>\" & \"Navn:   \"
Response.Write \"</td>\" & \"<td> \" & rs(\"navn\") & \"</td>\" & \"</tr><tr><td>\" & \"Tekst:   \" & \"</td><td> \" & rs(\"tag\")
Response.Write \"</td></tr></table><br><br>\"

rs.MoveNext
Loop
Else
Response.Write \"<p>No Tags!!!!</p>\"
End If
Response.Write \"</div>\"
myConn.Close
Set myConn = Nothing
%>
</body>
</html>

er der ikke lige nogen der gider at smide det der Replace ting ind i koden ???

Synes godt om

keysersoze Ekspert

23. maj 2001 - 18:48 #7

er ikke lige testet - men prøv engang

<html>
<head>
<title>Mascot\'s Simple Tagwall ver. 1.0</title>
</head>
<body>
<%

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

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

smileys = tekst
end function

Response.Write \"<div align=center><a href=tag.asp>Nyt Tag</a><br><br><br><br>\"
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tagwall.mdb\") & \";UID=admin;PWD=;\"

Set myConn = Server.CreateObject(\"ADODB.Connection\")
Nyhed = \"SELECT * FROM tagwall ORDER BY ID DESC;\"
myConn.Open tempConn
Set rs = myConn.Execute(Nyhed)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF

Response.Write \"<table border=1 cellpadding=0 cellspacing=0 bordercolor=#000000>\" & \"<tr>\" & \"<td>\" & \"Navn:   \"
Response.Write \"</td>\" & \"<td> \" & rs(\"navn\") & \"</td>\" & \"</tr><tr><td>\" & \"Tekst:   \" & \"</td><td> \"
response.write(smileys(rs(\"tektst\")))
Response.Write \"</td></tr></table><br><br>\"

rs.MoveNext
Loop
Else
Response.Write \"<p>No Tags!!!!</p>\"
End If
Response.Write \"</div>\"
myConn.Close
Set myConn = Nothing
%>
</body>
</html>

Synes godt om

-mascot- Nybegynder

23. maj 2001 - 18:52 #8

hehe....jeg har lige selv fundet ud af det men det er dig der skal have pointene fordi det var dit der virkede...

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