Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

PageSeoBLL.vb

Imports Microsoft.VisualBasic
Imports APPCODE.DAL
Public Class PageSeoBLL
    Private Shared _spname As String = "_spPageSeo"

Public Shared Function Insert(ByVal _BatchID As Integer, ByVal _PageName As String, ByVal _PageDesc As String, ByVal _PageSeoTitle As String, ByVal _PageSeoKeyword As String,
                                  ByVal _PageSeoDesc As String, ByVal _PageSeoUrl As String, ByVal _FromType As String, ByVal _FromID As Integer,
                                  ByVal _ToType As String, ByVal _ToID As Integer, ByVal _CreatedID As Integer) As Integer
        Dim sqlparams(12) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "Insert")
            sqlparams(1) = New SqlParameter("@PSeo_BatchID", _BatchID)
            sqlparams(2) = New SqlParameter("@PSeo_PageName", _PageName)
            sqlparams(3) = New SqlParameter("@PSeo_Description", _PageDesc)
            sqlparams(4) = New SqlParameter("@PSeo_SeoTitle", _PageSeoTitle)
            sqlparams(5) = New SqlParameter("@PSeo_SeoKeyword", _PageSeoKeyword)
            sqlparams(6) = New SqlParameter("@PSeo_SeoDescription", _PageSeoDesc)
            sqlparams(7) = New SqlParameter("@PSeo_SeoUrl", _PageSeoUrl)
            sqlparams(8) = New SqlParameter("@PSeo_FromType", _FromType)
            sqlparams(9) = New SqlParameter("@PSeo_FromID", _FromID)
            sqlparams(10) = New SqlParameter("@PSeo_ToType", _ToType)
            sqlparams(11) = New SqlParameter("@PSeo_ToID", _ToID)
            sqlparams(12) = New SqlParameter("@PSeo_CreatedID", _CreatedID)
            Return DBBridge.ExecuteNonQuery(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function InsertBatch(ByVal _BatchName As String) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "InsertBatch")
            sqlparams(1) = New SqlParameter("@Batch_Name", _BatchName)
            Return DBBridge.ExecuteScalar(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function SortingGridView(ByVal BatchID As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "PageSeoSorting")
            sqlparams(1) = New SqlParameter("@PSeo_BatchID", BatchID)
            Return DBBridge.ExecuteDataset(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function BatchGridView() As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "BatchGridview")
            Return DBBridge.ExecuteDataset(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillGridView(ByVal PageIndex As Integer, ByVal PageSize As Integer, ByVal BatchID As Integer) As DataSet
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "PageSeoGridview")
            sqlparams(1) = New SqlParameter("@PageIndex", PageIndex)
            sqlparams(2) = New SqlParameter("@PageSize", PageSize)
            sqlparams(3) = New SqlParameter("@PSeo_BatchID", BatchID)
            Return DBBridge.ExecuteDataset(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function TotalRowInGridview(ByVal BatchID As Integer) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "PageSeoTotalNumberOfRecord")
            sqlparams(1) = New SqlParameter("@PSeo_BatchID", BatchID)
            Return DBBridge.ExecuteScalar(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function UpdateBatch(ByVal BatchID As Integer) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "UpdateBacth")
            sqlparams(1) = New SqlParameter("@PSeo_BatchID", BatchID)
            Return DBBridge.ExecuteScalar(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FirstIdbatch() As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "BatchTop")
            Return DBBridge.ExecuteScalar(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function SearchGridView(ByVal PSeo_BatchID As Integer, ByVal SearchValue As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "PageSeoSearch")
            sqlparams(1) = New SqlParameter("@PSeo_BatchID", PSeo_BatchID)
            sqlparams(2) = New SqlParameter("@SearchValue", SearchValue)
            Return DBBridge.ExecuteDataset(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function ViewBySeoUrl(ByVal SeoUrl As String) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "ViewBySeoUrl")
            sqlparams(1) = New SqlParameter("@PSeo_SeoUrl", SeoUrl)
            Return DBBridge.ExecuteDataset(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function DeleteBatch(ByVal BatchID As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "DeleteBatch")
            sqlparams(1) = New SqlParameter("@Batch_ID", BatchID)
            Return DBBridge.ExecuteNonQuery(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2016-07-20 12:50:50
..	dir	-	0/0	0777	2016-01-16 06:22:02
BlogBLL.vb	text/plain	5.1 KB	0/0	0666	2016-07-20 12:50:51
BlogCategoryBLL.vb	text/plain	1.26 KB	0/0	0666	2016-07-20 12:50:51
CareerBLL.vb	text/plain	5.27 KB	0/0	0666	2016-01-07 05:57:40
ClientBLL.vb	text/plain	2.76 KB	0/0	0666	2016-01-07 05:57:39
EnquiryBLL.vb	text/plain	2.63 KB	0/0	0666	2016-02-29 05:54:10
FaqBLL.vb	text/plain	2.55 KB	0/0	0666	2016-01-07 05:57:39
IndustriesBLL.vb	text/plain	2.39 KB	0/0	0666	2016-01-07 05:57:39
MainBLL.vb	text/plain	11.15 KB	0/0	0666	2016-07-20 12:50:53
MainWebsiteBLL.vb	text/plain	5.76 KB	0/0	0666	2016-07-20 12:50:53
MemberAdaafBLL.vb	text/plain	6.18 KB	0/0	0666	2016-01-07 05:57:37
MemberBLL (2).vb	text/plain	3.05 KB	0/0	0666	2016-01-07 05:57:37
MemberBLL.vb	application/x-empty	0 B	0/0	0666	2016-01-07 05:57:36
MenuBLL.vb	text/plain	1.96 KB	0/0	0666	2016-01-07 05:57:36
MenuFooterBLL.vb	text/plain	2.87 KB	0/0	0666	2016-01-07 05:57:36
OrderBLL.vb	text/plain	6.99 KB	0/0	0666	2016-01-07 05:57:36
PackagesBLL.vb	text/plain	1.81 KB	0/0	0666	2016-01-07 05:57:35
PageBLL.vb	text/plain	3.1 KB	0/0	0666	2016-01-07 05:57:35
PageSeoBLL.vb	text/plain	6.04 KB	0/0	0666	2016-01-07 05:57:35
PerformanceBLL.vb	text/plain	4.81 KB	0/0	0666	2016-01-07 05:57:35
ProductBLL.vb	text/plain	2.37 KB	0/0	0666	2016-01-07 05:57:34
ProjectBLL.vb	text/plain	2.4 KB	0/0	0666	2016-01-07 05:57:34
PromocodeBLL.vb	text/plain	4.2 KB	0/0	0666	2016-01-07 05:57:34
ReviewBLL.vb	text/plain	1.93 KB	0/0	0666	2016-01-07 05:57:33
SendMail.vb	text/html	11.3 KB	0/0	0666	2021-04-01 08:26:07
ServiceCategoryBLL.vb	text/plain	1.3 KB	0/0	0666	2016-01-07 05:57:33
ServiceSubCategoryBLL.vb	text/plain	3.58 KB	0/0	0666	2016-01-07 05:57:33
SubCategoryBLL.vb	text/plain	1.47 KB	0/0	0666	2016-01-07 05:57:32
TermTypeBLL.vb	text/plain	1.03 KB	0/0	0666	2016-01-07 05:57:32
TestimonialBLL.vb	text/plain	2.49 KB	0/0	0666	2016-02-29 05:40:25
UserBLL.vb	text/plain	5.73 KB	0/0	0666	2016-01-07 05:57:32
VideoBLL.vb	text/plain	2.61 KB	0/0	0666	2016-01-07 05:57:31
YearBLL.vb	text/plain	1 KB	0/0	0666	2016-01-07 05:57:31

Team Anon Force

https://t.me/Professor6T9x