获取连接SQL服务器的信息

/*--获取连接SQL服务器的信息 所有连接本机的:操作的数据库名,计算机名,用户名,网卡物理地址,IP地址,程序名 --邹建 2003.11(引用请保留此信息)--*/ /*--调用示例 --显示所有本机的连接信息 exec p_getlinkinfo --显示所有本机的连接信息,包含ip地址 exec p_g

  /*--获取连接sql服务器的信息  
   
  所有连接本机的:操作的数据库名,计算机名,用户名,网卡物理地址,ip地址,程序名  
   
  --邹建   2003.11(引用请保留此信息)--*/  
   
  /*--调用示例  
  --显示所有本机的连接信息  
  exec   p_getlinkinfo  
   
  --显示所有本机的连接信息,包含ip地址  
  exec   p_getlinkinfo   @includeip=1  
   
  --显示连接指定数据库的信息  
  exec   p_getlinkinfo   '客户资料'  
  --*/

佳可商务购物程序 2004

在原版的基础上做了一下修正评论没有提交正文的问题特价商品的调用连接问题去掉了一个后门补了SQL注入补了一个过滤漏洞浮动价不能删除的问题不能够搜索问题收藏时放入购物车时出错点放入购物车弹出2个窗口修正主题添加问题商家注册页导航连接问题销售排行不能显示更多问题热点商品不能显示更多问题增加了服务器探测 增加了空间使用查看 增加了在线文件编辑增加了后台管理里两处全选功能更新说明：后台的部分功能已经改过前台

0

查看详情

create   proc   p_getlinkinfo  
  @dbname   sysname=null,--要查询的数据库名,默认查询所有数据库的连接信息  
  @includeip   bit=0--是否显示IP地址,因为查询IP地址比较费时,所以增加此控制  
  as  
  declare   @dbid   int  
  set   @dbid=db_id(@dbname)  
   
  create   table   #tb(id   int   identity(1,1),dbname   sysname,hostname   nchar(128),loginname   nchar(128),net_address   nchar(12),net_ip   nvarchar(15),prog_name   nchar(128))  
  insert   into   #tb(hostname,dbname,net_address,loginname,prog_name)  
  select   distinct   hostname,db_name(dbid),net_address,loginame,program_name   from   master..sysprocesses  
  where   hostname''   and   (@dbid   is   null   or   dbid=@dbid)  
   
  if   @includeip=0   goto   lb_show     --如果不显示IP地址,就直接显示  
   
  declare   @sql   varchar(500),@hostname   nchar(128),@id   int  
  create   table   #ip(hostname   nchar(128),a   varchar(200))  
  declare   tb   cursor   local   for   select   distinct   hostname   from   #tb  
  open   tb  
  fetch   next   from   tb   into   @hostname  
  while   @@fetch_status=0  
  begin  
  set   @sql='ping   '+@hostname+'   -a   -n   1   -l   1'  
  insert   #ip(a)   exec   master..xp_cmdshell   @sql  
  update   #ip   set   hostname=@hostname   where   hostname   is   null  
  fetch   next   from   tb   into   @hostname  
  end  
   
  update   #tb   set   net_ip=left(a,patindex('%:%',a)-1)  
  from   #tb   a   inner   join   (  
  select   hostname,a=substring(a,patindex('Ping   statistics   for   %:%',a)+20,20)   from   #ip  
  where   a   like   'Ping   statistics   for   %:%')   b   on   a.hostname=b.hostname  
   
  lb_show:  
  select   id,数据库名=dbname,客户机名=hostname,用户名=loginname  
  ,网卡物理地址=net_address,IP地址=net_ip,应用程序名称=prog_name   from   #tb  
   
  go