vb 检查电子邮件地址是否有效
一个简单的函数来测试电子邮件地址是否有效。
<span style="color: #808080;">' Made by using VBScript version 5.6 </span>
<span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> IsEmailValid<span style="color: #66cc66;">(</span>byVal EmailAddress<span style="color: #66cc66;">)</span>
<span style="color: #b1b100;">Dim</span> TestEmailAddress, RegularExpressionObject, ExpressionMatch
<span style="color: #808080;">' Convert to string and trim whitespace</span>
TestEmailAddress = <span style="color: #b1b100;">CStr</span><span style="color: #66cc66;">(</span> EmailAddress <span style="color: #66cc66;">)</span>
TestEmailAddress = <span style="color: #b1b100;">Trim</span><span style="color: #66cc66;">(</span> TestEmailAddress <span style="color: #66cc66;">)</span>
<span style="color: #808080;">' Check if the given E-Mail adress is empty</span>
<span style="color: #b1b100;">If</span> TestEmailAddress = <span style="color: #ff0000;">""</span> <span style="color: #b1b100;">Then</span>
IsEmailValid = <span style="color: #b1b100;">False</span>
<span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span>
<span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span>
<span style="color: #808080;">' Minimum 6 characters... (a@b.de)</span>
<span style="color: #b1b100;">if</span> <span style="color: #b1b100;">len</span><span style="color: #66cc66;">(</span>TestEmailAddress<span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">6</span> <span style="color: #b1b100;">Then</span>
IsEmailValid = <span style="color: #b1b100;">False</span>
<span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span>
<span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span>
<span style="color: #808080;">' Test the E-Mail adress with a regular expression</span>
<span style="color: #808080;">' (RegExp from regexlib.com - made by David Lott)</span>
<span style="color: #b1b100;">Set</span> RegularExpressionObject = <span style="color: #b1b100;">New</span> RegExp
<span style="color: #b1b100;">With</span> RegularExpressionObject
.<span style="color: #66cc66;">Global</span> = <span style="color: #b1b100;">True</span>
.<span style="color: #66cc66;">IgnoreCase</span> = <span style="color: #b1b100;">True</span>
.<span style="color: #66cc66;">Pattern</span> = <span style="color: #ff0000;">"^([\w\-\.]+)@((\[([0-9]{1,3}\.){3}[0-9]{1,3}\])|(([\w\-]+\.)+)([a-zA-Z]{2,4}))$"</span>
<span style="color: #b1b100;">End</span> <span style="color: #b1b100;">With</span>
ExpressionMatch = RegularExpressionObject.<span style="color: #66cc66;">Test</span><span style="color: #66cc66;">(</span>TestEmailAddress<span style="color: #66cc66;">)</span>
<span style="color: #808080;">' Does the RegExp match?</span>
<span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> ExpressionMatch <span style="color: #b1b100;">Then</span>
IsEmailValid = <span style="color: #b1b100;">False</span>
<span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span>
<span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span>
<span style="color: #808080;">' Cleanup</span>
<span style="color: #b1b100;">Set</span> RegularExpressionObject = <span style="color: #b1b100;">Nothing</span>
<span style="color: #b1b100;">Set</span> ExpressionMatch = <span style="color: #b1b100;">Nothing</span>
<span style="color: #808080;">' Congrats, the E-Mail adress is valid </span>
IsEmailValid = <span style="color: #b1b100;">True</span>
<span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span>
<span style="color: #808080;">' IsEmailValid returns true</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@example.com"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"t@example.com"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"404@example.org"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@example.jp"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test.adress@example.com"</span><span style="color: #66cc66;">)</span>
<span style="color: #808080;">' IsEmailValid returns false</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">""</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@examplecom"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@x"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"@test"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"example.com"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@[example].com"</span><span style="color: #66cc66;">)</span>
Response.<span style="color: #b1b100;">Write</span> IsEmailValid<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"test@.com"</span><span style="color: #66cc66;">)</span>