下面是我写的代码测试：
1
<% @Transaction = Required %>
2<% Option Explicit %>
3<%
4
5Dim con1, con2
6Dim rs1, rs2
7
8On Error Resume Next
9Randomize
10
11' Open Connection
12Set con1 = Server.CreateObject("ADODB.Connection")
13Set con2 = Server.CreateObject("ADODB.Connection")
14
15con1.Open "provider=sqloledb.1; data source=192.168.107.102; user id=sa; password=123456; initial catalog=northwind"
16con2.Open "provider=sqloledb.1; data source=192.168.107.97; user id=sa; password=sa; initial catalog=northwind"
17
18' Open Recordset
19Set rs1 = Server.CreateObject("ADODB.Recordset")
20Set rs2 = Server.CreateObject("ADODB.Recordset")
21
22rs1.Open "SELECT * FROM T_ADO1", con1, 1, 3
23rs2.Open "SELECT * FROM T_ADO2", con2, 1, 3
24
25' AddNew Record
26rs1.AddNew
27rs1("num") = Rnd() * 100
28rs1.Update
29
30rs2.AddNew
31rs2("num") = Rnd() * 100
32rs2.Update
33
34' Raise Error Or Not
35If Request.QueryString("error") = 1 Then
36 tempNumber = CInt("abc")
37End If
38
39' If Error Occured, Rollback Transaction
40If Err.Number <> 0 Then
41 ObjectContext.SetAbort
42 Response.Write Err.Number & "<br>" & Err.Description
43Else
44 Response.Write "OK"
45End If
46
47' Close Recordset
48If Not (rs1 Is Nothing) Then
49 rs1.Close
50End If
51If Not (rs2 Is Nothing) Then
52 rs2.Close
53End If
54
55Set rs1 = Nothing
56Set rs2 = Nothing
57
58
59' Close Connection
60If Not (con1 Is Nothing) Then
61 con1.Close
62End If
63If Not (con2 Is Nothing) Then
64 con2.Close
65End If
66
67Set con1 = Nothing
68Set con2 = Nothing
69
70%>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70