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

聊城網(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免费看 | 久久久久国产成人精品亚洲午夜 | 人妻暴雨中被强制侵犯在线 | 亚瑟在线中文影院 | 97久久精品无码一区二区 | 夜夜嗨色综合av麻豆精品 | 国产在线视频第一页 | 国产精品果冻传媒呆梦梦 | 色情成人免费视频激情在线观看 | 无码国产精品亚洲а∨天堂dvd | 国产午夜鲁丝片av无码 | 成人无码区免费a片www | 日韩免费高清无码一级片 | AV无码人妻一区二区三区牛牛 | 亚洲av永久无码精品网站 | 免费1级做爰片在线观看爱 免费99精品国产人妻自在线 | 丝袜脚交国产在线观看 | 国产成人一区二区三区毛片 | 精品一区二区三区免费毛片 | 亚洲国产av无码片一区二区 | 精品区卡一卡2 | 国产成人精品亚洲精品日日 | 别停好爽好深好大好舒服视频 | 国产精品久久久久久日本 | 欧美激情一区二区三区AA片 | 欧美精品在线观看 | 亚洲中文字幕无码av在线 | 午夜西瓜视频在线观看 | 色欲aⅴ精品一区二区在线播放 | 精品视频专区 | 成人无码av一区二区三区 | 国产三级观看久久 | 一区二区三区在线观看国产 | 日本亚洲欧美色视频在线播放 | 亚洲欧美成人一区二区三区 | 亚洲av无码片vr一区二区 | 国产成人无码aa精品一区 | 精品人妻无码一区二区三区换脸专区永久午夜被 |