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 : clsCommon.vb

Public Class clscommon
 Inherits System.Web.UI.Page
 Dim str, st, st1, str1 As String
 Dim CurrDate, ValidityDate, CheckDate As DateTime
 Dim DaysRemain As Integer
 Dim obj As New clsdatabase
 Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
 Dim builder As New StringBuilder
 Dim random As New Random
 Dim ch As Char
 Dim i As Integer
 While i < size
 ch = Convert.ToChar(Convert.ToInt32(Math.Floor(26 * random.NextDouble() + 65)))
 builder.Append(ch)
 i += 1
 End While
 If lowerCase Then
 Return builder.ToString().ToLower()
 Else
 Return builder.ToString()
 End If
 End Function
 Function GetPassword() As String
 Dim builder As New StringBuilder()
 builder.Append(RandomString(7, True))
 builder.Append(RandomNumber(1000000, 9999999))
 ' builder.Append(RandomString(2, False))
 Return builder.ToString()
 End Function
 Function Getprefix() As String
 Dim builder As New StringBuilder()
 builder.Append(RandomString(9, True))
 builder.Append(RandomNumber(100000000, 999999999))
 builder.Append(RandomString(9, True))
 builder.Append(RandomNumber(100000000, 999999999))
 ' builder.Append(RandomString(2, False))
 Return builder.ToString()
 End Function
 Function Getsuffix() As String
 Dim builder As New StringBuilder()
 builder.Append(RandomNumber(100000000, 999999999))
 builder.Append(RandomString(9, True))
 ' builder.Append(RandomString(2, False))
 Return builder.ToString()
 End Function
 Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
 Dim random As New Random()
 Return random.Next(min, max)
 End Function
 Function GenerateProfileId() As String
 Dim builder As New StringBuilder()
 builder.Append(RandomString(5, False))
 builder.Append(RandomNumber(10001, 99999))
 Return builder.ToString()
 End Function
 Sub calculate_string(ByVal num As Integer, ByRef num1 As Integer)
 num1 = num * 7
 num1 = num1 + 786
 End Sub
 Sub calculate_Id(ByVal num As Integer, ByRef num1 As Integer)
 num1 = num - 786
 num1 = num1 / 7
 End Sub
 Sub HTMLEncodeSpecialChars(ByVal toEncode As String, ByRef str As String)
 Dim chars As Char() = HttpUtility.HtmlEncode(toEncode).ToCharArray()
 Dim result As New StringBuilder(toEncode.Length + CInt(toEncode.Length * 0.1))

For Each c As Char In chars
 Dim value As Integer = Convert.ToInt32(c)
 If (value >= 33 And value <= 47) Or (value >= 58 And value <= 64) Or (value >= 123 And value <= 126) Or (value > 127) Then
 result.AppendFormat("&#{0};", value)
 Else
 result.Append(c)
 End If
 Next

str = result.ToString()
    End Sub
    Sub HTMLDecodeSpecialChars(ByVal toDecode As String, ByRef str As String)
        Dim chars As Char() = HttpUtility.HtmlEncode(toDecode).ToCharArray()
        Dim result As New StringBuilder(toDecode.Length + CInt(toDecode.Length * 0.1))
        Dim charString As String
        Dim count, count1 As Integer
        charString = ""
        count = 0
        count1 = 0

For Each c As Char In chars
            If c = "&" Or c = "#" Or count > 0 Or count1 > 0 Then
                If c = "&" Then
                    count1 += 1
                End If
                If c = ";" Then
                    count1 = 0
                End If
                If count > 0 And c = ";" Then
                    result.Append(Chr(charString))
                    charString = ""
                    count = 0
                    count1 = 0
                End If
                If count > 0 Then
                    charString += c
                End If
                If c = "#" Then
                    count += 1
                End If
            Else
                result.Append(c)
            End If
        Next

str = result.ToString()
    End Sub
    Sub login_menu(ByVal TempCode As String, ByVal user_name As String, ByRef st1 As String)
        Dim UserId As Integer
        UserId = obj.getParticularData("select ISNULL(MAX(UserId),0) from UserLoginDetail where TempCode='" & TempCode & "' and Status=1")

If TempCode = "" Or UserId = 0 Then
 st1 += "<a href=""http://www.khatrivivah.com/Login.aspx"" title=""Login"">Login</a> | "
 st1 += "<a href=""http://www.khatrivivah.com/Register.aspx"" title=""Register"">Register</a>"
 Else
 st1 += "<img alt=""" & user_name & """ title=""" & user_name & """ src=""images/UserIcon.png"" /> <a href=""javascript:void(0)"" class=""username"" title=""Hello"">Hello! " & user_name & "</a> "

ValidityDate = obj.getParticularData("select Top 1 ValidityDate from UserPlanDetail where UserId=" & UserId & " and IsCurrent=1 Order By SNo DESC")
 CurrDate = DateTime.Now()
 CheckDate = CurrDate.AddDays(7)
 If CurrDate > ValidityDate Then
 st1 += "<a href=""http://www.khatrivivah.com/Update-Account.aspx?u=" & TempCode & """><img alt=""Your Account Is Expired. Please Upgrade/Renew."" title=""Your Account Is Expired. Please Upgrade/Renew."" src=""images/erroricon.png"" /></a>"
 ElseIf (ValidityDate > CurrDate) And (ValidityDate < CheckDate) Then
 st1 += "<a href=""http://www.khatrivivah.com/Update-Account.aspx?u=" & TempCode & """><img alt=""Your Account Is Expiring Soon. Please Upgrade/Renew."" title=""Your Account Is Expiring Soon. Please Upgrade/Renew."" src=""images/warningicon.png"" /></a>"
 Else

End If
 st1 += " | <a href=""http://www.khatrivivah.com/My-Account.aspx?u=" & TempCode & """ title=""My Account"">My Account</a> | "
 st1 += "<a href=""http://www.khatrivivah.com/Logout.aspx?u=" & TempCode & """ title=""Logout"">Logout</a>"
 End If
 End Sub
 Sub getUserId(ByVal Temp_Code As String, ByRef C_Id As String)
 If Temp_Code = "" Then
 C_Id = ""
 Else
 st = "select ISNULL(MAX(AdminId),0) from AdminLoginDetails where TempCode='" & Temp_Code & "' and Status=1"
 C_Id = obj.getParticularData(st)
 End If
 End Sub
 Sub getAdminId(ByVal Temp_Code As String, ByRef User_Id As String, ByRef LoginType As String)
 If Temp_Code = "" Then
 User_Id = ""
 Else
 st = "select ISNULL(MAX(AdminId),'') from AdminLoginDetails where TempCode='" & Temp_Code & "'"
 User_Id = obj.getParticularData(st)
 st1 = "select LoginType from AdminDetails where AdminId='" & User_Id & "'"
 LoginType = obj.getParticularData(st1)
 End If
 End Sub
 Sub getClientName(ByVal Temp_Code As String, ByRef User_Id As String, ByRef ClientName As String, ByRef LoginType As String)
 If Temp_Code = "" Then
 User_Id = ""
 Else
 st = "select ISNULL(MAX(ClientId),'') from ClientLoginDetails where TempCode='" & Temp_Code & "'"
 User_Id = obj.getParticularData(st)
 st1 = "select Name from ClientDetail where ClientId=" & User_Id
 ClientName = obj.getParticularData(st1)
 LoginType = "Client"
 End If
 End Sub
 Sub getProfileId(ByVal userId As Integer, ByRef IsProfile As Integer)
 Dim max_sno As Integer
 st = "select ISNULL(MAX(SNo),0) from MemberDetail where userId=" & userId & " and status=1"
 max_sno = obj.getParticularData(st)
 If max_sno = 0 Then
 IsProfile = 0
 Else
 IsProfile = 1
 End If
 End Sub
 Sub getValidityDate(ByVal userId As Integer, ByRef ValidityDate As DateTime)
 st = "select ISNULL(MAX(ValidityDate),'-') from UserPlanDetail where userId=" & userId & " and IsCurrent=1"
 ValidityDate = obj.getParticularData(st)
 End Sub
 Sub getAdminMenu(ByVal Temp_Code As String, ByVal LoginType As String, ByVal ActiveRowNo As Integer, ByRef str As String)
 If LoginType = "Admin" Then
 str = ""

If ActiveRowNo = 1 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

str += " <a href=""Dashboard.aspx?u=" & Temp_Code & """>"
 str += " Dashboard"
 str += " </a>"
 str += " </li>"

If ActiveRowNo = 2 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " "
 str += " Clients"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ManageClient.aspx?u=" & Temp_Code & "&b=1""> Add New Client</a></li>"
 str += " <li><a href=""ClientList.aspx?u=" & Temp_Code & "&b=2""> Edit Client</a></li>"
 str += " <li><a href=""ClientList.aspx?u=" & Temp_Code & "&b=3""> Delete Client</a></li>"
 str += " <li><a href=""ClientList.aspx?u=" & Temp_Code & "&b=4""> Client List</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 3 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " "
 str += " Services"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""TaxList.aspx?u=" & Temp_Code & """> Add/Edit Tax Detail</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 4 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Reports"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""TaxReport.aspx?u=" & Temp_Code & "&b=1""> Status Wise (Filed)</a></li>"
 str += " <li><a href=""TaxReportDate.aspx?u=" & Temp_Code & """> Tax Report (Date Range)</a></li>"
 str += " <li><a href=""TaxReport.aspx?u=" & Temp_Code & "&b=2""> IT Proceding Wise (Filed)</a></li>"
 str += " <li><a href=""TaxReportOfPending.aspx?u=" & Temp_Code & """> Pending Tax Report</a></li>"
 str += " <li><a href=""AdvanceTaxReport.aspx?u=" & Temp_Code & """> Advance Tax Report</a></li>"
 str += " <li><a href=""EVerifiedTaxReport.aspx?u=" & Temp_Code & """> E-Verified Tax Report</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 5 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Others"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ManageStaffMember.aspx?u=" & Temp_Code & "&b=1""> Add Staff Account</a></li>"
 str += " <li><a href=""StaffMemberList.aspx?u=" & Temp_Code & """> Edit Staff Account</a></li>"
 str += " <li><a href=""ChangePassword.aspx?u=" & Temp_Code & "&b=1""> Change Password</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 6 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Financial Year"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ManageFinancialYear.aspx?u=" & Temp_Code & "&b=1""> Add Financial Year</a></li>"
 str += " <li><a href=""FinancialYearList.aspx?u=" & Temp_Code & """> Edit Financial Year</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 7 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Return Filed Type"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ReturnFiledTypeManage.aspx?u=" & Temp_Code & "&b=1""> Add Return Filed Type</a></li>"
 str += " <li><a href=""ReturnFiledTypeList.aspx?u=" & Temp_Code & """> Edit Return Filed Type</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 8 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " IT Proceeding"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ITProceedingManage.aspx?u=" & Temp_Code & "&b=1""> Add IT Proceeding Type</a></li>"
 str += " <li><a href=""ITProceedingList.aspx?u=" & Temp_Code & """> Edit IT Proceeding Type</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 9 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

str += " <a href=""ContactList.aspx?u=" & Temp_Code & """>"
 str += " Contact Details"
 str += " </a>"
 str += " </li>"

If ActiveRowNo = 10 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Uploads"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""UploadDocument.aspx?u=" & Temp_Code & """> Upload Document</a></li>"
 str += " <li><a href=""UploadedDocumentList.aspx?u=" & Temp_Code & """> Documents List</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 11 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

str += " <a href=""DocumentList.aspx?u=" & Temp_Code & """>"
 str += " Documents From Client"
 str += " </a>"
 str += " </li>"

If ActiveRowNo = 12 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

str += " <a href=""QueryList.aspx?u=" & Temp_Code & """>"
 str += " Client Query"
 str += " </a>"
 str += " </li>"

If ActiveRowNo = 13 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " SMS"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""SendSMS.aspx?u=" & Temp_Code & """> Send SMS To Client</a></li>"
 str += " <li><a href=""SMSList.aspx?u=" & Temp_Code & """> Sent SMS List</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 14 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

str += " <a href=""http://103.248.33.251/"" target=""_blank"">"
 str += " SMS Panel"
 str += " </a>"
 str += " </li>"

ElseIf LoginType = "Staff" Then
            str = ""

If ActiveRowNo = 1 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

If ActiveRowNo = 2 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

If ActiveRowNo = 3 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

If ActiveRowNo = 5 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

If ActiveRowNo = 6 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

If ActiveRowNo = 7 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

If ActiveRowNo = 8 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

If ActiveRowNo = 9 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

If ActiveRowNo = 1 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

If ActiveRowNo = 2 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " "
 str += " Profile"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ViewProfile.aspx?u=" & Temp_Code & "&b=1""> View Profile</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 3 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " "
 str += " Tax Details"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""TaxDetail.aspx?u=" & Temp_Code & """> View Tax Detail</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 4 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Downloads"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""DocumentList.aspx?u=" & Temp_Code & "&b=1""> Documents</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 5 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Upload"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""UploadDocument.aspx?u=" & Temp_Code & "&b=1""> Upload Document</a></li>"
 str += " <li><a href=""UploadList.aspx?u=" & Temp_Code & "&b=1""> My Uploaded Documents</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 6 Then
 str += " <li class=""active treeview"">"
 Else
 str += " <li class=""treeview"">"
 End If

str += " <a href=""#"">"
 str += " Query"
 str += " "
 str += " </a>"
 str += " <ul class=""treeview-menu"">"
 str += " <li><a href=""ContactAdmin.aspx?u=" & Temp_Code & """> New Query</a></li>"
 str += " <li><a href=""QueryList.aspx?u=" & Temp_Code & """> Query List</a></li>"
 str += " </ul>"
 str += " </li>"

If ActiveRowNo = 7 Then
 str += " <li class=""active"">"
 Else
 str += " <li>"
 End If

str += " <a href=""ChangePassword.aspx?u=" & Temp_Code & """>"
 str += " Change Password"
 str += " </a>"
 str += " </li>"
 End If
 End Sub
 Sub getClientMenu(ByVal Temp_Code As String, ByVal LoginType As String, ByVal ActiveRowNo As Integer, ByRef str As String)
 If LoginType = "Client" Then
 str = ""