|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。存储历程|数据|数据布局/*************************************************************************/
/**/
/*procedure:up_GetForumList*/
/**/
/*Description:获得版面列表*/
/**/
/*Parameters:None*/
/**/
/*Usetable:forum,bbsuser*/
/**/
/*Author:bigeagle@163.net*/
/**/
/*Date:2000/2/10*/
/**/
/*History:*/
/**/
/*************************************************************************/
ifexists(select*fromsysobjectswhereid=object_id(up_GetForumList))
dropprocup_GetForumList
go
createprocup_GetForumList
as
selecta.id,a.rootid,a.fatherid,a.layer,a.title,a.topiccount,a.description,
UserID=b.id,b.UserName,b.Email,b.Homepage,b.Signature
fromforumasajoinBBSUserasbona.Masterid=b.IDorderbyrootid,layer
go
selectid,title,rootidfromforum
up_getforumlist
/*************************************************************************/
/**/
/*procedure:up_InsertForum*/
/**/
/*Description:新建版面*/
/**/
/*Parameters:@a_strName:版面称号*/
/*@a_strDescription:版面形貌*/
/*@a_intFatherID:分类ID,假如是0申明是年夜分类*/
/**/
/*Usetable:forum*/
/**/
/*Author:bigeagle@163.net*/
/**/
/*Date:2000/4/23*/
/**/
/*History:*/
/**/
/*************************************************************************/
ifexists(select*fromsysobjectswhereid=object_id(up_InsertForum))
dropprocup_InsertForum
go
createprocup_InsertForum@a_strNamevarchar(50),@a_strDescriptionvarchar(255),@a_intFatherIDtinyint
as
/*界说部分变量*/
declare@intLayertinyint
declare@intRootIDtinyint
/*假如是版面而且没有指定分类,则前往-1*/
if(@a_intFatherID0andnotexists(select*fromforumwhereid=@a_intFatherID))
return(-1)
/*依据@a_intFatherID盘算layer,rootid*/
if(@a_intFatherID=0)
begin
select@intLayer=0
select@intRootID=0
end
else
begin
select@intLayer=1
select@intRootID=@a_intFatherID
end
InsertintoForum(rootid,layer,fatherid,title,description)
values(@intRootID,@intLayer,@a_intFatherID,@a_strName,@a_strDescription)
if(@a_intFatherID=0)
begin
select@intRootID=@@identity
updateForumsetrootid=@intRootIDwhereid=@intRootID
end
go
/*************************************************************************/
/**/
/*procedure:up_DeleteForum*/
/**/
/*Description:删除版面*/
/**/
/*Parameters:@a_intForumID:版面id*/
/**/
/*Usetable:forum*/
/**/
/*Author:bigeagle@163.net*/
/**/
/*Date:2000/4/23*/
/**/
/*History:*/
/**/
/*************************************************************************/
ifexists(select*fromsysobjectswhereid=object_id(up_DeleteForum))
dropprocup_DeleteForum
go
createprocup_DeleteForum@a_intForumIDtinyint
as
deletefromForumwhereid=@a_intForumID
deletefromForumwhereRootID=@a_intForumID
go
selectid,title,rootid,fatheridfromforum
/*************************************************************************/
/**/
/*procedure:up_PostTopic*/
/**/
/*Description:发贴子*/
/**/
/*Parameters:@a_intForumID:版面id*/
/*@a_intFatherID:父贴ID,假如是新主题为0*/
/*@a_strSubject:题目*/
/*@a_strContent:内容*/
/*@a_intUserID:发贴人ID*/
/*@a_intFaceID:心情ID*/
/*@a_strIP:发贴人IP*/
/**/
/*Usetable:bbs,forum,bbsuser*/
/**/
/*Author:bigeagle@163.net*/
/**/
/*Date:2000/2/13*/
/**/
/*History:*/
/**/
/*************************************************************************/
ifexists(select*fromsysobjectswhereid=object_id(up_PostTopic))
dropprocup_PostTopic
go
createprocup_PostTopic
@a_intForumIDint,
@a_intFatherIDint,
@a_strSubjectvarchar(255),
@a_strContenttext,
@a_intUserIDint,
@a_intFaceIDint,
@a_strIPvarchar(255)
as
/*界说部分变量*/
declare@intRootIDint--根id
declare@dblOrderNumfloat(53)--排序基数
declare@intLayerint--层
declare@dblNextOrderNumfloat(53)--下一回贴的ordernum
/*判别有无这个版面*/
ifnotexists(select*fromforumwhereid=@a_in</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |
|