'Function name: chK_EMAIL ()
'Return value: Boolean (TRUE is passed, false is not passed)
'Parameters: email (Email, Type: String) TYPE_1 (Domain, Type: Boolean)
'Type_2 (Whether it can only be a specific domain E-mail registration, type: Boolean) TYPE_3 (if an e-mail can only register once, Type: Boolean)
Const c_maildomain = ". Com, .com.cn, .net, .net.cn, .org, .org.cn, .gov, .gov.cn, .edu, .edu.cn, .cn, .cc, .biz, .info "'Email Acceptable Domain
Const c_lockdomain = "bit.edu.cn, loster.org" 'specific domain
Function CHK_EMAIL (Email, Type_1, Type_2, Type_3) DIM I, K DIM AT DIM Email_1, Temp
If Email = "" "" Then Chk_Email = False EXIT FUNCTION END IF
Email_1 = CSTR (Trim (email))
If LEN (Email_1) <5 Then Chk_Email = False EXIT FUNCTION END IF
AT = false
For i = 1 to Len (email_1) Temp = MID (email_1, i, 1) if Temp = "@" at = true exit for end if Next
IF at = false the chK_EMAIL = false exit function end if k = 0
For i = 1 to Len (email_1) TEMP = MID (Email_1, I, 1) IF TEMP = "." THEN K = K 1 end if Next
IF K = 0 or K> 2 Then Chk_Email = false exit function endiff
If Type_1 = TRUE THEN
For i = 1 to Len (email_1) Temp = MID (email_1, i, 1) if Temp = "@" THEN K = I EXIT for end if next for i = k to len (email_1) TEMP = MID (email_1, i 1) IF TEMP = "." THEN K = I EXIT for end if Next
Temp = ""
For i = k to len (email_1) TEMP = TEMP MID (Email_1, I, 1) NEXT
Temp = CSTR (Trim (Temp)) at = false
For i = 0 to r_reader (c_maildomain, ",") if Temp = Reader (i) Then at = true exit for end if Next Erase Reader
If at = false = false exit function end if end ifif type_2 = True Then for i = 1 to LEN (email_1) Temp = MID (email_1, i, 1) IF TEMP = "@" THEN K = I EXIT for end IF next
Temp = ""
For i = k 1 to len (email_1) Temp = Temp MID (Email_1, I, 1) NEXT
Temp = CSTR (Trim (Temp)) at = false for i = 0 to r_reader (c_lockdomain, ",") if Temp = Reader (i) Then at = true exit for end if Next Erase Reader
If At = False Then Chk_Email = False Exit Function End If End If If Type_3 = True Then Dim j Call Greate_UserDb () Call Create_Rs ( "Select * from User_Basic_Info where User_Email = '" & Email_1 & "'", 1,1, "User" ) IF = false kil_email = false call close_rs () call close_userdb () EXIT FUNCTION END IF CALL CLOSE_RS () CALL CLOSE_USERDB () end if chk_email = trueEnd Function
DIM User_DB, User_Driverdim User_conn
User_db = "data / userdata.mdb"
'Establishment process User_conn Sub Greate_UserDb () User_Driver = "driver = {Microsoft Access Driver (* .mdb)}" User_Driver = User_Driver & "; dbq =" & server.mappath (User_Db)' Response.Write (User_Driver) Set User_Conn = Server .CreateObject ("AdoDb.connection" User_conn.open (user_driver) End Sub
'Close User_Conn process subclose_userdb () user_conn.close set user_conn = nothingend sub
Dim Readerdim RS
