|
Set
Abort Method
<%@ Language=VBScript
@TRANSACTION=REQUIRED %>
<%
Sub onTransactionCommit()
Dim conn
Dim SQL
Dim aConnectionString
aConnectionString = "Provider=SQLOLEDB;Data Source=(local);Database=
ClassRecords; UID=sa; PWD=; "
Set conn = Server.Create0bject("ADODB.Connection")
conn.Mode = adModeRead
conn.ConnectionString = aConnectionString
conn.CursorLocation = adUseClient
conn.open SQL = "SELECT Grade FROM Students WHERE LastName='Chen'"
Set R = conn.execute(SQL, , adCmdText)
Response.Write "After commit, grade = " &
R("Grade").Value & "<br>, R.Close
Response.Write "<br>Transaction Committed<Br>"
End Sub
Sub onTransactionAbort()
Dim conn
Dim SQL
Dim aConnectionString
aConnectionString = "Provider=SQLOLEDB;Data
& "Source=(local);Database=ClassRecords;" & "UID=sa;PWD=;"
Set conn = Server.Create0bject("ADODB.Connection")
conn.Mode = adModeRead
conn.ConnectionString = aConnectionString
conn.CursorLocation = adUseClient
conn.open
SQL = "SELECT Grade FROM Students WHERE LastName='Chen"'
Set R = conn.execute(SQL, , adCmdText)
Response.Write "After abort, grade = " &
R("Grade").Value & "<br>"
R.Close
Response.Write "<br>Transaction Aborted<br>"
End Sub
%>
<html>
<head>
</head>
<body>
<%
Dim conn
Dim SQL
Dim aConnectionString
aConnectionString = "Provider=SQLOLEDB;Data " &
"Source=(local);Database=ClassRecords;" ~ & "UID=sa;PWD=;"
Set conn = Server.Create0bject("ADODB.Connection")
conn.Mode = adModeRead
conn.ConnectionString = aConnectionString
conn.CursorLocation = adUseClient
conn.open
SQL = "SELECT Grade FROM Students WHERE LastName='Chen "'
Set R = conn.execute[SQL, , adCmdText)
Response.Write "Before update, grade = " &
R("Grade").Value & "<br>"
R.Close
SQL = "Update Students SET Grade = 4 WHERE LastName='Chen "'
conn.execute SQL, , adCmdText
SQL = "SELECT Grade FROM Students WHERE LastName='Chen "'
Set R = conn.execute(SQL, , adCmdText)
Response.Write "After update, Grade = " &
R("Grade").Value & "<br>"
R.Close
ObjectContext.SetAbort
Set conn = Nothing
%>
</body>
</html>
|
