Notifikationer

Markér alle som læst Log ud

tichicken Nybegynder

31. marts 2002 - 00:38 Der er 20 kommentarer og
1 løsning

html i tagwall

Jeg har en tagwall på min side, den vil jeg gerne have lavet sådan at man ikke kan bruge html i den, hvordan gør jeg det ? :D

Synes godt om

cms Nybegynder

31. marts 2002 - 00:42 #1

Function stripHTML(strHTML)
strOutput = strHTML
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput
End Function

Synes godt om

tichicken Nybegynder

31. marts 2002 - 00:45 #2

ok, nu er jeg ikke ekspert i asp, så hvor skal det skrives ? :D

og kan jeg ikke lige få forklaret hvad det er den gør ? :)

Synes godt om

hono Nybegynder

31. marts 2002 - 00:46 #3

cms >> du regerer i alle kategorier eller hvad? :O)

Synes godt om

tichicken Nybegynder

31. marts 2002 - 00:46 #4

altså hvad det er den gør bestemte steder, fordi jeg synes bare det ser ud til at den skifter < ud med < og > ud med >, så for mig giver det ingen mening :D

Synes godt om

cms Nybegynder

31. marts 2002 - 00:47 #5

nej lorteeksperten! den har formateret min kode!
se
http://e.innovision.it/ASP/StripHTML/index.txt

den laver < om til &lt; og > om til &gt;

Synes godt om

cms Nybegynder

31. marts 2002 - 00:49 #6

der hvor du printer det som de har indskrevet i tagwallen, gør du sådan:

<% response.write StripHTML(Comments) %>

Hvis det nu var comments variablen hed

Synes godt om

tichicken Nybegynder

31. marts 2002 - 00:53 #7

ok, nu har jeg i forvejen lavet sådan at man kan bruge smileys:

tag = rs("tag")
tag = Replace(tag,":D","<img src=""grin.gif"">")

hvordan "kobler" jeg de to ting sammen ?

Synes godt om

cms Nybegynder

31. marts 2002 - 00:55 #8

tag = rs("tag")
tag = Replace(tag,":D","<img src=""grin.gif"">")
tag = stripHTML(tag)

Synes godt om

cms Nybegynder

31. marts 2002 - 00:56 #9

doh!
omvendt:

tag = rs("tag")
tag = stripHTML(tag)
tag = Replace(tag,":D","<img src=""grin.gif"">")

Synes godt om

cms Nybegynder

31. marts 2002 - 00:59 #10

hono>> efter kl 0.00 styrer jeg ALLE kategorier !!! *G*

Synes godt om

hono Nybegynder

31. marts 2002 - 01:01 #11

hehe :)

Synes godt om

2-maz_temp Nybegynder

31. marts 2002 - 01:11 #12

Response.Write Server.HTMLEncode(dintekst)

Synes godt om

2-maz_temp Nybegynder

31. marts 2002 - 01:13 #13

se mere her http://activedeveloper.dk/aspdigital/appendix_a/server.asp

Synes godt om

2-maz_temp Nybegynder

31. marts 2002 - 01:14 #14

http://activedeveloper.dk/aspdigital/appendix_a/server_objektet.asp

Synes godt om

cms Nybegynder

31. marts 2002 - 01:15 #15

den gør jo sådan set præcis det samme... skægt nok :)

Synes godt om

2-maz_temp Nybegynder

31. marts 2002 - 01:17 #16

Eller du kunne bruge den her =D

<html><head>
<title>Fjern HTML tags</title>
</head><body>

<%
Function RemoveHTML(strContent)
Do
pos = 1
tmpBegin = InStr(pos,strContent,"<")
If tmpBegin > 0 Then
pos = tmpBegin
If LCase(mid(strContent,tmpBegin,7)) = "<script" Then
' Her fjernes script kode
tmpEnd = Instr(tmpBegin,LCase(strContent),"</script>")
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-8)
ElseIf LCase(mid(strContent,tmpBegin,2)) = Chr(60) & "%" Then
' Her fjernes ASP kode
tmpEnd = Instr(tmpBegin,LCase(strContent),"%" & Chr(62))
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-3)
Else
' Her fjernes HTML kode
tmpEnd = InStr(pos,strContent,">")
If tmpEnd > 0 Then
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd)
Else
strContent = Left(strContent,tmpBegin-1)
Exit Do
End If
End If
Else
Exit Do
End If
Loop
RemoveHTML = strContent
End Function

tmpContent = Trim(Request.Form("HTML"))
If Len(tmpContent) > 0 Then
Response.Write Replace(RemoveHTML(tmpContent), vbCrLf, "<br>")
Response.End
End If
%>

<form method="POST">
<textarea name="HTML" cols="70" rows="15"></textarea>
<br><input type="submit" name="Action" value="Fjern HTML">
</form>

</body></html>

Synes godt om

tichicken Nybegynder

31. marts 2002 - 01:25 #17

ok, nu er jeg faktisk helt ny hvad angår asp, så jeg fatter ik så meget af det endnu...

Her er min tagwall:

<center><a href="default.asp?side=skrivtag">Skriv i Tagwall'en</a></center><br><br>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select TOP 5 * from tagwall order by id desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
tag = rs("tag")
tag = Replace(tag,":D","<img src=""grin.gif"">")
tag = Replace(tag,":)","<img src=""glad.gif"">")
tag = Replace(tag,":(","<img src=""trist.gif"">")
tag = Replace(tag,":op:","<img src=""op.gif"">")
tag = Replace(tag,":Å","<img src=""aast.gif"">")
tag = Replace(tag,":ned:","<img src=""ned.gif"">")
tag = Replace(tag,":!:","<img src=""urd.gif"">")
tag = Replace(tag,":?:","<img src=""spm.gif"">")

response.write ("<a href='mailto:" & rs("email") & "'>" & rs("navn") & "</a>:<br><br>")
Response.Write (tag) & "<hr>"

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Jeg tvivler på den er skrevet fejl-frit, så gider i ikke hjælpe med at få det html-halløj ind i den ? :D

I må ikke slå hvis jeg har lavet en fejl-wall :D

Synes godt om

2-maz_temp Nybegynder

31. marts 2002 - 01:32 #18

<center><a href="default.asp?side=skrivtag">Skriv i Tagwall'en</a></center><br><br>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select TOP 5 * from tagwall order by id desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
tag = rs("tag")
tag = Replace(tag,":D","<img src=""grin.gif"">")
tag = Replace(tag,":)","<img src=""glad.gif"">")
tag = Replace(tag,":(","<img src=""trist.gif"">")
tag = Replace(tag,":op:","<img src=""op.gif"">")
tag = Replace(tag,":Å","<img src=""aast.gif"">")
tag = Replace(tag,":ned:","<img src=""ned.gif"">")
tag = Replace(tag,":!:","<img src=""urd.gif"">")
tag = Replace(tag,":?:","<img src=""spm.gif"">")
tag = Server.HTMLEncode(tag)

response.write ("<a href='mailto:" & rs("email") & "'>" & rs("navn") & "</a>:<br><br>")
Response.Write (tag) & "<hr>"

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Synes godt om

tichicken Nybegynder

31. marts 2002 - 01:37 #19

hvis jeg bruger den laver den også mine smileys om til koder :(

Synes godt om

2-maz_temp Nybegynder

31. marts 2002 - 22:51 #20

<center><a href="default.asp?side=skrivtag">Skriv i Tagwall'en</a></center><br><br>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select TOP 5 * from tagwall order by id desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
tag = Server.HTMLEncode(tag)
tag = rs("tag")
tag = Replace(tag,":D","<img src=""grin.gif"">")
tag = Replace(tag,":)","<img src=""glad.gif"">")
tag = Replace(tag,":(","<img src=""trist.gif"">")
tag = Replace(tag,":op:","<img src=""op.gif"">")
tag = Replace(tag,":Å","<img src=""aast.gif"">")
tag = Replace(tag,":ned:","<img src=""ned.gif"">")
tag = Replace(tag,":!:","<img src=""urd.gif"">")
tag = Replace(tag,":?:","<img src=""spm.gif"">")
tag = Server.HTMLEncode(tag)

response.write ("<a href='mailto:" & rs("email") & "'>" & rs("navn") & "</a>:<br><br>")
Response.Write (tag) & "<hr>"

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Synes godt om

tichicken Nybegynder

01. april 2002 - 11:50 #21

ok, jeg har fundet ud af det nu :D

mange tak folkens :D

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