.net小型论坛系统源码

IF EXISTS (SELECT 1 FROM sys.databases WHERE name = N'GoldenPhoenix') DROP DATABASE GoldenPhoenix GO CREATE DATABASE GoldenPhoenix GO --论坛 51aspx --表 --Users表存储论坛注册成员的信息 USE GoldenPhoenix GO IF exists (SELECT 1 FROM sys.objects WHERE name = 'Users' AND type = 'U') DROP TABLE [Users] GO CREATE TABLE [Users] ( [UserID] INT IDENTITY PRIMARY KEY CLUSTERED, --用户ID [UserName] [varchar](16) NOT NULL UNIQUE , --用户名 [Nickname] [nvarchar](16) NOT NULL default '',-- 昵称 [Password] [varchar] (60) NOT NULL default '',--密码 [Email] [varchar] (255) NOT NULL default '',--邮箱 [Question] [nvarchar] (60) NOT NULL default '',--问题 [Answer] [nvarchar](60) NOT NULL default '',--回答 [Sex] [varchar](1) NOT NULL DEFAULT 'M',--性别 [ShowEmail] [bit] NOT NULL DEFAULT (1),--是否显示邮箱 [Signature] [nvarchar] (1000) NOT NULL default '',--签名 [ImageUrl] [varchar] (100) NOT NULL default '',--头像地址 [RegeditDate] [datetime] NOT NULL DEFAULT (getdate()),--注册日期 [EditDate] [datetime] NOT NULL DEFAULT (getdate()),--编辑日期 [LastLoginDate] [datetime] NOT NULL DEFAULT (getdate()),--最后登录日期 [LoginTimes] [int] NOT NULL DEFAULT (0),--登录次数 [Type][tinyint] NOT NULL DEFAULT (0) --用户类型 ) GO --用户名:admin 密码aaaaaa INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('admin', '管理员','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'admin@Wish-edu.com', 9) --以下用户密码 aaaaaa INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('amandag', '高歌','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'amandag@vip.sina.com', 1) --以下用户密码 aaaaaa INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('aaaa', 'aaaa','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'aaaa@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('bbbb', 'bbbb','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'bbbb@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('cccc', 'cccc','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'cccc@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('dddd', 'dddd','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'dddd@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('eeee','eeee', 'DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'eeee@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('abcd','abcd', 'DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'abcd@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('aaaaa','aaaaa', 'DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'aaaaa@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('aaaaaa', 'aaaaaa','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'aaaaaa@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('aaaaaaa', 'aaaaaaa','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'aaaaaaa@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('bbbbb','bbbbb', 'DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'bbbbb@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('ccccc','ccccc', 'DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'ccccc@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('ddddd', 'ddddd','DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'ddddd@aaa.com', 0) INSERT INTO Users([UserName],[Nickname],[Password],[Email],[Type]) VALUES('eeeee','eeeee', 'DA-67-EF-24-8D-93-2B-D7-12-D1-10-5B-6A-E6-B8-6F-35-C6-36-1C', 'eeeee@aaa.com', 0) select * from Users --插入用户 if exists (select 1 from sys.objects where name = 'InsertUser' and type = 'P') drop procedure [dbo].[InsertUser] GO CREATE PROCEDURE InsertUser @UserName varchar(16), @NickName varchar(16) = '', @Password varchar(60), @Email varchar(255), @Question nvarchar(60) = '', @Answer nvarchar(60) = '', @Sex varchar(1) = 'M', @ShowEmail bit = 1, @Signature nvarchar(1000) = '', @ImageUrl varchar(100) = '', @UserID int output AS INSERT INTO Users([UserName], [NickName], [Password], [Email], [Question], [Answer], [Sex], [ShowEmail], [Signature], [ImageUrl]) VALUES (@UserName, @NickName, @Password, @Email, @Question, @Answer, @Sex, @ShowEmail, @Signature, @ImageUrl) SET @UserID = SCOPE_IDENTITY() RETURN SCOPE_IDENTITY() GO --删除用户 if exists (select 1 from sys.objects where name = 'DeleteUser' and type = 'P') drop procedure [dbo].[DeleteUser] GO CREATE PROCEDURE DeleteUser @UserID int AS DELETE FROM Users WHERE UserID = @UserID GO --更新用户 IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='UpdateUser' AND TYPE = 'P') DROP PROCEDURE UpdateUser GO Create PROCEDURE UpdateUser ( @UserID int, @NickName varchar(16), @Email varchar(255), @Sex varchar(1), @ShowEmail bit, @Signature nvarchar(1000), @ImageUrl varchar(100) ) as update users set NickName = @NickName,Sex = @Sex,Email = @Email,ShowEmail = @ShowEmail,Signature = @Signature,ImageUrl = @ImageUrl,EditDate = getdate() where UserID = @UserID --修改密码 IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='UpdatePassWord' AND TYPE = 'P') DROP PROCEDURE UpdatePassWord GO Create PROCEDURE UpdatePassWord ( @UserID int, @OldPassWord varchar(60), @NewPassWord varchar(60) ) as update users set PassWord = @NewPassWord where UserID = @UserID and PassWord = @OldPassWord --根据用户名得到用户ID IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='GetUserIdByUsername' AND TYPE = 'P') DROP PROCEDURE GetUserIdByUsername GO Create PROCEDURE GetUserIdByUsername ( @UserName nvarchar(20) ) AS select UserID from Users where UserName = @UserName GO --根据用户ID得到用户名 IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='GetUserNameByUserId' AND TYPE = 'P') DROP PROCEDURE GetUserNameByUserId GO Create PROCEDURE GetUserNameByUserId ( @UserID int ) AS select UserName from Users where UserID = @UserID GO --根据用户ID得到用户基本信息 IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='GetUserByUserID' AND TYPE = 'P') DROP PROCEDURE GetUserByUserID GO Create PROCEDURE GetUserByUserID ( @UserID int ) AS select * from Users where UserID = @UserID --根据Email得到用户ID IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='GetUserIdByEmail' AND TYPE = 'P') DROP PROCEDURE GetUserIdByEmail GO Create PROCEDURE GetUserIdByEmail ( @Email nvarchar(20) ) AS select UserID from Users where Email = @Email GO --验证用户名与密码是否正确 IF EXISTS(SELECT 1 FROM sys.all_objects WHERE NAME='ValidateUser' AND TYPE = 'P') DROP PROCEDURE ValidateUser GO Create PROCEDURE ValidateUser ( @UserName nvarchar(16), @Password varchar(60), @UserId int output, @type tinyint output ) AS --declare @userid int select @userid = userid, @type = [type] from Users where UserName = @UserName and [password] = @Password if(@userid > 0) begin update users set LastLoginDate = getdate(), LoginTimes = LoginTimes + 1 where userid = @userid end return @userid GO --版区（论坛）管理 --Forums表 GO IF exists (SELECT 1 FROM sys.objects WHERE name = 'Forums' AND type = 'U') DROP TABLE [dbo].[Forums] GO CREATE TABLE [dbo].[Forums] ( ForumId int identity primary key, --论坛(版区)ID UserId int not null references Users(userid), --创建论坛(版区)的用户 AddedDate datetime not null default getdate(), --创建时间 ForumName nvarchar(256) unique not null default '', --论坛(版区)�