MS SQL存储过程

　　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

　　ASP调用代码

　　

　　

　　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

宝宝可以吃冰糖吗  红豆 赤豆 区别  天翼手机导航下载  wifi sync 下载  机场指挥调度系统  

---