<% Function ValidateEmail(Expression) Dim objRegExp Set objRegExp = New RegExp objRegExp.Pattern = "^[w.-]+@[w.-]+.[a-zA-Z]+$" ValidateEmail = objRegExp.Test(Expression) End Function %>
ÖлªÈËÃñ¹²ºÍ¹úÔöÖµµçÐÅÒµÎñ¾Óª±¸°¸ºÅ£ºÔÁICP±¸09109493ºÅ
°æÈ¨ËùÓÐ ±¾Õ¾³ÌÐò½çÃæ¡¢Ô´´úÂëÊÜÏà¹Ø·¨Âɱ£»¤£¬Î´¾ÊÚȨ£¬ÑϽûʹÓÃ
Copyright 2000-2012 All rights reserved