¿´¿´VBscriptÒ»¶Î¹ØÓÚµç×ÓÓʼþ´úÂ룬ÓÐʲôÎÊÌ⣿

С·É‚b

¿´¿´VBscriptÒ»¶Î¹ØÓÚµç×ÓÓʼþ´úÂ룬ÓÐʲôÎÊÌ⣿
vemail=Trim(Request.Form("email"))

Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular expression object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" 'Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(vemail) ' Execute search.
if match.count then
response.Write Infobox("Óû§×¢²á³ö´í£¬ÏÂÃæÊDzúÉú´íÎóµÄ¿ÉÄÜÔ­Òò£ºÇëÊäÈëÕýÈ·µÄÁªÏµÓÊÏ䣡","back","")
response.end
end if

ÌìÀáÀëÐÇ

×ÜÊDz»ÄÜÕýÈ·¼ì²â´íÎó£¬
×ÜÊDZ¨¸æ³ö´í¡£

¡¬ÐUãÃÖ_¡î

ÓÐɶÎÊÌ⣿

Nick

ÕýÈ·µÄ¸ñʽҲ±¨´í£¬Õⲿ·ÖÊÇÎÒÔÚÍøÉÏϵÄ
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular expression object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" 'Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(vemail) ' Execute search.
if match.count then

Ó¦¸ÃûÎÊÌâ¡£¾ÍÊÇÅжϵĵط½²»¶Ô¡£