该博客为转载内容，转载自https://www.cnblogs.com/gucsnet/archive/2005/11/28/286044.html ，涉及数据库方面。
下面是我写的代码测试：
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%>
<% @Transaction = Required %>2
<% Option Explicit %>3
<%4
5
Dim con1, con26
Dim rs1, rs27
8
On Error Resume Next9
Randomize10
11
' Open Connection12
Set con1 = Server.CreateObject("ADODB.Connection")13
Set con2 = Server.CreateObject("ADODB.Connection")14
15
con1.Open "provider=sqloledb.1; data source=192.168.107.102; user id=sa; password=123456; initial catalog=northwind"16
con2.Open "provider=sqloledb.1; data source=192.168.107.97; user id=sa; password=sa; initial catalog=northwind"17
18
' Open Recordset19
Set rs1 = Server.CreateObject("ADODB.Recordset")20
Set rs2 = Server.CreateObject("ADODB.Recordset")21
22
rs1.Open "SELECT * FROM T_ADO1", con1, 1, 323
rs2.Open "SELECT * FROM T_ADO2", con2, 1, 324
25
' AddNew Record26
rs1.AddNew27
rs1("num") = Rnd() * 10028
rs1.Update29
30
rs2.AddNew31
rs2("num") = Rnd() * 10032
rs2.Update33
34
' Raise Error Or Not35
If Request.QueryString("error") = 1 Then36
tempNumber = CInt("abc")37
End If38
39
' If Error Occured, Rollback Transaction40
If Err.Number <> 0 Then41
ObjectContext.SetAbort42
Response.Write Err.Number & "<br>" & Err.Description43
Else44
Response.Write "OK"45
End If46
47
' Close Recordset48
If Not (rs1 Is Nothing) Then49
rs1.Close50
End If51
If Not (rs2 Is Nothing) Then52
rs2.Close53
End If54
55
Set rs1 = Nothing56
Set rs2 = Nothing57
58
59
' Close Connection60
If Not (con1 Is Nothing) Then61
con1.Close62
End If63
If Not (con2 Is Nothing) Then64
con2.Close65
End If66
67
Set con1 = Nothing68
Set con2 = Nothing69
70
%>
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
