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

聊城網(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在线播放 | 极品av麻豆国产在线观看 | 成人无码网www在线观看 | 人妻无码一区二区三区免费 | 亚洲国产精品毛片aⅴ不卡在线 | 久久国产精品视频影院 | 国产又色又爽又高潮免费视频麻豆 | 国产成人无码免费看视频 | 国产精品第1页 | 一区二区三区日韩高清 | 午夜AV亚洲一码二中文字幕青青 | 国产女教师bbwbbwbbw | 久久精品一区二区三区中文字幕 | 国产露脸无码A区久久蘑菇 国产乱xxⅹxx国语对白 | 亚洲国产视频一区 | 久久无码潮喷a片无码高潮 久久无码潮喷A片无码高潮动漫 | 国产精品V日韩精品V在线观看 | 999久久国产精品免费人妻 | 人妻少妇无码专视频在线韩国狠狠女人另类的尹人香蕉 | 国产日产综合 | 亚洲一级毛片免费看 | 一区二区三区国产好的精 | 自拍一区在线观看 | 国色天香社区视频在线 | 四虎成人精品无码永久在线 | 人妻精品动漫h无码网站 | 在线观看二区 | 久久成人黄色视频 | 亚洲av香蕉一区二区三区 | 亚州精品中文字幕在线 | 国产精品日韩电影制服丝袜 | 国产sm调教视频在线观看 | 亚洲日韩欧美一区、二区 | 伊人久久大香线焦 | 亚洲午夜久久久精品影院视色 | GAY高潮痉挛哭叫失禁男 | 一本色道久久88综合日韩精品 | 日韩av东京社区男人的天堂 | 国产在线乱子伦一区二区 | 亚洲精品亚洲人成在线 | 欧美人与禽交视频在线观看 |