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

聊城網(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號
主站蜘蛛池模板: 国产成人亚洲综合第一精品 | 海角社区最新 在线 观看 | 成人性做爰aaa片免费看 | 国产婷婷一区二区在线观看 | 午夜精品一区二区三区在线观看 | 18禁裸乳无遮挡免费网站 | 亚洲国产91精品一区 | 国产女人精品视频国产灰线 | 亚洲天堂.com | 麻豆国产乱人伦精品一区二区 | 国产日韩欧美亚洲欧美日韩国产 | 亚洲欧美综合在线天堂 | 亚洲成a∨人片在线观看无码 | 亚洲高清一区二区不卡 | 熟女人妻の中文字幕 | 亚洲av无码成人精品国产 | 中文字幕无码不卡一区二区 | 92国产精品午夜免费福利视频 | 国产三级理论片 | 国产91精品久久久久久 | 亚洲欧美国产国产综合精品一 | 国产麻豆91欧美一区二区 | 亚洲美腿丝袜欧美另类 | 免费国产a国产片高清网站 免费国产凹凸在线视频 | 国产人成视频在线视频 | 香婷婷一区二区精品久久 | 精品乱人伦中文字幕视频 | 字幕无码一区 | 久久精品久久精品久久 | 香港三香港日本三级在线理论 | 3D肉蒲团之极乐宝鉴8K影院 | 一本一道久久a久久精品综合 | 久久久久人妻一区精品色 | 欧美日韩国产在线观看 | 无码AⅤ精品一区二区三区 无码aⅴ网站在线观看 | 99国产精品永久免费视频 | 四虎影视国产永久免费 | 国产午夜av在线播放 | 日韩色情图片AV一区 | 亚洲国产成人久久精品动漫 | 99久久精品免费国产一区二区三区 |