---
title: "Ordlista i asp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/144470-ordlista-i-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2006-03-23T18:30:34.000Z"
updated: "2006-03-28T13:39:31.000Z"
replies: 12
views: 697
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/144470-ordlista-i-asp"
---

# Ordlista i asp

## #1 — WebbisNet, 2006-03-23T18:30Z

Hur skapar man en ordlista i asp för att automatiskt ersätta olämpiga ord ex i mitt klotterplank och kan man använda samma för att ersätta ord om man vill ha ex en engelsk site utan att behöva skriva allt på nytt med en ny likadan sida, hur funkar det och hur gör man. Nån som har exempel att visa??

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

## #2 — Jesper T, 2006-03-23T21:44Z

Ditt första och andra exempel är ju två vitt skilda saker.
Det första finns nog här på WF om du söker lite. Lite replacer så är saken biff.
Det andra exemplet är ju betydligt mer komplext.

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

## #3 — WebbisNet, 2006-03-23T21:55Z

Om man har en separat asp-fil med förbjudna ord, hur gör man replace om man har det så och ska ordlistan vara utformad på nåt speciellt sätt?

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

## #4 — Jesper T, 2006-03-23T22:20Z

asp-fil... det skulle kanske kunna vara en vanlig kommaseparerad textfil.
Som du lägger i ett regex-pattern, och replacar ifrån.

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

## #5 — WebbisNet, 2006-03-23T22:38Z

ok, tack

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

## #6 — Jesper T, 2006-03-23T23:02Z

/Dubbelpostat  :r

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

## #7 — Jesper T, 2006-03-23T23:04Z

**badwords.txt**
morr\|hundans\|fibbla\|kul

**aspsida.asp**

```
 <%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function

textToCheck="Din text som skall kollas"
Response.write cutBadwords(readall,textToCheck)

%>
```

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

## #8 — WebbisNet, 2006-03-23T23:52Z

> **Jesper T skrev:**
>
> **badwords.txt**
> morr\|hundans\|fibbla\|kul
> 
> **aspsida.asp**
>
>
> ```
>  <%
> Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
> Set objTextStream = objFSO.OpenTextFile(server.mappath("badwords.txt"), 1)
> readall = objTextStream.ReadAll
> objTextStream.Close
> Set objTextStream = Nothing
> Set objFSO = Nothing
> 
> Function cutBadwords(patt, sw)
> Dim nw, outpt
> Set nw = new regexp
> nw.global = true : nw.ignorecase = true
> nw.pattern = "("& patt &")"
> cutBadwords = nw.replace(sw,"*pip*")
> Set nw = nothing
> End Function
> 
> textToCheck="Din text som skall kollas"
> Response.write cutBadwords(readall,textToCheck)
> 
> %>
> ```

jag får
Microsoft VBScript compilation  error '800a03ea'

Syntax error

/misc/klotter/klottra.asp, line 75

textToCheck=If showAll("vip") = 1 Then
\------------^

med

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("/badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function

[B]textToCheck=If showAll("vip") = 1 Then
	Response.Write "&nbsp;"& convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>")) &""		
Else
	Response.Write "&nbsp;"& replace(Server.HTMLEncode(showAll("klotterText")),vbCrLf,"<br>") &""
End If[/B]

Response.write cutBadwords(readall,textToCheck)
```

Hur ska man skriva?????

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

## #9 — The_Hulk, 2006-03-24T07:25Z

Vad är tanken att den här raden ska göra

```
textToCheck=If showAll("vip") = 1 Then
```

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

## #10 — WebbisNet, 2006-03-24T11:32Z

är man vip så får man lite fler fördelar på klottret

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

## #11 — The_Hulk, 2006-03-24T11:40Z

syftade på vad **textToCheck=** hade med det hela att göra
**If** returnerar inget, testa att ta bort textToCheck=
Du använder Response.write men vill ända spara texten för att censurera den senare?
Du bör nog kolla genom vad du egentligen vill göra och vad du gör.
Verkar som du vill tilldela textToCheck i IF-statsen, ta då bort response.write och erästt det med textToCheck  =
dvs

```
If showAll("vip") = 1 Then
textToCheck=convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>")) &""		
Else
textToCheck=replace(Server.HTMLEncode(showAll("klotterText")),vbCrLf,"<br>") &""
End If
```

vill du göra på ditt sätt blir det i stil med 
men om detta även fugnerar i ASP vet jag inte, fungerar iaf i många andra språk.

```
textToCheck = (showAll("vip") = 1) ?
(convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>"))) 
:
(replace(Server.HTMLEncode(showAll("klotterText")),vbCrLf,"<br>"))
```

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

## #12 — WebbisNet, 2006-03-27T01:17Z

//Red Gjorde fel :-)

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

## #13 — WebbisNet, 2006-03-28T13:39Z

Sedan jag började använda denna kod för ordlistan så visas inte mina bakgunder när de används

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("/badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function
```

```
If showAll("vip") = 1 Then
textToCheck=convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>")) &""		
Else
textToCheck=replace(Server.HTMLEncode(showAll("klotterText")),vbCrLf,"<br>") &""
End If

Response.write cutBadwords(readall,textToCheck)
```

Bakgrunderna

```
if showAll("vip") = 1 then

function maketext(byVal inpt)
Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/art.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/flowers.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/sport.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/stop.gif); background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stefan>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/moose1.png); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stefan>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<ior>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/ior_small.gif); background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</ior>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<rosa>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-color:pink; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</rosa>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<guld>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-color:gold; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</guld>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<rod>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""color:#DDDDDD; background-color:red; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</rod>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<bla>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""color:#DDDDDD; background-color:blue; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</bla>","</td></tr></table>",1,-1,1)
maketext = inp
end function

end if
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/144470-ordlista-i-asp