以下是引用片段: CREATE PROC 存储过程名称 [参数列表(多个以“,”分隔)] AS SQL 语句 |
以下是引用片段: CREATE PROC upGetUserName @intUserId INT, @ostrUserName NVARCHAR(20) OUTPUT -- 要输出的参数 AS BEGIN -- 将uName的值赋给 @ostrUserName 变量,即要输出的参数 SELECT @ostrUserName=uName FROM uUser WHERE uId=@intUserId END |
以下是引用片段: Dim adoComm ’// 创建一个对象,我们用来调用存储过程 Set adoComm = CreateObject("ADODB.Command") With adoComm ’// 设置连接,设 adoConn 为已经连接的 ADODB.Connection 对象 .ActiveConnection = adoConn ’// 类型为存储过程,adCmdStoredProc = 4 .CommandType = 4 ’// 存储过程名称 .CommandText = "upGetUserName" ’// 设置用户编号 .Parameters.Item("@intUserId").Value = 1 ’// 执行存储过程 .Execute ’// 取得从存储过程返回的用户名称 Response.Write "用户名:" & .Parameters.Item("@ostrUserName").Value End With ’// 释放对象 Set adoComm = Nothing |
以下是引用片段: CREATE PROC upUserLogin @strLoginName NVARCHAR(20), @strLoginPwd NVARCHAR(20), @blnReturn BIT OUTPUT AS -- 定义一个临时用来保存密码的变量 DECLARE @strPwd NVARCHAR(20) BEGIN -- 从表中查询当前用户的密码,赋值给 @strPwd 变量,下面要对他进行比较 SELECT @strPwd=uLoginPwd FROM uUser WHERE uLoginName=@strLoginName IF @strLoginPwd = @strPwd BEGIN SET @blnReturn = 1 -- 更新用户最后登录时间 UPDATE uUser SET uLastLogin=GETDATE() WHERE uLoginName=@strLoginName END ELSE SET @blnReturn = 0 END |
以下是引用片段: Dim adoComm ’// 创建一个对象,我们用来调用存储过程 Set adoComm = CreateObject("ADODB.Command") With adoComm ’// 设置连接,设 adoConn 为已经连接的 ADODB.Connection 对象 .ActiveConnection = adoConn ’// 类型为存储过程,adCmdStoredProc = 4 .CommandType = 4 ’// 存储过程名称 .CommandText = "upUserLogin" ’// 设置登录名称 .Parameters.Item("@strLoginName").Value = "admin" ’// 设置登录密码 .Parameters.Item("@strLoginPwd").Value = "123456" ’// 执行存储过程 .Execute ’// 判断是否登录成功 If .Parameters.Item("@blnReturn").Value = 1 Then Response.Write "恭喜你,登录成功!" Else Response.Write "不是吧,好像错了哦。。。" End If End With ’// 释放对象 Set adoComm = Nothing |
以下是引用片段: CREATE PROC upGetUserInfos @intUserGroup INT AS BEGIN -- 从数据库中抽取符合条件的数据 SELECT uName,uGroup,uLastLogin FROM uUser WHERE uGroup=@intUserGroup -- 插入一列合计 UNION SELECT ’合计人数:’,COUNT(uGroup),NULL FROM uUser WHERE uGroup=@intUserGroup END |
以下是引用片段: Dim adoComm Dim adoRt ’// 创建一个对象,我们用来调用存储过程 Set adoComm = CreateObject("ADODB.Command") Set adoRs = CreateObject("ADODB.Recordset") With adoComm ’// 设置连接,设 adoConn 为已经连接的 ADODB.Connection 对象 .ActiveConnection = adoConn ’// 类型为存储过程,adCmdStoredProc = 4 .CommandType = 4 ’// 存储过程名称 .CommandText = "upGetUserInfos" ’// 设置用户组 .Parameters.Item("@intUserGroup").Value = 1 ’// 执行存储过程,和以上几个例子不同,这里使用RecordSet的Open方法 adoRs.Open adoComm ’// 显示第一个值 Response.write adoRs.Fields(0).Value End With ’// 释放对象 Set adoRs = Nothing Set adoComm = Nothing |