ფუნქციის მაგალითი ASP– ში ელ.ფოსტის გადამოწმების მიზნით

შემდეგი ფუნქცია გამოიყენება ASP- ში ელექტრონული ფოსტის მისამართის სისწორის დასადასტურებლად.

ფუნქცია revMail (ფოსტა)
'შეამოწმეთ სწორი მისამართი
'უბრუნებს 1 არასწორ მისამართებს
'აბრუნებს 0-ს მოქმედი მისამართებისთვის
დაბნელებულია
revMail = 0

'chk სიგრძე
თუ len (ფოსტა) <5 მაშინ
' [email protected] უნდა იყოს უმოკლესი მისამართი
revMail = 1

"შემოწმების ფორმატი
"შეამოწმეთ, რომ მას აქვს @
elseif instr (ფოსტა, "@") = 0 მაშინ
revMail = 1

"შეამოწმეთ, რომ მას აქვს
elseif instr (ფოსტა, ".") = 0 მაშინ
revMail = 1

"შეამოწმეთ, რომ მას არაუმეტეს სამი სიმბოლო აქვს.
elseif len (ფოსტა) - ინსტრვევი (ფოსტა, ".")> 4 შემდეგ
revMail = 1

ეს არ არის _ შემდეგ @
'elseif instr (ფოსტა, "_") <> 0 და _
'instrrev (ფოსტა, "_")> ინსტრვევი (ფოსტა, "@") შემდეგ
'revMail = 1

სხვაგან
'რომელსაც მხოლოდ ერთი აქვს @
atCnt = 0
i = 1 ლარამდე (ფოსტა)
თუ შუა (ფოსტა, i, 1) = "@" მაშინ
atCnt = atCnt + 1
დაასრულე თუ
შემდეგი

თუ atCnt> 1 მაშინ
revMail = 1
დაასრულე თუ

"შეამოწმეთ ხასიათი ხასიათით
i = 1 ლარამდე (ფოსტა)
თუ არა რიცხვითი (შუა (ფოსტა, i, 1)) და _

(lcase (შუა (ფოსტა, i, 1)) lcase (შუა (ფოსტა, i, 1))> "z") და _
შუა (ფოსტა, i, 1) <> "_" და _
შუა (ფოსტა, i, 1) <> "". " და _
შუა (ფოსტა, i, 1) <> "@" და _
შუა (ფოსტა, i, 1) <> "-" შემდეგ
revMail = 1
დაასრულე თუ
შემდეგი
დაასრულე თუ
დასრულების ფუნქცია
%>