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

聊城網(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號
主站蜘蛛池模板: 一级做a爱 一区 | 精品国产欧美一区二区最新 | 成人国产精品日本在线 | 成年午夜无码av片在线观看 | 爱久久AV一区二区三区色欲 | 射精情感曰妓女色视频 | 古装国产一级视频在线 | 亚洲av综合日韩 | 性一交一乱一优A片 | 亚洲午夜成人精品 | 婷婷人妻精品一区二区三区 | 亚洲中文字幕乱码资源 | 果冻传媒精东影业麻豆2区 果冻传媒精品推荐在线观看 | 国产午夜亚洲精品 | 亚洲一区二区无码影院 | 亚洲AV日韩美AV无码一区二区 | 牛牛天天综合日韩视频影视 | 免费无遮挡无码永久视频 | 无码精品一区二区三区99不卡 | 中国丰满少妇人妻xxx性董鑫 | 国产黄频在线观看 | 性爱网站视频 | 亚洲乱码日产精品BD在线下载 | 久久久无码精品亚洲日韩啪啪网站 | 免费看成人国产一区二区三区 | 亚洲熟妇熟女ⅹxxxx | 亚洲综合激情另类图片专区 | 无码中文字幕久久久一区二区 | 国产99久久久国产精品免费看 | 国产欧美久久久精品影院 | 国产剧情乱在线观看 | 国产亚洲欧洲aⅴ综合一区 国产亚洲欧洲人人网 | 国产精品国产精品偷麻豆 | 亚洲欧美韩国日产综合在线 | 人妻在线日韩免费视频 | 人与性动交α欧美精品 | 大香伊人蕉在线观 | 欧美日韩国产在线一区二区 | 国产成人AV无码一区二区三区色 | 久久久久久久综合狠狠综合 | 一本久道亚洲综合中文无码 |