มีฟังก์ชันการตรวจสอบความถูกต้องของรูปแบบที่ดี คุณสามารถอ้างถึง '*************************************** *****
'ตรวจสอบว่ามีเพียงภาษาอังกฤษและตัวเลขหรือไม่
-
ฟังก์ชัน IsvalidValue (ArrayN, Str)
IsvalidValue = เท็จ
ดิม จีเนม
สำหรับแต่ละ GName ใน ArrayN
ถ้า Str = GName แล้ว
ค่าที่ถูกต้อง = จริง
ออกเพื่อ
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
-
'ตรวจสอบว่าเป็นหมายเลขที่ถูกต้อง
-
ฟังก์ชัน IsInteger(Para)
IsInteger = เท็จ
ถ้าไม่ใช่ (IsNull(Para) หรือ Trim(Para) = หรือไม่ IsNumeric(Para)) จากนั้น
เป็นจำนวนเต็ม = True
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'การตรวจสอบชื่อผู้ใช้
-
ฟังก์ชัน IsValidUserName (ชื่อผู้ใช้ byVal)
ดิม ไอ,ซี
DimVUserName
IsValidUserName = จริง
สำหรับ i = 1 ถึง Len (ชื่อผู้ใช้)
c = LCase(กลาง(ชื่อผู้ใช้, i, 1))
ถ้า InStr($!<>?#^%@~`&*();:+=' , c) > 0 แล้ว
IsValidUserName = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ต่อไป
สำหรับแต่ละ VUserName ใน Register_UserName
ถ้า UserName = VUserName แล้ว
IsValidUserName = เท็จ
ออกเพื่อ
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
-
'ตรวจสอบว่ามีที่อยู่อีเมลที่ถูกต้องหรือไม่
-
ฟังก์ชั่น IsValidEmail(อีเมล)
ชื่อติ่มซำ, ชื่อ, ฉัน, ค
IsValidEmail = จริง
ชื่อ = แยก (อีเมล, @)
ถ้า UBound(ชื่อ) <> 1 แล้ว
IsValidEmail = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
สำหรับแต่ละชื่อในชื่อ
ถ้า Len(ชื่อ) <= 0 แล้ว
IsValidEmail = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
สำหรับ i = 1 ถึง Len(ชื่อ)
c = LCase(กลาง(ชื่อ, i, 1))
ถ้า InStr(abcdefghijklmnopqrstuvwxyz_., c) <= 0 และไม่ใช่ IsNumeric(c) แล้ว
IsValidEmail = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ต่อไป
ถ้า ซ้าย(ชื่อ 1) = . หรือ ขวา(ชื่อ 1) =
IsValidEmail = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ต่อไป
ถ้า InStr(names(1), .) <= 0 จากนั้น
IsValidEmail = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
i = Len(ชื่อ(1)) - InStrRev(ชื่อ(1), .)
ถ้าฉัน <> 2 และฉัน <> 3 แล้ว
IsValidEmail = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ถ้า InStr(email, ..) > 0 จากนั้น
IsValidEmail = เท็จ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด