冷眼 - 技術(shù)專欄

態(tài)度決定高度，責(zé)任勝于能力；思想比知識(shí)更重要，成長(zhǎng)比成功更重要！

:: 首頁(yè) :: :: 聯(lián)系 :: :: 管理 ::

14 隨筆 :: 13 文章 :: 0 評(píng)論 :: 0 Trackbacks

公告

文學(xué)作品不在此博客更新，有興趣的朋友可以訪問(wèn)我的另一博客 http://icyeyes.blog.163.com

隨筆分類

文章分類

友情鏈接

(Java)eric
(Java)劉長(zhǎng)炯
(Java)呂建偉
(Java)孫鑫
(Java)耐人尋味
(Java)臧圩人
(Java)趙學(xué)慶
(MySQL)滄海一笑

搜索

最新評(píng)論

ASP調(diào)用存儲(chǔ)過(guò)程

MS SQL存儲(chǔ)過(guò)程

Create?proc?sp_join

????@result?int?output,

????@email?nvarchar(30),

????@username?nvarchar(15)

AS

--?開始事務(wù)

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

--?提交事務(wù)

Set?@result?=?1

Commit?Tran

Return

--?回滾事務(wù)

back:

????Set?@result?=?0

????RollBack?Tran

????Return

數(shù)據(jù)庫(kù)連接代碼

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調(diào)用代碼

Dim?strEmail,?strUserName

Dim?objCmd,?objConn,?intResult

strEmail?=?Request.Form("email")

strUserName?=?Request.Form("username")

'服務(wù)器端數(shù)據(jù)驗(yàn)證（略）

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("注冊(cè)失敗")

Else

????Response.Write("注冊(cè)成功")

End?If

這是一個(gè)簡(jiǎn)單的例子，希望能起到拋磚引玉的作用。

posted on 2008-05-21 15:26 冷眼閱讀(836) 評(píng)論(0) 編輯收藏所屬分類: ASP