---
title: "Forumkod."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/55483-forumkod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "m_soderlund"
published: "2002-10-09T06:50:34.000Z"
updated: "2002-10-09T16:48:24.000Z"
replies: 6
views: 352
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/55483-forumkod"
---

# Forumkod.

## #1 — m_soderlund, 2002-10-09T06:50Z

Jag har en funktion för forumkodning som inte fungerar riktigt exakt som jag hoppades på, den fungerar bara till hälften..
Kolla <http://www.valhall.cx/dileno/forumkod.txt> för all kod och mer info.. Tack!

Permalänk: https://www.webforum.nu/p/55483

## #2 — solbulle, 2002-10-09T09:13Z

Fråga 1, fattar inte mycket av den..

> Nu är det så att när jag postar ett meddelande blir till exempel ett kodstycke så här:

 å sen visar du en annan replacekod???

> Men om jag utanför koden postar...

 ?? Nä, fattar ej...

Fråga 2.

```
Function SQLEncode(ByVal sString)
	SQLEncode = Replace(sString, "'", "''")
End Function
```

Permalänk: https://www.webforum.nu/p/814158

## #3 — m_soderlund, 2002-10-09T10:42Z

solbulle; koden som är en annan replace-kod är bara testkod som skrivs ut på sidan som den är, precis som din kod för funktionen här ovan. Tack!

Permalänk: https://www.webforum.nu/p/814209

## #4 — voigtann1, 2002-10-09T13:14Z

tycker koderna ser himla klumpiga.. för det första så bör väll inte 

incoming = Replace(incoming,"\<","&lt;")
incoming = Replace(incoming,"\>","&gt;")

vara längst upp..
jag hade fixat detta med hjälp av reg.exp istället.. enklare och \*host\* bättre tror jag :e

Permalänk: https://www.webforum.nu/p/814357

## #5 — m_soderlund, 2002-10-09T14:13Z

Jo.. Jag ska koda om funktionen.

Permalänk: https://www.webforum.nu/p/814391

## #6 — voigtann1, 2002-10-09T15:07Z

```
<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\[(b|/b|i|/i|u|/u)\]"
mess = objRegExp.Replace(mess,"<$1>")

objRegExp.Pattern = "&lt;(b|/b|i|/i|u|/u)&gt;"
mess = objRegExp.Replace(mess,"<$1>")

objRegExp.Pattern = "\[citat\]"
mess = objRegExp.Replace(mess,"<span class=""citat"">Citat:<br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[/citat\]"
mess = objRegExp.Replace(mess,"</span><br><img src=""graphics/line.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[kod\]"
mess = objRegExp.Replace(mess,"<span class=""forumkod"">Kod:<br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>")

objRegExp.Pattern = "\[/kod\]"
mess = objRegExp.Replace(mess,"</span><br><img src=""graphics/codeline.gif"" width=""500"" height=""11""><br>")

encode = mess

%>
```

menar du så?

Permalänk: https://www.webforum.nu/p/814452

## #7 — m_soderlund, 2002-10-09T16:48Z

Oj, jag har inte testat men ska testa det senare.. Tack!

Permalänk: https://www.webforum.nu/p/814538

---

Tråden på webben: https://www.webforum.nu/amne/asp/55483-forumkod