컴퓨토피아

CREATE FUNCTION [dbo].[ValidateEmail]
(
 @Text varchar(255)
)
RETURNS BIT
AS

    BEGIN
          DECLARE @Letters VARCHAR(255)
          DECLARE @Index INT
          DECLARE @Max INT
          DECLARE @Pass BIT
          SET @Letters = ' abcdefghijklmnopqrstuvwxyz01234567890_-.@'
          SET @Max = LEN(@Text)
          SET @Index = 0
          SET @Pass = 1

          IF @Text IS NULL OR NOT @Text LIKE '_%@__%.__%' RETURN(0)
          WHILE @Index < @Max AND @Pass = 1
              BEGIN
                   SET @Index = @Index + 1
                   IF NOT @Letters LIKE '%' + SUBSTRING(@Text, @Index, 1) + '%' SET @Pass = 0
              END
     RETURN(@Pass)
END