繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用排序串字段实现树状结构（存储过程）
- ASP
- asp分页（自己整理的2个分页程序）
- ASP常用的系统配置函数
- 雨哲防采集策略之列表篇
- 雨哲浅谈关于防采集而不影响收录内容篇
- asp数据库连接函数
- ajax XMLHTTP Post Form时的表单乱码综合解决
- ASP注入详细命令40条
- 用ASP实现MSSQL用户密码破解
- ASP创建对象的两种方法比较
- ASP字符串转换为整形、双精度型、布尔
- ASP计算str2在str1中出现的次数
- asp采集抓取网上房产信息的代码
- ASP注册登陆实例代码
- ASP中使用FileSystemObject时提高性能的方法
- 分享一个好东东,动态Include文件 (Dynamic File Includes)
- 解决 JScript 中使用日期类型数据时出现类型错误的问题
- 在ASP里面创建GUID
- 在JScript中使用缓存技术的实际代码
- ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
- 海阳2006+功能中的潜水王
ASP 中的 用排序串字段实现树状结构（存储过程）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 230 ::
收藏到网摘: n/a
if exists (select * from sysobjects where id = object_id("lybsave"))
drop proc lybsave
CREATE PROCEDURE [lybsave] @keyid int=0,@guestname varchar(20),@guestitle varchar(100),@guestcomm
text,@guestemail varchar(50)='',@emailflag bit=0,@fromip varchar(15),@recimail varchar(50) OUTPUT
AS
DECLARE @ostr varchar(30),@rootid int,@lybid int,@ostrs varchar(30),@l tinyint,@tdt datetime,@putdate
varchar(10),@puttime varchar(5),@eflag bit
select @tdt=getdate()
select @putdate=convert(varchar(4),datepart(yy,@tdt))+'-'+left('0'+convert(varchar(2),datepart(mm,@tdt)),2)
+'-'+left('0'+convert(varchar(2),datepart(dd,@tdt)),2)
select @puttime=left('0'+convert(varchar(2),datepart(hh,@tdt)),2)+':'+left('0'+convert(varchar(2),datepart
(mi,@tdt)),2)
select @ostr='',@rootid=0,@lybid=0,@l=0
if (@guestemail='') select @emailflag=0
If @keyid=0 --发新贴
goto newin
ELSE
begin
SELECT @lybid=lybid,@rootid=rootid,@ostr=orderstr,@recimail=guestemail,@eflag=emailflag from guestbook
where lybid=@keyid
IF @lybid=0 --回复贴没找到，当新贴发表
goto newin
ELSE
BEGIN
if (@eflag=0 and @guestemail<>'[email protected] abc') select @recimail='' --如果是版主回复且指定发邮件给提
问者，则不管发贴者是否要求回复，后面的abc相当于管理密码
if (@rootid=0) select @rootid=@lybid
select @ostrs=@ostr+'%',@lybid=0
select top 1 @lybid=lybid,@ostrs=orderstr from guestbook where rootid=@rootid and (orderstr like
@ostrs) and lybid<>@keyid order by orderstr
if (@lybid=0) select @ostr=@ostr+char(122)
else
begin
select @l=len(@ostrs)
select @ostr=left(@ostrs,@l-1)+char(ascii(substring(@ostrs,@l,1))-1)
end
goto newin
end
end
newin:
INSERT into guestbook
(guestname,guestitle,guestcomm,putdate,puttime,guestemail,emailflag,rootid,fromip,orderstr) values
(@guestname,@guestitle,@guestcomm,@putdate,@puttime,rtrim(@guestemail),@emailflag,@rootid,@fromip,@ostr)
删贴（剪枝）存储过程：
if exists (select * from sysobjects where id = object_id("lybdel"))
drop proc lybdel
CREATE PROCEDURE [lybdel] @keyid int
AS
DECLARE @ostr varchar(30),@rootid int,@lybid int
select @ostr='',@rootid=0,@lybid=0
SELECT @ostr=orderstr,@rootid=rootid,@lybid=lybid from guestbook where lybid=@keyid
if (@lybid<>0)
BEGIN
if (@rootid=0) select @rootid=@lybid
SELECT @ostr=@ostr+'%'
DELETE FROM guestbook where orderstr like @ostr and rootid=@rootid or lybid=@rootid
END
评论 (0) All
