Switch (type) {
Case "EMPTY":
result = Writemsg (ID, msg, (val = = '));
Break
Case "Number":
result = Writemsg (ID, MSG, (isNaN (Val));///Is the number * *
var patrn =/^[0-9]+$/;
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Double":
var patrn =/^[0-9.] +$/;
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Date":
var patrn =/^ (d{1,4}) (-|/) (d{1,2}) 2 (d{1,2}) $/;/*yyyy-mm-dd*/
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Time":
var patrn =/^ (20|21|22|23|[ 0-1]D): [0-5][0-9]) (: [0-5][0-9])? $/;/*hh:mm:ss*/
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "datetime":
var patrn =/^ (d{1,4}) (-|/) (d{1,2}) 2 (d{1,2}) (d{1,2}):(d{1,2}):(d{1,2}) $/;/*yyyy-mm-dd
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "url":
var patrn =/^http (s)?:/ /([w-]+.) +[w-]+ (/[w-/?%&=]*)? $/;/* Web Site * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Email":
var patrn =/^w+ ([-+.] w+) *@w+ ([-.] w+) *.w+ ([-.] w+) *$/;/* Mail * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Identity":
var patrn =/^d{17}[d| x]|d{15}$/;/* Identification Number * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "IP":
var patrn =/^ ((d{1,2}) | ( 1D{2}) | (2[0-4]d) | (25[0-5]).) {3} ((d{1,2}) | (1d{2}) | (2[0-4]d) | (25[0-5]) $/;
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Zip":
var patrn =/^d{6}$/;/* Postal Code * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "QQ":
var patrn =/^[1-9][0-9]{4,}$/;
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Phone":
var patrn =/^d{3}-d{8}|d{4}-d{7,8}|d{11}|d{12}$/;/* Phone
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "mobile":
var patrn =/^ (13|15|18) d{9}$/;/* mobile phone
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "string":
var patrn =/^[a-za-z0-9_]+$/;/*a-z,a-z,0-9 * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "image":
var patrn =/(. Jpg|. Gif|. bmp|. Png|. Img|. SWF) $/;/* Picture Extension * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "HTML":
var patrn =/(. htm|. html|. shtml) $/;
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Chinese":
var patrn =/^[u0391-uffe5]+$/;/* Chinese * *
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
Case "Userorpwd":
var patrn =/^[a-za-z0-9]{6,20}$/;/*6-20 bit; number (0-9) and English (A-Z), case-insensitive.
result = Writemsg (ID, MSG, (Regular (Val, patrn));
Break
}