Professor6T9 Web SheLL

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

File Name : CommonFunction.vb

Imports Microsoft.VisualBasic
Imports System.Globalization

Public NotInheritable Class CommonFunctionEnumerations
    Public Enum DML_OPERATION
        INSERT = 1
        UPDATE = 2
        DELETE = 3
    End Enum
End Class

Public NotInheritable Class CommonFunctionDisplayFunctions
    ''' <summary>
    ''' Clean up file names to ascii
    ''' </summary>
    Public Shared Function SanitizeProductName(ByVal strInput As String) As String
        strInput = Replace(strInput, " ", "e")
        Dim objRegex As RegularExpressions.Regex = New RegularExpressions.Regex("[^A-Za-z 0-9 \.,\?'""!@#\$%\^&\*-_=\+;:<>\/\\\|\}\{\[\]`~]*°")
        SanitizeProductName = objRegex.Replace(strInput, "")
    End Function

''' <summary>
    ''' Clean URL
    ''' </summary>
    Public Shared Function CleanURL(ByVal strInput As String) As String
        'will need to be replaced by a regex
        'strInput = strInput.Replace("""", "")
        'strInput = strInput.Replace("*", "")
        'strInput = strInput.Replace("#", "")
        strInput = strInput.Replace("//", "/")
        strInput = strInput.Replace("°", "o")
        strInput = strInput.Replace("./", "_/")

'Return strInput.Replace("&", "-And-")

Dim strArrayChars() As String = Split(""",',\,:,*,?,|,(,),%,#,&,>,<", ",")
        For numCount = 0 To UBound(strArrayChars)
            strInput = Replace(strInput, strArrayChars(numCount), IIf(strArrayChars(numCount) = "%", "pc", ""))
        Next
        Return strInput
    End Function

''' <summary>
    ''' This truncates descriptions to specified length if too long, and appends "..."
    ''' </summary>
    Public Shared Function TruncateDescription(ByVal strDescription As Object, ByVal numCharacters As Integer) As String
        strDescription = StripHTML(strDescription) 'uses another Kartris function

If Len(strDescription) > numCharacters Then
            Return Left(strDescription, numCharacters) & "..."
        End If

Return strDescription
    End Function

Public Shared Function StripHTML(ByVal strInput As Object) As String
        Dim strOutput As String = ""
        Try
            strOutput = RegularExpressions.Regex.Replace(strInput.ToString, "<(.|\n)*?>", String.Empty)

'This bit trims extra chars, probably because this function
            'was used incorrectly in some places to sanitize URLs - use CleanURL for that.
            'Dim strArrayChars() As String = Split("',/,\,:,*,?,|,(,),%", ",")
            'For numCount = 0 To UBound(strArrayChars)
            'strOutput = Replace(strOutput, strArrayChars(numCount), IIf(strArrayChars(numCount) = "%", "pc", ""))
            'Next

'This removes half-formed tags with an opening < but no close tag
            If strOutput.Contains("<") Then
                strOutput = Left(strOutput, InStr(strOutput, "<") - 1)
            End If
        Catch
            strOutput = ""
        End Try

Return strOutput
    End Function

Public Shared Function RemoveXSS(ByVal objText As Object) As Object
        If objText IsNot Nothing AndAlso objText.GetType() Is Type.GetType("System.String") Then
            objText = objText.Replace("<", "&lt;") '<
            objText = objText.Replace(">", "&gt;") '>
            objText = objText.Replace("'", "&apos;") 'apostophe
            objText = objText.Replace("""", "&#x22;") ' "
            objText = objText.Replace(")", "&#x29") ' )
            objText = objText.Replace("(", "&#x28") ' (
        End If
        Return objText
    End Function
    ''' <summary>
    ''' This truncates descriptions to Html Tags "..."
    ''' </summary>
    Public Shared Function RemoveHTMLTag(ByVal strInput As Object) As String
        If strInput = "" Then
        Else
            strInput = Regex.Replace(strInput, "<[^>]*>", [String].Empty)
            strInput = strInput.Replace("&nbsp;", " ")
            strInput = Regex.Replace(strInput, "\s+", " ")
            strInput = Regex.Replace(strInput, "\r\n", vbLf)
            strInput = Regex.Replace(strInput, "\n+", vbLf)
        End If
        Return strInput
    End Function
    ''' <summary>
    ''' Filter SeoUrl "..."
    ''' </summary>
    Public Shared Function GenerateURL(Title As Object) As String
        Dim strTitle As String = Title.ToString()

'#Region "Generate SEO Friendly URL based on Title"
        strTitle = strTitle.Trim()

'Trim "-" Hyphen
        strTitle = strTitle.Trim("-"c)

'strTitle = strTitle.ToLower()
        Dim chars As Char() = "$%#@!*?;:~`+=()[]{}|\'<>,/^&"".".ToCharArray()
        'strTitle = strTitle.Replace("c#", "C-Sharp")
        'strTitle = strTitle.Replace("vb.net", "VB-Net")
        'strTitle = strTitle.Replace("asp.net", "Asp-Net")

'Replace . with - hyphen
        strTitle = strTitle.Replace(".", "-")

'Replace Special-Characters
        For i As Integer = 0 To chars.Length - 1
            Dim strChar As String = chars.GetValue(i).ToString()
            If strTitle.Contains(strChar) Then
                strTitle = strTitle.Replace(strChar, String.Empty)
            End If
        Next

'Replace all spaces with one "-" hyphen
        strTitle = strTitle.Replace(" ", "-")

'Replace multiple "-" hyphen with single "-" hyphen.
        strTitle = strTitle.Replace("--", "-")
        strTitle = strTitle.Replace("---", "-")
        strTitle = strTitle.Replace("----", "-")
        strTitle = strTitle.Replace("-----", "-")
        strTitle = strTitle.Replace("----", "-")
        strTitle = strTitle.Replace("---", "-")
        strTitle = strTitle.Replace("--", "-")
        strTitle = strTitle.Replace("&", "and")
        'Run the code again...
        'Trim Start and End Spaces.
        strTitle = strTitle.Trim()

'Trim "-" Hyphen
        strTitle = strTitle.Trim("-"c)
        '#End Region

'Append ID at the end of SEO Friendly URL
        'strTitle = "~/Article/" & strTitle & "-" & Convert.ToString(strId) & ".aspx"

Return strTitle
    End Function

Public Shared Function GenerateDynamicPage(Title As Object, ByVal _ReplaceItem As Object) As String
        Dim strTitle As String = Title.ToString()
        '#Region "Generate SEO Friendly URL based on Title"
        strTitle = strTitle.Trim()
        'Replace all $$$$$ with one _ReplaceItem
        strTitle = strTitle.Replace("$$$$$", _ReplaceItem)
        Return strTitle
    End Function

Public Shared Function NumbersToWords(ByVal inputNumber As Integer) As String
        Dim inputNo As Integer = inputNumber

If inputNo = 0 Then
            Return "Zero"
        End If

Dim numbers As Integer() = New Integer(3) {}
        Dim first As Integer = 0
        Dim u As Integer, h As Integer, t As Integer
        Dim sb As New System.Text.StringBuilder()

If inputNo < 0 Then
            sb.Append("Minus ")
            inputNo = -inputNo
        End If

Dim words0 As String() = {"", "One ", "Two ", "Three ", "Four ", "Five ", _
         "Six ", "Seven ", "Eight ", "Nine "}
        Dim words1 As String() = {"Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", _
         "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen "}
        Dim words2 As String() = {"Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", _
         "Eighty ", "Ninety "}
        Dim words3 As String() = {"Thousand ", "Lakh ", "Crore "}

numbers(0) = inputNo Mod 1000
        ' units
        numbers(1) = inputNo \ 1000
        numbers(2) = inputNo \ 100000
        numbers(1) = numbers(1) - 100 * numbers(2)
        ' thousands
        numbers(3) = inputNo \ 10000000
        ' crores
        numbers(2) = numbers(2) - 100 * numbers(3)
        ' lakhs
        For i As Integer = 3 To 1 Step -1
            If numbers(i) <> 0 Then
                first = i
                Exit For
            End If
        Next
        For i As Integer = first To 0 Step -1
            If numbers(i) = 0 Then
                Continue For
            End If
            u = numbers(i) Mod 10
            ' ones
            t = numbers(i) \ 10
            h = numbers(i) \ 100
            ' hundreds
            t = t - 10 * h
            ' tens
            If h > 0 Then
                sb.Append(words0(h) & "Hundred ")
            End If
            If u > 0 OrElse t > 0 Then
                If h > 0 OrElse i = 0 Then
                    sb.Append(" ")
                End If
                If t = 0 Then
                    sb.Append(words0(u))
                ElseIf t = 1 Then
                    sb.Append(words1(u))
                Else
                    sb.Append(words2(t - 2) & words0(u))
                End If
            End If
            If i <> 0 Then
                sb.Append(words3(i - 1))
            End If
        Next
        Return sb.ToString().TrimEnd()
    End Function

End Class

Public NotInheritable Class CommonFunctionDataManipulation
    Public Shared Function FixNullFromDB(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        End If
        Return objInput
    End Function

Public Shared Function DateNull(ByVal objInput As Object) As Object
        If objInput = "" Then
            objInput = "01/01/1900"
        Else
        End If
        Return objInput
    End Function

Public Shared Function CheckDateNull(ByVal objInput As Object) As Object
        If objInput = "01/01/1900 00:00:00" Then
            objInput = ""
        ElseIf objInput = "01/01/1900" Then
            objInput = ""
        ElseIf objInput <> "01/01/1900" Then
            Dim dt As Date = Convert.ToDateTime(objInput)
            objInput = dt.ToString("dd-MM-yyyy")
        End If
        Return objInput
    End Function

Public Shared Function DateFormat(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            If objInput = "" Then
                Return Nothing
            Else
                'System.Threading.Thread.CurrentThread.CurrentUICulture = CultureInfo.GetCultureInfo("en-GB")
                Dim dt As Date = Convert.ToDateTime(objInput)
                'Dim dt As DateTime = DateTime.ParseExact(objInput, "yyyy-MM-dd", Nothing)
                ' objInput = DateTime.ParseExact(objInput, "dd/MM/yyyy", CultureInfo.CreateSpecificCulture("en-GB"))
                'Dim dt As Date = DateTime.ParseExact(objInput, "dd/MM/yyyy", )
                objInput = dt.ToString("yyyy-MM-dd")
                Return objInput
            End If
        End If
    End Function

Public Shared Function DateFormatDisplay(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            If objInput = "" Then
                Return Nothing
            Else
                Dim dt As Date = Convert.ToDateTime(objInput)
                objInput = dt.ToString("dd-MM-yyyy")
                Return objInput
            End If
        End If
    End Function

Public Shared Function DateTimeFormat(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            If objInput = "" Then
                Return Nothing
            Else
                Dim dt As Date = Convert.ToDateTime(objInput)
                objInput = dt.ToString("h:mm:ss tt dddd, MMM dd, yyyy")
                Return objInput
            End If
        End If
    End Function
    Public Shared Function AlphaDateFormat(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            Dim dt As Date = Convert.ToDateTime(objInput)
            objInput = dt.ToString("MMM dd.yyyy")
        End If
        Return objInput
    End Function
    Public Shared Function YearFormat(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            Dim dt As Date = Convert.ToDateTime(objInput)
            objInput = dt.ToString("yyyy")
        End If
        Return objInput
    End Function
    Public Shared Function MonthFormat(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            Dim dt As Date = Convert.ToDateTime(objInput)
            objInput = dt.ToString("MMM")
        End If
        Return objInput
    End Function
    Public Shared Function DaysFormat(ByVal objInput As Object) As Object
        If objInput Is DBNull.Value Then
            Return Nothing
        Else
            Dim dt As Date = Convert.ToDateTime(objInput)
            objInput = dt.ToString("dd")
        End If
        Return objInput
    End Function
    Public Shared Function xmlcheck(ByVal xmlstr As String) As String
        Return xmlstr.Replace("&", "&amp;").Replace("'", "&apos;").Replace("<", "&lt;").Replace(">", "&gt;").Replace("""", "&quot;")
    End Function
End Class

Public NotInheritable Class CommonFunctionImages

Public Const strImagesPath As String = "~/Images/"
    Public Const strCategoryImagesPath As String = "~/Images/Categories"
    Public Const strProductImagesPath As String = "~/Images/Products"
    Public Const strPromotionImagesPath As String = "~/Images/Promotions"
    Public Const strThemesPath As String = "~/Skins"

Public Enum IMAGE_TYPE
        enum_CategoryImage = 1
        enum_ProductImage = 2
        enum_VersionImage = 3
        enum_PromotionImage = 4
        enum_OtherImage = 5
    End Enum

Public Enum IMAGE_SIZE
        enum_Thumb = 1
        enum_Normal = 2
        enum_Large = 3
        enum_Auto = 4
        enum_MiniThumb = 5
    End Enum

''' <summary>
    ''' compress images
    ''' </summary>
    Public Shared Sub CompressImage(ByVal strImagePath As String, ByVal numQuality As Long)
        Dim numMaxWidth As Integer = 1500, numMaxHeight As Integer = 1500
        Try
            Dim numImageNewWidth, numImageNewHeight As Integer

Dim objImgOriginal As System.Drawing.Image
            objImgOriginal = System.Drawing.Image.FromFile(strImagePath)
            objImgOriginal.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipNone)
            objImgOriginal.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipNone)

If objImgOriginal.Height / numMaxHeight < objImgOriginal.Width / numMaxWidth Then
                'Resize by width
                numImageNewWidth = numMaxWidth
                numImageNewHeight = objImgOriginal.Height / (objImgOriginal.Width / numMaxWidth)
            Else
                'Resize by height
                numImageNewHeight = numMaxHeight
                numImageNewWidth = objImgOriginal.Width / (objImgOriginal.Height / numMaxHeight)
            End If

'If new height/width bigger than old ones, cancel
            If numImageNewHeight > objImgOriginal.Height Or numImageNewWidth > objImgOriginal.Width Then
                numImageNewHeight = objImgOriginal.Height
                numImageNewWidth = objImgOriginal.Width
            End If

Dim objImgCompressed As System.Drawing.Image = objImgOriginal.GetThumbnailImage(numImageNewWidth, numImageNewHeight, Nothing, Nothing)
            objImgOriginal.Dispose()

Dim Info = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
            Dim Params = New System.Drawing.Imaging.EncoderParameters(1)
            Params.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, numQuality)

objImgCompressed.Save(strImagePath, Info(1), Params)
            objImgCompressed.Dispose()

Catch ex As Exception

End Try
    End Sub

Public Shared Function NoImage(ByVal objInput As Object) As String
        If objInput Is DBNull.Value Then
            objInput = "images/noimage.png"
        Else
            Return objInput
        End If
        Return objInput
    End Function
    Public Shared Function NoImagUserControl(ByVal objInput As Object) As String
        If objInput = "" Then
            objInput = "~/images/noimage.png"
        Else
            objInput = "~/" + objInput
            Return objInput
        End If
        Return objInput
    End Function
End Class

Public NotInheritable Class CommonFunctionGridview
    Public Shared Function CheckPrivilege(ByVal delcol As Integer, ByVal Edit As Integer, ByVal status As Integer, GridView1 As GridView, ByVal ID As Integer, hfadd As HyperLink) As GridView
        If ID = "1" Then
        ElseIf ID = "2" Then
            GridView1.Columns(delcol).Visible = False
            hfadd.Visible = False
        ElseIf ID = "3" Then
            GridView1.Columns(delcol).Visible = False
            GridView1.Columns(Edit).Visible = False
            GridView1.Columns(status).Visible = False
            hfadd.Visible = False
        End If
        Return GridView1
    End Function

Public Shared Function HighlightText(ByVal InputTxt As String, txtSearch As TextBox) As String
        Try
            Dim Search_Str As String = txtSearch.Text
            ' Setup the regular expression and add the Or operator.
            Dim RegExp As Regex = New Regex(Search_Str.Replace(" ", "|").Trim, RegexOptions.IgnoreCase)
            ' Highlight keywords by calling the
            'delegate each time a keyword is found.
            Return RegExp.Replace(InputTxt, New MatchEvaluator(AddressOf ReplaceKeyWords))
        Catch ex As Exception

End Try

End Function

Public Shared Function ReplaceKeyWords(ByVal m As Match) As String
        Return ("<span class=MasterGridviewhighlight>" + m.Value + "</span>")
    End Function
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2025-10-13 08:59:40
..	dir	-	0/0	0777	2025-10-13 08:25:39
BLL	dir	-	0/0	0777	2025-10-13 08:58:57
DAL	dir	-	0/0	0777	2025-10-13 08:59:40
CommonFunction.vb	text/plain	17.85 KB	0/0	0666	2018-01-08 05:52:12
DoValidate.vb	text/plain	1.45 KB	0/0	0666	2018-01-08 05:52:12
DynamicParcel.vb	text/plain	17.49 KB	0/0	0666	2018-01-08 05:52:12
GetItems.vb	text/plain	9.4 KB	0/0	0666	2025-10-14 12:08:54
ItemcontrolService.vb	text/plain	6.29 KB	0/0	0666	2025-10-13 10:02:28
POItems.vb	text/plain	13.49 KB	0/0	0666	2025-10-14 12:08:56
PageBaseClass.vb	text/plain	6.08 KB	0/0	0666	2018-01-08 05:52:12
Procedure.vb	text/plain	5.62 KB	0/0	0666	2018-01-08 05:52:12
Security.vb	text/plain	6.53 KB	0/0	0666	2023-09-07 03:22:41
SendUsingSMPP.vb	text/plain	4.93 KB	0/0	0666	2018-01-08 05:52:12

Team Anon Force

https://t.me/Professor6T9x