Judging whether the input domain name is correct: DIM C, Words, Word, I, WnumFunction isvaliddomin (Word) isvaliddomin = truewords = split (word, ".") WNUM = Ubound (Words) if words (0) = "www" ThenisvaliddMin = IsValidword (words (1)) IsValiddomin = IsValidword2 (words (2)) if words (wnum) = "cn" thenif wnum <> 3 thenIsValiddomin = falseexit functionend ifelseif wnum <> 2 thenIsValiddomin = falseexit functionend ifend ifelseIsValiddomin = IsValidword (words (0)) IsValiddomin = IsValidword2 (words (1)) if words (wnum) = "cn" thenif wnum <> 2 thenIsValiddomin = falseexit functionend ifelseif wnum <> 1 thenIsValiddomin = falseexit functionend ifend ifend ifend function
Function isvalidWord2 (Word) isvalidword2 = trueisvalidword2 = isvalidword (word) if Word <> "Net" and Word <> "com" and word <> "cc" and Word <> "org" and Word <> "Info" and Word <> "gov" Then 'Add isvalidword2 = falseexit functionend ingnd function
Function isvalidWord (Word) isvalidword = TRUE
IF LEN (Word) <= 0 ThenisvalidWord = falseExit FunctionEND IFOR I = 1 to Len (Word) C = LCase (MID (Word, I, 1)) IF INSTR ("AbcdefghijklmnopQrstuvwxyz-", C) <= 0 and not isnumeric (c) Thenisvalidword = falseexit functionEND IFNEXTEND FUNCTION
If isvaliddomin ("wrclub.net.cn") ThenResponse.write "Right" Elseresponse.write "WRONG" endiff
Judging whether there is a Chinese character function, the function is mainly used to set a password, such as FTP password settings:
Function NothaveChinese = Truestr = CSTR (Para) for i = 1 to Len (Para) C = ASC (MID (STR (STR, I, 1)) IF C <0 Then NothaveCHINESE = false exit functionend ifnextend function limit Character whether Chinese Code: function isChinese (para) on error resume nextdim strdim iif isNUll (para) then isChinese = falseexit functionend ifstr = cstr (para) if trim (str) = "" thenisChinese = falseexit functionend iffor i = 1 to len (str ) C = ASC (MID (STR, I, 1)) IF C> = 0 Then iSCHINESE = FALSE EXIT functionEND IFNEXTISCHINESE = TRUEIF Err.Number <> 0 THEN Err.clerend Function
Email is determined whether the correct function: function IsValidEmail (email) dim names, name, i, c'Check for valid syntax in an email address.IsValidEmail = truenames = Split (email, "@") if UBound (names) <> 1 thenIsValidEmail = falseexit functionend iffor each name in namesif Len (name) <= 0 thenIsValidEmail = falseexit functionend iffor i = 1 to Len (name) c = Lcase (Mid (name, i, 1)) if InStr ( "abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not isnumeric (c) ThenisvalideMail = falseExit functionend ifnextif left (name, 1) = "." or right (name, 1) = "." Tenisvalidemail = falseExit functionend ifnextif Instr (Names (1), " <= 0 ThenisvalideMail = falseExit functionEND IFI = LEN (Names (1)) - Instrrev (Names (1), ".") IF i <> 2 and i <> 3 Tenisvalidemail = falseExit FunctionEND IFIF IFIF INSTR (Email, "..")> 0 TeniDemail = false ifend function
