| | |
| |
Active Server Pages asp source code database MS SQL MS Access .mdb adovbs.inc cookies calendar codes sql commands scripts asp programming tutorials iis web server components CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: EMail |
|
From: |
Chris Williams |
|
Date: |
3/4/1999 2:53:52 PM |
|
IP: |
207.51.163.13 |
Heres (Powerasp Tim)'s latest in case your interested..
I asked him to make it a few days ago and It will probably go up on the site if I like it. I havent tried it yet but it looks pretty good.
<%
Function IsValidEmail(Email)
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
ValidChar = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr = "@") Or (atChr = ".") Then ValidChar = True
If (atChr >= "A") And (atChr <= "Z") Then ValidChar = True
If (atChr >= "a") And (atChr <= "z") Then ValidChar = True
If (atChr >= "0") And (atChr <= "9") Then ValidChar = True
If (atChr = "-") Or (atChr = "_") Then ValidChar = True
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (ValidChar = True) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If InStr(1, UserName, ".") > 0 Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
End If
End If
If BadFlag = True Then ValidFlag = False
IsValidEmail = ValidFlag
End Function
%> |
Previous Message
|
|
|
|
|
|
