guest.vb

ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb

Namespace Packaging

	Public Class Guest
		Public GuestId As Integer
		Public GuestTitle As String
		Public GuestName As String
		Public GuestContent As String
		Public GuestTime As DateTime
		Public GuestEmail As String
		Public GuestPrivate As Boolean
		Public GuestIP As String
	End Class


	Public Class GuestDB

		Public Function GetGuest(ByVal CurPage As Integer, ByVal PageSize As Integer, ByRef TotalPage As Integer) As DataView
			' 取得第CurP页留言的内容
			Dim MySQL As String
			MySQL="SELECT * FROM [Guest] WHERE GuestPrivate=False ORDER BY GuestTime DESC"

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL

			Dim MyPage As PageDS=New PageDS()
			MyPage.DataSource=MyDB.SelectFromDB()
			MyPage.PageSize=PageSize
			Dim MyDV As DataView=MyPage.PageSelect(CurPage)
			TotalPage=MyPage.TotalPage

			Dim i As Integer
			Dim MyFilter As Stringfilter=New StringFilter()
			MyFilter.FilterDegree=3
			For i=0 To MyDV.Table.Rows.Count-1
				MyDV.Table.Rows(i)("GuestContent")=MyFilter.Change4Showing(MyDV.Table.Rows(i)("GuestContent"))
				MyDV.Table.Rows(i)("GuestTitle")=MyFilter.Change4Showing(MyDV.Table.Rows(i)("GuestTitle"))
				MyDV.Table.Rows(i)("GuestName")=MyFilter.Change4Showing(MyDV.Table.Rows(i)("GuestName"))
			Next

			Return MyDV
		End Function

		Public Function GetGuest1(ByVal CurPage As Integer, ByVal PageSize As Integer, ByRef TotalPage As Integer) As DataView
			' 取得第CurP页留言的内容
			Dim MySQL As String
			MySQL="SELECT * FROM [Guest] ORDER BY GuestTime DESC"

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL

			Dim MyPage As PageDS=New PageDS()
			MyPage.DataSource=MyDB.SelectFromDB()
			MyPage.PageSize=PageSize
			Dim MyDV As DataView=MyPage.PageSelect(CurPage)
			TotalPage=MyPage.TotalPage

			Dim i As Integer
			Dim MyFilter As Stringfilter=New StringFilter()
			MyFilter.FilterDegree=3
			For i=0 To MyDV.Table.Rows.Count-1
				MyDV.Table.Rows(i)("GuestContent")=MyFilter.Change4Showing(MyDV.Table.Rows(i)("GuestContent"))
				MyDV.Table.Rows(i)("GuestTitle")=MyFilter.Change4Showing(MyDV.Table.Rows(i)("GuestTitle"))
				MyDV.Table.Rows(i)("GuestName")=MyFilter.Change4Showing(MyDV.Table.Rows(i)("GuestName"))
			Next

			Return MyDV
		End Function

		Public Function GetAllGuest(ByVal CurPage As Integer, ByVal PageSize As Integer, ByRef TotalPage As Integer) As DataView
			' 取得所有留言的第CurP页
			Dim MySQL As String
			MySQL="SELECT * FROM [Guest] ORDER BY GuestTime DESC"

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL

			Dim MyPage As PageDS=New PageDS()
			MyPage.DataSource=MyDB.SelectFromDB()
			MyPage.PageSize=PageSize
			Dim MyDV As DataView=MyPage.PageSelect(CurPage)
			TotalPage=MyPage.TotalPage

			Return MyDV
		End Function

		Public Sub AddGuest(ByVal MyGuest As Guest)
			'添加一条留言信息
			Dim MyFilter As StringFilter=New StringFilter()
			MyFilter.FilterDegree=5
			MyGuest.GuestTitle=MyFilter.Change4Saving(MyGuest.GuestTitle)
			MyGuest.GuestName=MyFilter.Change4Saving(MyGuest.GuestName)
			MyGuest.GuestContent=MyFilter.Change4Saving(MyGuest.GuestContent)
			MyGuest.GuestEmail=MyFilter.Change4Saving(MyGuest.GuestEmail)

			Dim MySQL As String="INSERT INTO [Guest] "
			MySQL &= "(GuestTitle, GuestName, GuestContent,"
			MySQL &= "GuestTime, GuestEmail, GuestPrivate, "
			MySQL &= "GuestIP) VALUES ('"
			MySQL &= MyGuest.GuestTitle & "', '"
			MySQL &= MyGuest.GuestName & "', '"
			MySQL &= MyGuest.GuestContent & "', #"
			MySQL &= MyGuest.GuestTime & "#, '"
			MySQL &= MyGuest.GuestEmail & "',"
			MySQL &= MyGuest.GuestPrivate & ", '"
			MySQL &= MyGuest.GuestIP & "')"

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			MyDB.ExecuteSQL()
		End Sub

		Public Sub DeleteGuest(ByVal GuestId As Integer)
			'删除一条留言信息
			Dim MySQL As String="DELETE FROM [Guest] WHERE GuestId="
			MySQL &= GuestId
			MySQL &= " "

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			MyDB.ExecuteSQL()
		End Sub

		Public Function CheckSame(ByVal MyGuest As Guest) As Boolean
			Dim MySQL As String="SELECT TOP 1 * FROM [Guest] "
			MySQL &= "ORDER BY GuestTime DESC"
			
			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()

			If MyDS.Tables("My").Rows.Count<1 Then
				Return false
			End If
			
			Dim DR As DataRow=MyDS.Tables("My").Rows(0)
			
			Dim flag As Boolean=True
			flag = flag And (DR("GuestTitle")=MyGuest.GuestTitle)
			flag = flag And (DR("GuestName")=MyGuest.GuestName)
			flag = flag And (DR("GuestContent")=MyGuest.GuestContent)
			flag = flag And (DR("GuestEmail")=MyGuest.GuestEmail)
			flag = flag And (DR("GuestPrivate")=MyGuest.GuestPrivate)
			flag = flag And (DR("GuestIP")=MyGuest.GuestIP)
			
			Return flag
		End Function

	End Class

End Namespace