MS SQL存储过程
Create proc sp_join
@result int output,
@email nvarchar(30),
@username nvarchar(15)
AS
-- 开始事务
Begin Tran
INSERT INTO users(username, email) VALUES(@username, @email)
IF @@ERROR <> 0 GOTO back
INSERT INTO register(username) VALUES(@userName)
IF @@ERROR <> 0 GOTO back
-- 提交事务
Set @result = 1
Commit Tran
Return
-- 回滚事务
back:
Set @result = 0
RollBack Tran
Return
Sub Command(oCmd)
Set oCmd = Server.CreateObject("ADODB.Command")
End Sub
Sub Connection(oConn)
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Server=;User ID=;Password=;Database=;"
End Sub
Sub Destroy(obj)
If isObject(obj) Then Set obj = Nothing
End Sub
Dim strEmail, strUserName
Dim objCmd, objConn, intResult
strEmail = Request.Form("email")
strUserName = Request.Form("username")
'服务器端数据验证（略）
Command objCmd
Connection objConn
With objCmd
.ActiveConnection = objConn
.CommandType = 4
.CommandText = "sp_join"
.Parameters.Refresh
.Parameters("@email") = strEmail
.Parameters("@username") = strUserName
.Execute
End With
intResult = objCmd.parameters("@result")
Destroy objCmd
Destroy objConn
If intResult = 0 Then
Response.Write("注册失败")
Else
Response.Write("注册成功")
End If
Create proc sp_join @result int output, @email nvarchar(30), @username nvarchar(15)AS-- 开始事务Begin Tran INSERT INTO users(username, email) VALUES(@username, @email) IF @@ERROR <> 0 GOTO back INSERT INTO register(username) VALUES(@userName) IF @@ERROR <> 0 GOTO back-- 提交事务Set @result = 1Commit TranReturn-- 回滚事务back: Set @result = 0 RollBack Tran Return数据库连接代码
Sub Command(oCmd) Set oCmd = Server.CreateObject("ADODB.Command")End SubSub Connection(oConn) Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=SQLOLEDB;Server=;User ID=;Password=;Database=;"End SubSub Destroy(obj) If isObject(obj) Then Set obj = NothingEnd SubASP调用代码
Dim strEmail, strUserNameDim objCmd, objConn, intResultstrEmail = Request.Form("email")strUserName = Request.Form("username")'服务器端数据验证（略）Command objCmdConnection objConnWith objCmd .ActiveConnection = objConn .CommandType = 4 .CommandText = "sp_join" .Parameters.Refresh .Parameters("@email") = strEmail .Parameters("@username") = strUserName .ExecuteEnd WithintResult = objCmd.parameters("@result")Destroy objCmdDestroy objConnIf intResult = 0 Then Response.Write("注册失败")Else Response.Write("注册成功")End If这是一个简单的例子，希望能起到抛砖引玉的作用。