国产午夜精品一区二区三区不-国产午夜精品一区二区三区不卡-国产午夜精品一区二区三区极品-国产午夜精品一区二区三区老-国产午夜精品一区二区三区漫-国产午夜精品一区二区三区嫩草

聊城網(wǎng)站制作公司,聊城網(wǎng)站建設(shè),聊城網(wǎng)站優(yōu)化,聊城網(wǎng)絡(luò)公司,聊城網(wǎng)站推廣,聊城網(wǎng)站運營,聊城網(wǎng)絡(luò)運營,聊城搜索引擎優(yōu)化,聊城網(wǎng)頁設(shè)計,聊城網(wǎng)站制作
 
 
公司擁有五年的網(wǎng)站建設(shè)經(jīng)驗,專業(yè)網(wǎng)站制作,推廣及網(wǎng)站優(yōu)化,有大量優(yōu)秀客戶案例
網(wǎng)站建設(shè) | 設(shè)為首頁 | 加入收藏 | 聯(lián)系我們  
公告:熱烈慶祝聊城精英網(wǎng)絡(luò)2010版官方網(wǎng)站改版成功!
當(dāng)前位置 :首頁 > 網(wǎng)頁知識  

各種存儲過程使用指南

http://m.zjgjyh.cn   2010-12-23   人氣:

<%
'---開始鏈接數(shù)據(jù)庫
Dim strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---結(jié)束鏈接數(shù)據(jù)庫
'---開始為輸入?yún)?shù)賦值
Dim SelectSql , SelectRs
Dim SelectID , SelectName , SelectReturn
SelectSql = "Select Max(CompanyID) From Dim_Company"
Set SelectRs = Conn.Execute(SelectSql)
SelectID = SelectRs(0)
'---結(jié)束為輸入?yún)?shù)賦值
Dim TiggerType
TiggerType = 3
Set Cmd = Server.CreateObject("ADODB.Command")
Set Cmd.ActiveConnection = Conn
Cmd.CommandType = 4 '---聲明此過程為存儲過程
If TiggerType = 1 then
'---開始一個輸入?yún)?shù)的存儲過程調(diào)用
Cmd.CommandText = "TransCompany1"
Set CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = SelectID
Cmd.Execute
'---結(jié)束一個輸入?yún)?shù)的存儲過程調(diào)用
Elseif TiggerType = 2 then
'---開始一個輸入?yún)?shù),一個輸出參數(shù)的存儲過程調(diào)用
Cmd.CommandText = "TransCompany2"
Set CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
Set CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Execute
SelectName = Cmd("@TransName")
'---結(jié)束一個輸入?yún)?shù),一個輸出參數(shù)的存儲過程調(diào)用
Elseif TiggerType = 3 then
'---開始一個輸入?yún)?shù),一個輸出參數(shù),一個返回值的存儲過程調(diào)用
Cmd.CommandText = "TransCompany3"
Set CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters.Append CmdParamReturn
Set CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
Set CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Execute
SelectName = Cmd("@TransName")
SelectReturn = Cmd("Return_Value")
'---結(jié)束一個輸入?yún)?shù),一個輸出參數(shù),一個返回值的存儲過程調(diào)用
End if
Conn.Close
Set Conn = Nothing
Set Cmd = Nothing
Set CmdParamID = Nothing
Set CmdParamname = Nothing
Set CmdParamReturn = Nothing
%>

專業(yè)設(shè)計團隊
滿足您的各種設(shè)計要求
實力程序開發(fā)團隊
為您定制各種程序模塊
后臺管理高效安全
方便更新上傳網(wǎng)站資料
全球高速訪問
無盲區(qū)、定制異地備份
專業(yè)客服團隊
解決一切使用難題
贈送大容量空間郵箱
免費優(yōu)化推廣
   
關(guān)于我們 | 工作機會 | 付款方式 | 網(wǎng)站制作 | 網(wǎng)頁制作 | 網(wǎng)頁設(shè)計 | 網(wǎng)絡(luò)公司 | 聯(lián)系我們 | 網(wǎng)站地圖
版權(quán)所有:聊城精英網(wǎng)絡(luò)科技有限公司 © 2005-2010 All Rights Reserved.
咨詢專線:0635-6950368 技術(shù)專線:15192175820 在線QQ:312817927 1485871644
地址:聊城市閘口科技市場 郵編:252000 蘇ICP備10112026號
主站蜘蛛池模板: 国产精品三级美女网站全黄真人一级毛片 | 国产日韩精品一区二区三 | 黑人巨大av在线播放无码 | 国产00高中生在线无套进入 | 一本大道伊人av久久综合 | 久久精品a一国产成人免费网站 | 国产三级在线视频播放线 | 97久久偷偷做嫩草影院免费看 | 高潮又爽又无遮挡又免费 | 欧美超级乱婬视频播放 | 人妻在厨房被色诱中文字幕 | 久久精品国产亚洲av瑜伽 | 国产aⅴ无码专区亚洲av麻豆 | 色综合久久久久综 | 亚洲第一日韩AV综合网 | 黑色丝袜国产精品 | 成人国产高清久久 | 无码精品a∨在线观看十八禁 | 国产免费一区二区三区香蕉精 | 成人做爰WWW免费看视频韩国 | 亚洲不卡无码永久在线观看 | 国产精品成人久久电影 | 无码97色伦在色在线播放 | 亚洲av无码一区二区三区在线高 | 亚洲精品一区国产 | 久久夜色精品国产嚕嚕亚洲av | 亚洲午夜影院 | 亚洲成人综合亚洲欧洲 | 亚洲午夜久久久 | 亚洲成熟网站源码公司51专业的数字解决方案提供者 | 欧美日韩精品一区二区三区激情在线 | 四虎最新在线永久免费 | 国产爆乳美女娇喘呻吟在线观看 | 无码国产69精品久久久孕妇 | 亚洲欧美日韩精品久久久 | 亚洲成人自拍/在线视频一区二区日韩国产/亚洲第一页色/国 | 国精产品W灬源码A片伊在线 | 国产成人啪一区二区 | 国产日韩欧美福利 | 欧美日韩国产ⅴa另类 | 糙汉顶弄抽插HHHH |