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

'保存用戶(hù)注冊(cè)信息
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ā)生錯(cuò)誤,回滾事務(wù)
If objConn.Errors.Count > 0 Then
 objConn.Errors.Clear
 objConn.RollBackTrans
End If

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

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

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