databbs.vb

《ASP.NET C#程序设计案例教程》

	End Sub

	'该过程用来将记录取消置顶
	Public Sub CancelSetTop()
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql="Update BBS Set SetTop=0 Where BBSId=" & BBSId 			
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()										
		conn.Close()
	End Sub

	'该过程用来将该记录的点击数加1
	Public Sub AddHits()
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql="Update BBS Set Hits=Hits+1 Where BBSId=" & BBSId 			
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()										
		conn.Close()
	End Sub

	'该过程用来将该记录的回复数加1
	Public Sub AddChilds()
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql="Update BBS Set Childs=Childs+1 Where BBSId=" & BBSId 			
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()										
		conn.Close()
	End Sub

	'该过程用来更新该记录的最后更新人和最后更新时间
	Public Sub UpdateLast(strLastUserId As String,dtmLastSubmitDate As Date)
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql="Update BBS Set LastUserID='" & strLastUserId & "',LastSubmitDate=#" & dtmLastSubmitDate & "# Where BBSId=" & BBSId 			
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()										
		conn.Close()
	End Sub



End Class

'----------------------------------------------------------------------------------------------------
'第3个类，用来处理跟栏目有关的操作
Public Class DataForums
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	Public Sub New()
		_strConn=ConfigurationSettings.AppSettings("strConn")		'将数据库连接字符串赋值给私有变量_strConn
	End Sub

	'该过程用来所有记录，注意这里返回的是没有排序和查找的DataView对象
	Public Function GetForum() As DataView
		Dim conn As New OleDbConnection(_strConn)					'这里使用了_strConn表示的数据库连接字符串
		Dim strSql As String="Select * From Forum"
		Dim adp As New OleDbDataAdapter(strSql,conn)					
		Dim ds As New DataSet()											
		adp.Fill(ds, "Forum")											
		Return(ds.Tables("Forum").DefaultView)							'返回函数值
	End Function

	'该过程用来添加一个新栏目
	Public Sub InsertForum(strForumName As String,strForumManager As String,strForumPicture As String)
		Dim conn As New OleDbConnection(_strConn)					'使用了私有变量的值
		'建立Command对象，注意这里使用了含有参数的SQL语句
		Dim strSql="Insert Into Forum(ForumName,ForumManager,ForumPicture) Values(@ForumName,@ForumManager,@ForumPicture)"
		Dim cmd As New OleDbCommand(strSql, conn)
		'下面给参数赋值
		cmd.Parameters.Add(New OleDbParameter("@ForumName",OleDbType.VarWChar,50))
		cmd.Parameters("@ForumName").Value=strForumName
		cmd.Parameters.Add(New OleDbParameter("@ForumManager",OleDbType.VarWChar,255))
		If strForumManager<>"" Then
			cmd.Parameters("@ForumManager").Value=strForumManager
		Else
			cmd.Parameters("@ForumManager").Value=DBNULL.Value
		End If
		cmd.Parameters.Add(New OleDbParameter("@ForumPicture",OleDbType.VarWChar,50))
		If strForumPicture<>"" Then
			cmd.Parameters("@ForumPicture").Value=strForumPicture
		Else
			cmd.Parameters("@ForumPicture").Value=DBNULL.Value
		End If
		'下面执行插入记录操作
		conn.open()                             
		cmd.ExecuteNonQuery()					
		conn.close()                            
	End Sub

	'该过程用来删除栏目，注意同时会删掉该栏目所属文章
	Public Sub DeleteForum(intForumId As Integer)
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql As String="Delete from BBS Where ForumId=" & intForumId			
		Dim cmd As New OleDbCommand(strSql, conn)
		Dim strSql2 As String="Delete from Forum Where ForumId=" & intForumId			
		Dim cmd2 As New OleDbCommand(strSql2, conn)
		conn.Open()
		cmd.ExecuteNonQuery()											
		cmd2.ExecuteNonQuery()
		conn.Close()
	End Sub

	'该过程用来更新栏目的信息
	Public Sub UpdateForum(intForumId As Integer,strForumName as String,strForumManager As String,strForumPicture As String)
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql As String
		strSql="Update Forum Set ForumName='" & strForumName & "'"
		If strForumManager<>"" Then
			strSql &= ",ForumManager='" & strForumManager & "'"
		Else
			strSql &= ",ForumManager='jjshang'"
		End If
		If strForumPicture<>"" Then
			strSql &= ",ForumPicture='" & strForumPicture & "'"
		Else
			strSql &= ",ForumPicture='5.gif'"
		End If
		strSql &= " Where ForumId=" & intForumId 
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()										
		conn.Close()
	End Sub
End Class

'----------------------------------------------------------------------------------------------------
'第4个类主要用来返回某个栏目的具体信息
Public Class DataForum														'DataForum是自己定义的类的名称
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	'下面定义了几个属性，用来返回对应字段值
	Public ForumId As Integer
	Public ForumName As String
	Public ForumManager As String
	Public ForumCount As Integer
	public ForumPicture As String
	
	'这是构造函数，在其中给每一个属性赋值
	Public Sub New(intForumId As Integer)
		_strConn=ConfigurationSettings.AppSettings("strConn")							'将数据库连接字符串赋值给私有变量_strConn
		Dim conn As New OleDbConnection(_strConn)										'建立Connection对象

		Dim strSql As String="Select * From Forum Where ForumId=" & intForumId			'建立SQL语句
		Dim cmd As New OleDbCommand(strSql, conn)										'建立Command对象
		conn.Open()                                            
		Dim dr As OleDbDataReader = cmd.ExecuteReader()									'建立DataReader对象
		'下面读取数据，并给属性赋值
		dr.Read()		
		ForumId=dr.Item("ForumId")
		ForumName=dr.Item("ForumName")
		ForumCount=dr.Item("ForumCount")
		ForumManager=dr.Item("ForumManager").ToString()
		ForumPicture=dr.Item("ForumPicture").ToString()
		conn.Close()                                              
	End Sub

	'该过程用来更新该栏目的文章数
	Public Sub AddForumCount(intAdd As Integer)
		Dim conn As New OleDbConnection(_strConn) 
		Dim strSql="Update Forum Set ForumCount=ForumCount+" & intAdd & " Where ForumId=" & ForumId 			
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()										
		conn.Close()
	End Sub

	'该函数用来判断某用户是否是该栏目的版主
	Public Function IsForumManager(strUserId As String) As Boolean
		If inStr(ForumManager,strUserId)>0 Then
			Return(True)
		Else
			Return(False)
		End If
	End Function
End Class