昨晚有空，把 sybase 系统过程 sp_who ， DDL 后分析了一下，全文如下：
-- 以下是 DDL 出来的内容：
-----------------------------------------------------------------------------
-- DDL for Stored procedure 'sybsystemprocs.dbo.sp_who'
-----------------------------------------------------------------------------
-- 以上是注释
print 'Creating Stored procedure sp_who'
go
-- 上面两句是显示一句话， go 是执行(下同)
use sybsystemprocs
go
-- 选择将要使用的数据库(存储过程建在什么数据库里)
setuser 'dbo'
go
-- 使当前用户充当 'dbo
-- 以下是存储过程的实体
/* Sccsid = "%Z% generic/sproc/%M% %I% %G%" */
/* 4.8 1.1 06/14/90 sproc/src/serveroption */
/*
** Messages for "sp_who" 17nnn
**
** 17231, "No login with the specified name exists."
*/
-- 以上是注释
create procedure sp_who @loginame varchar(30) = NULL as
-- 创建存储过程 sp_who) 的参数 loginame
declare @low int
declare @high int
declare @spidlow int
declare @spidhigh int
declare @len1 int, @len2 int, @len3 int
-- 申明了若干变量
if @@trancount = 0
--@@ 开头的都是系统全局变量
--@@trancount 是用来检查事务嵌套级别的全局变量，批处理中每个 begin transaction 将事务计数加 1
begin
set chained off
-- 用在会话开始和事务结束时使用，指示是否在第一个数据检索或数据修改语句前开始一个事务(是否在 delte 、 fetch 、 insert 、 open 、 select 、 update 前隐式执行一个 begin transaction 命令)
end
set transaction isolation level 1
-- 设置会话所用的事务隔离级别。当设置此选项后，所有当前或将来的事务都将在些隔离级别上运行
--level 1 的意义：允许对数据使用共享读取锁
select @low = @@minsuid, @high = @@maxsuid,
@spidlow = @@minspid, @spidhigh = @@maxspid
-- 给局部变量赋值，四个全局变量的含义：
--@@minsuid ：最小服务器用户 ID
--@@maxsuid ：最大服务器用户 ID
--@@minspid ：最小服务器进程 ID
--@@maxspid ：最大服务器进程 ID
if @loginame is not NULL
-- 判断存储过程的参数是否为空
begin
-- 开始一个新的批
select @low = suser_id(@loginame), @high = suser_id(@loginame)
--suser_id: 系统函数，返回服务器用户在 syslogins 表中的 ID 号
if @low is NULL
-- 如果参数 @loginame 不正确的话， suser_id 应该返回 NULL
begin
if @loginame like "[0-9]%"
-- 判断一下 @loginame 是不是数字开头的字符串
begin
-- 如果是的话把说明参数 @loginame 应该是服务器系统进和 ID
select @spidlow = convert(int, @loginame),
@spidhigh = convert(int, @loginame),
@low = 0, @high = @@maxsuid
-- 把参数 @loginame 转换成 int 型并赋给 @spidlow 和 @spidhigh
end
else
-- 如果不是数据开头的字符串，返回错误代码，并返回
begin
/*
** 17231, "No login with the specified name exists."
*/
raiserror 17231
-- 返回的错误号是 17231
--raiserror 的作用是返回预定义的错误号
return (1)
end
end
end
-- 以上进行的工作是将 @loginame 进行处理，生成下面查询语言的所需的条件值 @low 、 @high 、 @spidlow 、 @spidhigh
select @len1 = max(datalength(suser_name(suid))),
@len2 = max(datalength(db_name(dbid))),
@len3 = max(datalength(suser_name(origsuid)))
from master..sysprocesses
where suid >= @low and suid <= @high and
spid >= @spidlow and spid <= @spidhigh
--suser_name() ：返回当前服务器用户的名称或已指定服务器用户 ID 的用户
--db_name() ：返回已指定 ID 号的数据库的名称
--suser_name() ：返回当前服务用户的名称或已指定服务器用户 ID 的用户
--datalength() ：返回指定列或字符串的实际长度(以字节表示)
--max() ：返回表达式的最大值
-- 以上语句找出 master 库 sysprocesses 表中 suid 、 dbid 、 origsuid 三列的最大实际长度
-- 以下语句是返回结果
-- 两个 select 语句的检索列、 from 、 where 、 order 子句都是一样的，只是检索列的字符串长度不一致！(更好看些，呵呵)
-- 两个 select 语句都是从 master 库 sysprocesses 表中检索出符合条件的指定列， 红色的地方是两个 select 不一致的地方 。
if (@len1 > 8 or @len2 > 6 or @len3 > 8)
begin
select fid,
spid,
status,
loginame=suser_name(suid),
origname=isnull(suser_name(origsuid), suser_name(suid)),
hostname,
blk_spid=convert(char(5),blocked),
dbname=db_name(dbid),
cmd,
block_xloid
from master..sysprocesses
where suid >= @low and suid <= @high
and spid >= @spidlow and spid <= @spidhigh
order by fid,spid,dbname
end
else
begin
select fid,
spid,
status,
loginame= convert(char(12), suser_name(suid) ) ,
origname= convert(char(12), isnull(suser_name(origsuid), suser_name(suid)) ) ,
hostname,
blk_spid=convert(char(5),blocked),
dbname=convert(char(10),db_name(dbid)),
cmd,
block_xloid
from master..sysprocesses
where suid >= @low and suid <= @high
and spid >= @spidlow and spid <= @spidhigh
order by fid,spid,dbname
end
return (0)
-- 返回
go
Grant Execute on dbo.sp_who to public
-- 向 public 组授予执行 sp_who 的权限
go
setuser
-- 如果在执行 setuser 命令时没有指定用户名，则将重新建立数据库所有者的初始标识
go
-- 我们可以看到，该存储过程的基本思路是先对传入的参数进行处理，生成查询用的条件参数，进而得出查询结果。
-- 对于该存储过程为了最终显示效果而加入的一段代码的作法，是值得我们学习的。
分析下来，如果你执行一个 sp_who '1sgfadf'
就会发生：
Syntax error during explicit conversion of VARCHAR value '1sgfadf' to a INT field.
的错误
呵呵，都是下面这段语句惹的祸：
if @loginame like "[0-9]%"
-- 判断一下 @loginame 是不是数字开头的字符串
begin
-- 如果是的话把说明参数 @loginame 应该是服务器系统进和 ID
select @spidlow = convert(int, @loginame),
@spidhigh = convert(int, @loginame),
@low = 0, @high = @@maxsuid
-- 把参数 @loginame 转换成 int 型并赋给 @spidlow 和 @spidhigh
end
分享至：
)
