Hej, Hej, Blir snart trött på detta... Det finns en Pellesoft-artikel på detta Hej, Du kanske ska testa din nya kod innan du produktionssätter den? Pröva denna kodsnutt... RegExp Username
Jag vill göra så att när en besökare vill bli medlem på min sida, att han ENDAST kan använda bokstäver från "a-z" , tecken som "-_" och usernamnet får vara minst 4 bokstäver kort och max 15 långt.
Jag har letat massor på nätet men hittar ingen resultat.
Tacksam för svar.
<code>
<input name="username" type="text" id="username">
<font color="#FF0000">*</font><br>
Begin with a letter, and use only letters (a-z), numbers (0-9), the underscore (_), and no spaces.
</code>Sv:RegExp Username
Tack för ditt svar, men skulle jag kunna få lite mer kod eftersom det är första gången jag använder RegExp.
Mvh HassanSv: RegExp Username
Hur lägger jag in en if sats på ifall request.form("username") är true??
Min kod:
<code>
Dim RegEx
Set regEx = New RegExp
regEx.Pattern = "\A[a-zA-Z0-9_\-]{4,15}$"
If regEx.test(Value) Then
Response.Redirect "sign.asp"
Else
Response.Redirect "index.asp"
End If
</code>Sv:RegExp Username
http://www.pellesoft.se/area/articles/article.aspx?artid=925Sv:RegExp Username
de funkar inte riktigt.
Får en massa mail från folk som ej kan bli medlemmar:
bland annat med dessa användarnamn:
desert
Ommid
Hope
Tacksam för svarSv: RegExp Username
Hur ser din kod ut? Omöjligt att säga vad som är fel utan den.Sv:RegExp Username
<code>Function IsUsername(str)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-zA-Z_\-]{4,15}$"
IsUsername = objRegExp.Test(str)
End Function</code>
Använd så här: <code>
if IsUsername(Request.form("username")) = True then
' do this..
else
' do that..
end if
</code>
Om du vill testa giltiga resp. ogilitiga användarnamn för att se om den ger rätt utslag:
<code>
response.write IsUsername("anvandarnamn") & "<br>"
response.write IsUsername("fredde") & "<br>"
response.write IsUsername("fredde82") & "<br>"
response.write IsUsername("anvandarnamnets+") & "<br>"
</code>
Bör ge Sant, Sant, Falskt, Falskt