Spam Tjek, når der laves en form post til serveren

Evt. sådan her
<%
txtstring = "Min  dejlige veninde er sødddddddddddddddddddddddddddddddd"
txtstring = Split(txtstring," ")
maxlength = 30

  For t = LBound(txtstring) to UBound(txtstring)
      If len(txtstring(t)) > maxlength then
    Response.Write "Ordet " & txtstring(t) & " er længere end " & maxlength & ", som er maximum.<br>"
      End if
  Next
%>

Koden deler strengen op i enkelte ord og tjekker om hvert ord er over værdien af maxlength (30 her) og hvis det er skrives en fejl..

eller:

<%
txtstring = "Min  dejlige veninde er sødddddddddddddddddddddddddddddddd"
txtstring = Split(txtstring," ")


  For t = LBound(txtstring) to UBound(txtstring)
      for i = 0 to len(txtstring(t))-2
      if(mid(textstring(t),i,1) = (mid(textstring(t),i+1,1) and (mid(textstring(t),i,1) = (mid(textstring(t),i+2,1) then
      Response.Write "Ordet " & txtstring(t) & " er betragtet som spam<br>"
      End if
      Next
  Next
%>

denne tjekker om 3 sammenhængende bogstaver er ens

# rowl
Takker for dit forslag.

# cpufan
Ja, også et godt forslag. Har måske også en plads til denne. Hmm...har du så en måde du kan få det ud i en variable også ?..tænkte på de 3 chr!

Her er min 'færdige' tjekkode:

<%
Function CheckStr(TextStr,MaxChr,Dowhat)
txtstring = TextStr
txtstring = Split(txtstring," ")
maxlength = MaxChr

  For t = LBound(txtstring) to UBound(txtstring)
      If len(txtstring(t)) > maxlength then
    Dowhat()
      End if
  Next
 
End Function
%>

<%
txtstring = "Min  dejlige veninde er sødddddddddddddddddddddddddddddddd"
txtstring = Split(txtstring," ")


  For t = LBound(txtstring) to UBound(txtstring)
      for i = 0 to len(txtstring(t))-2
      if(mid(textstring(t),i,1) = mid(textstring(t),i+1,1) and (mid(textstring(t),i,1) = mid(textstring(t),i+2,1)) then
      Response.Write "Bogstaverne " & mid(textstring(t),i,1)&mid(textstring(t),i,1)&mid(textstring(t),i,1) & " er betragtet som spam<br>"
      End if
      Next
  Next
%>

ok mange tak :D

hæhæ...nu må jeg nok hellere spørge om der er nogle der vil have nogle point???...sidste gang kom jeg selv til at svare og acceptere :( ..det var der nogle der blev lidt sure over...

nogle svar :) ?

jov, - hit med nogle af de dyrebare poængs-
:D

There you go :P