Professor6T9 Web SheLL

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

PageBLL.vb

Imports Microsoft.VisualBasic
Imports APPCODE.DAL
Public Class PageBLL
    Private Shared _spname As String = "_spPage"

Public Shared Function Insert(ByVal _PageName As String, ByVal _PageTitle As String, ByVal _PageDesc As String, ByVal _PageSeoUrl As String, ByVal _PageSeoDesc As String, ByVal _PageKeyword As String, ByVal _CreatedID As Integer) As Integer
        Dim sqlparams(7) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "Insert")
            sqlparams(1) = New SqlParameter("@Page_Name", _PageName)
            sqlparams(2) = New SqlParameter("@Page_Title", _PageTitle)
            sqlparams(3) = New SqlParameter("@Page_Description", _PageDesc)
            sqlparams(4) = New SqlParameter("@Page_SeoUrl", _PageSeoUrl)
            sqlparams(5) = New SqlParameter("@Page_SeoDescription", _PageSeoDesc)
            sqlparams(6) = New SqlParameter("@Page_SeoKeyword", _PageKeyword)
            sqlparams(7) = New SqlParameter("@Page_CreatedID", _CreatedID)
            Return DBBridge.ExecuteNonQuery(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function Update(ByVal _PageName As String, ByVal _PageTitle As String, ByVal _PageDesc As String, ByVal _PageSeoUrl As String, ByVal _PageSeoDesc As String, ByVal _PageKeyword As String, ByVal _ModifiedID As Integer, ByVal _ID As Integer) As Integer
        Dim sqlparams(8) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "Update")
            sqlparams(1) = New SqlParameter("@Page_Name", _PageName)
            sqlparams(2) = New SqlParameter("@Page_Title", _PageTitle)
            sqlparams(3) = New SqlParameter("@Page_Description", _PageDesc)
            sqlparams(4) = New SqlParameter("@Page_SeoUrl", _PageSeoUrl)
            sqlparams(5) = New SqlParameter("@Page_SeoDescription", _PageSeoDesc)
            sqlparams(6) = New SqlParameter("@Page_SeoKeyword", _PageKeyword)
            sqlparams(7) = New SqlParameter("@Page_CreatedID", _ModifiedID)
            sqlparams(8) = New SqlParameter("@Page_ID", _ID)
            Return DBBridge.ExecuteNonQuery(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function CheckPageName(ByVal _PageName As String) As String
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "CheckPageName")
            sqlparams(1) = New SqlParameter("@Page_Name", _PageName)
            Return DBBridge.ExecuteScalar(_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("@Page_SeoUrl", SeoUrl)
            Return DBBridge.ExecuteDataset(_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