har du använt dig av Server.HTMLEncode("Min text med å, ä och ö") när du sparar ned texten.
Visa lite kod hur det ser ut när du har sparat ned till filen
cya,
PatrikB
Replace
23 svar · 378 visningar · startad av qwerty · sida 2 av 2
Trådstarten, av qwerty
Varför byter inte denna kod ut de fula orden? <% a=Request.Form("textfield") Application("BadWords") = "Skit Fan Helvete" strBadWords = Application("BadWords") arrBadWords = Split(StrBadWords) For I = LBound(arrBadWords) To UBound(arrBadWords) strString = Replace (strString,arrBadWords(I),"") Next %> <% =a%>
Läs hela trådstarten →Här är hela koden:
<body bgcolor="#FFFFFF">
<%
'------RENSA-UT-FULA-ORD-FUNKTION--------------------------------------------------KK-
Set A = CreateObject("Scripting.FileSystemObject")
Set B = A.OpenTextFile ("c:\inetpub\wwwroot\txt\badwords.txt")
fulaord = B.ReadAll
B.close
Application("BadWords") = fulaord
Function checkBadWord(StringToCheck)
Dim objRegExp, match, matches, arrPattern, I
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
arrPattern = Split(Application("BadWords"))
For I = LBound(arrPattern) TO UBound(arrPattern)
objRegExp.Pattern = arrPattern(I)
Set matches = objRegExp.Execute(StringToCheck)
For Each match In matches
StringToCheck = Replace(StringToCheck,match,"<img src=""litenfan.gif"">")
Next
Set matches = Nothing
Next
Set objRegExp = Nothing
checkBadWord = StringToCheck
End Function
strString = Request.Form("textfield")
'Response.Write checkBadWord(strString)
'--------------------------------------------------------------------------------------
%>
<%=checkBadWord(strString)%>
</body>
...och så här ser badwords.txt ut:
jävla fan skit
... he, he ... den funkar.
Det jag ville ha kod på är HUR du sparar det som står i badwords.txt
En rolig sak hände när jag testkörde scriptet.
Du kan inte ha med fan i bildnamnet litenfan.gif för fan är ett förbjudet ord och sorteras såleds bort =O
cya,
PatrikB
Jag sparar inte den textfilen med hjälp av asp. Jag har skrivit den i 'wordpad'.
Allt funkar perfa utom att om man sätter in åäö i sina svordomar så glider de igenom "filtret"