ModuleMaster/handlers/deletefile.ashx - main - ivan/ModMas

ModuleMaster/handlers/deletefile.ashx
52 строки2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
<%@ WebHandler Language="VB" Class="deleteFile" %>

Imports System
Imports System.Web
Imports System.IO
Imports System.Net
Imports System.Web.Http
Imports System.Net.Http
Imports System.Data.SqlClient

Public Class deleteFile : Implements IHttpHandler
    Private sqlf As New sharedClasses.dbFunctions.SqlFunctions

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        With context.Request
            context.Response.ContentType = "text/json"
            If .InputStream.Length > 0 Then
                Dim tablename As String = getTableName(.Params("tid"))
                If tablename <> "" Then
                    If sqlf.NonQuery("Update UserModulesAttachments.[user].[" & tablename & "] " & _
                                 " SET deleted = 'Y' " & _
                                 " WHERE id=" & .Params("fileid")) > 0 Then
                        context.Response.Write("[{""delete"":""Y""}]")

                        Dim dr As System.Data.DataRow = sqlf.GetRow("SELECT * FROM UserModulesAttachments.[user].[" & tablename & "] WHERE id=" & .Params("fileid"))

                        If sqlf.GetScalar("SELECT COUNT(*) FROM UserModulesAttachments.[user].[" & tablename & "] WHERE deleted = 'N' and parentid=" & dr("parentid") & " and [type]='" & dr("type") & "'") = 0 Then
                            sqlf.NonQuery("UPDATE UserModules.[user].[" & tablename & "] SET [" & dr("type") & "]='N' WHERE id=" & dr("parentid"))
                        End If
                    Else
                        context.Response.Write("[{""delete"":""N""}]")
                    End If
                End If
            Else
                context.Response.Write("[{""delete"":""N""}]")
            End If
        End With
    End Sub

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

    Private Function getTableName(tid As Integer) As String
        Return sqlf.GetScalar("SELECT dbtablename from usermodules.dbo.moduletables where id =  " & tid)
    End Function



End Class