繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > bbs的数据结构和存储过程（二）
- ASP
- 基于ASP的收发文管理系统的设计与实现
- 用ASP制作张扬个性的调查系统
- 使用XMLHTTP制作域名查询系统
- Delphi编写组件封装asp代码的基本步骤
- 采用XMLHTTP编写一个天气预报的程序
- 菜鸟详听ASP中也能解压缩rar文件
- 用Asp+XmlHttp实现RssReader功能
- 纯ASP代码之公历转农历实现(含属相)
- 纯ASP代码之公历转农历实现(含属相)--例子代码
- 多个域名后缀同时查询的域名查询系统
- 实现有管理功能的ASP留言板
- Jmail发信的实例,模块化随时调用
- 纯ASP(VBscript)写的全球IP地址搜索程序
- 数字和字母组合并生成图片的验证码祥解
- 金额大小写转换的asp完全无错版本
- 用ASP学做一个在线调查
- 利用客户端js实现汉字简体繁体转换
- ASP操作XML文件的完整实例
- 浅谈TeeChart组件在ASP中的应用
- 在VB中利用Word宏命令开发ASP组件
ASP 中的 bbs的数据结构和存储过程（二）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 243 ::
收藏到网摘: n/a
/* */
/* procedure : up_GetForumList */
/* */
/* Description: 取得版面列表 */
/* */
/* Parameters: None */
/* */
/* Use table: forum , bbsuser */
/* */
/* Author: [email protected] */
/* */
/* Date: 2000/2/10 */
/* */
/* History: */
/* */
/*************************************************************************/
if exists(select * from sysobjects where id = object_id('up_GetForumList'))
drop proc up_GetForumList
go
create proc up_GetForumList
as
select a.id , a.rootid , a.fatherid , a.layer , a.title , a.topiccount , a.description ,
'UserID'=b.id , b.UserName , b.Email , b.Homepage , b.Signature
from forum as a join BBSUser as b on a.Masterid=b.ID order by rootid , layer
go
select id , title , rootid from forum
up_getforumlist
/*************************************************************************/
/* */
/* procedure : up_InsertForum */
/* */
/* Description: 新建版面 */
/* */
/* Parameters: @a_strName : 版面名称 */
/* @a_strDescription: 版面描述 */
/* @a_intFatherID: 分类ID，如果是0说明是大分类 */
/* */
/* Use table: forum */
/* */
/* Author: [email protected] */
/* */
/* Date: 2000/4/23 */
/* */
/* History: */
/* */
/*************************************************************************/
if exists(select * from sysobjects where id = object_id('up_InsertForum'))
drop proc up_InsertForum
go
create proc up_InsertForum @a_strName varchar(50) , @a_strDescription varchar(255) , @a_intFatherID tinyint
as
/*定义局部变量*/
declare @intLayer tinyint
declare @intRootID tinyint
/*如果是版面并且没有指定分类，则返回-1*/
if(@a_intFatherID <> 0 and not exists(select * from forum where id = @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
Insert into Forum(rootid , layer , fatherid , title , description)
values(@intRootID , @intLayer , @a_intFatherID , @a_strName , @a_strDescription)
if (@a_intFatherID = 0)
begin
select @intRootID = @@identity
update Forum set rootid = @intRootID where id = @intRootID
end
go
/*************************************************************************/
/* */
/* procedure : up_DeleteForum */
/* */
/* Description: 删除版面 */
/* */
/* Parameters: @a_intForumID : 版面id */
/* */
/* Use table: forum */
/* */
/* Author: [email protected] */
/* */
/* Date: 2000/4/23 */
/* */
/* History: */
/* */
/*************************************************************************/
if exists(select * from sysobjects where id = object_id('up_DeleteForum'))
drop proc up_DeleteForum
go
create proc up_DeleteForum @a_intForumID tinyint
as
delete from Forum where id = @a_intForumID
delete from Forum where RootID = @a_intForumID
go
select id , title , rootid , fatherid from forum
/*************************************************************************/
/* */
/* 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 */
/* */
/* Use table: bbs , forum , bbsuser */
/* */
/* Author: [email protected] */
/* */
/* Date: 2000/2/13 */
/* */
/* History: */
/* */
/*************************************************************************/
if exists(select * from sysobjects where id = object_id('up_PostTopic'))
drop proc up_PostTopic
go
create proc up_PostTopic
@a_intForumID int ,
@a_intFatherID int ,
@a_strSubject varcha
评论 (0) All
