एएसपी में एक ईमेल को मान्य करने के लिए फ़ंक्शन उदाहरण Example

निम्नलिखित फ़ंक्शन का उपयोग यह सत्यापित करने के लिए किया जाता है कि ASP में एक ईमेल पता सही है।

फंक्शन रेवमेल (मेल)
'वैध पता जांचें'
'अमान्य पतों के लिए 1 लौटाता है'
'वैध पतों के लिए 0 लौटाता है'
सीएनटी. पर मंद
रेवमेल = 0

'चक लंबाई'
अगर लेन (मेल) <5 तो
' [email protected] कम से कम संभव पता होना चाहिए
रेवमेल = 1

'चेक प्रारूप'
'जांचें कि इसमें एक @ है
अन्य इंस्ट्रक्टर (मेल, "@") = 0 तो
रेवमेल = 1

'जांचें कि इसमें एक है।
अन्य इंस्ट्रक्टर (मेल, "।") = 0 तो
रेवमेल = 1

'जांचें कि इसमें तीन से अधिक वर्ण नहीं हैं।
अन्य लेन (मेल) - instrrev (मेल, "।")> 4 फिर
रेवमेल = 1

'जिसमें @ के बाद _ नहीं है
'elseif instr (मेल, "_") <> 0 और _
'instrrev (मेल, "_")> instrrev (मेल, "@") तो
'रेवमेल = 1

अन्य
'जिसमें केवल एक @ है
atCnt = 0
i = 1 से लेन (मेल) के लिए
यदि मध्य (मेल, i, १) = "@" तो
atCnt = atCnt + 1
अगर अंत
अगला

अगर atCnt> 1 तो
रेवमेल = 1
अगर अंत

'चरित्र द्वारा चरित्र की जाँच करें'
i = 1 से लेन (मेल) के लिए
यदि नहीं तो सांख्यिक (मध्य (मेल, i, 1)) और _
(केस (मध्य (मेल, i, 1)) केस (मध्य (मेल, i, 1))> "z") और _
मध्य (मेल, i, 1) <> "_" और _

मध्य (मेल, आई, 1) <> "।" तथा _
मध्य (मेल, i, 1) <> "@" और _
मध्य (मेल, मैं, १) <> "-" तब
रेवमेल = 1
अगर अंत
अगला
अगर अंत
अंत समारोह
%>