connection objConn '連接數(shù)據(jù)庫
objConn.BeginTrans '啟動事務(wù)

'保存用戶注冊信息
strSql = "INSERT INTO members(userName, userPass, nickName, locus, email, inviteName, joinTime, activeString, activeExpires) VALUES('"& strUserName &"', '"& strPassEncry &"', '"& strNickName &"', '"& strLocus &"', '"& strEmail &"', '"& strInvite &"', '"& Now() &"', '"& strActive &"', '"& Date()+3 &"')"
objConn.Execute(strSql)

'發(fā)生錯誤,回滾事務(wù)
If objConn.Errors.Count > 0 Then
 objConn.Errors.Clear
 objConn.RollBackTrans
End If

'保存用戶教育信息
strSql = "INSERT INTO education(userName, eduCode) VALUES('"& strUserName &"', '"& strCollege &"')"
objConn.Execute(strSql)

'發(fā)生錯誤,回滾事務(wù)
If objConn.Errors.Count > 0 Then
 objConn.Errors.Clear
 objConn.RollBackTrans
End If

objConn.CommitTrans  '提交事務(wù)
destroy objConn   '關(guān)閉數(shù)據(jù)庫