---
title: "Kolla förbjudna ord, returnera True eller False"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/127910-kolla-förbjudna-ord-returnera-true-eller-false"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hellboy"
published: "2005-05-09T19:41:37.000Z"
updated: "2005-05-09T20:09:10.000Z"
replies: 3
views: 320
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/127910-kolla-förbjudna-ord-returnera-true-eller-false"
---

# Kolla förbjudna ord, returnera True eller False

## #1 — hellboy, 2005-05-09T19:41Z

Jag har försökt pilla ihop ett litet spamskydd, men det fungerar inte helt tillfredsställande...

Jag anropar följande funktion innan data sparas till DB:

```
Dim words, spamFilter
Function IsSpam(strValue)
	words = "poker,casino"
	spamFilter = Split(words,",")

	For i=0 To UBound(spamFilter)
		Set objRegExp = New RegExp
		objRegExp.Pattern=spamFilter(i)
		IsSpam = objRegExp.Test(strValue)
		Set objRegExp = Nothing		
	Next
End Function
```

som det är nu så släpper den igenom poker, men stoppar casino. tips?

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

## #2 — Erik Juhlin, 2005-05-09T19:56Z

Så här skulle jag skrivit. Bättre prestandamässigt. Slipper loopa...

```
Function IsSpam(strValue)
	Dim objRegExp, words
	words = "poker|casino"
	
	Set objRegExp = New RegExp
	objRegExp.Pattern=words
	IsSpam = objRegExp.Test(strValue)
	Set objRegExp = Nothing
End Function
```

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

## #3 — hellboy, 2005-05-09T19:58Z

Underbart!

Tack!

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

## #4 — voigtann1, 2005-05-09T20:09Z

flyttat från ASP scripts

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/127910-kolla-förbjudna-ord-returnera-true-eller-false