冷眼 - 技術(shù)專欄
          
				
          態(tài)度決定高度，責(zé)任勝于能力；思想比知識更重要，成長比成功更重要！
          
			          		
		
          
	
          

          

          
	
          
		
          
			
 
 ::
首頁 ::
 ::
聯(lián)系 ::

 ::
管理 ::


			
			
				

          
	
          
		
          
			
			
			
				 
				14 
				隨筆 ::
				13 文章
				::
				0 評論
				::
				0 Trackbacks
			
		
          
	
          

          

			          		
		
          
	
          

          


          


          
	
					

          
	
	
	
          
		MS SQL存儲過程
          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ù)庫連接代碼
          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(          "注冊失敗")
          Else
          ????Response.Write(          "注冊成功")
          End?If
          這是一個簡單的例子，希望能起到拋磚引玉的作用。
          
	
          
	
	
          
		posted on 2008-05-21 15:26 冷眼 閱讀(835) 評論(0)  編輯  收藏  所屬分類: ASP 
	
          

          







          
	    
    

          

				

          




    



          
        
	




主站蜘蛛池模板：
棋牌|
奉新县|
合水县|
罗平县|
花垣县|
江阴市|
巴里|
荆门市|
绵竹市|
团风县|
台湾省|
方山县|
红安县|
泰和县|
鹰潭市|
库伦旗|
长海县|
大丰市|
新安县|
渝中区|
临澧县|
喀喇|
马边|
吴忠市|
松潘县|
舞阳县|
濮阳市|
井陉县|
达日县|
桂林市|
汝阳县|
彝良县|
灌云县|
宝兴县|
英超|
山东|
蓬莱市|
长垣县|
龙口市|
平原县|
栾川县|