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

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

Imports sharedClasses.dbFunctions

Public Class power_saving : Implements IHttpHandler

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest

        Dim mac = context.Request.QueryString("mac")
        Dim ip = context.Request.QueryString("ip")
        Dim description = context.Request.QueryString("description")
        Dim version = context.Request.QueryString("version")
        Dim result As Integer
        Dim sqlf As New SqlFunctions
        Dim wdn As Integer
        Dim shutdown_time As String = ""

        result = sqlf.NonQuery("update [UserModules].[user].[POWER_SAVING_DB] set LAST_TALK='" + DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") + "', [ip] = '" & ip & "', description='" & [description] & "', SOFTWARE_VERSION='" & [version] & "' where [mac] = '" + mac + "'")

        If result > 0 Then
            wdn = Weekday(DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss"), 2)

            Dim sql As New StringBuilder
            sql.AppendLine("select * from  [UserModules].[user].[POWER_SAVING_DB] where [mac] = '" + mac + "'")
            'Отправка запроса, получение результата
            Dim DR As Data.DataRow = sqlf.GetRow(sql.ToString)
            'Если реальное количество отличается от заявленного, отправить вендору письмо

            Try
                Select Case wdn
                    Case 1
                        shutdown_time = DR("MondayOFF")
                    Case 2
                        shutdown_time = DR("TuesdayOFF")
                    Case 3
                        shutdown_time = DR("WednesdayOFF")
                    Case 4
                        shutdown_time = DR("ThursdayOFF")
                    Case 5
                        shutdown_time = DR("FridayOFF")
                    Case 6
                        shutdown_time = DR("SaturdayOFF")
                    Case 7
                        shutdown_time = DR("SandayOFF")
                End Select
            Catch
            End Try
            context.Response.ContentType = "content/text"
            context.Response.Write(shutdown_time)
        Else
            result = sqlf.NonQuery("insert into [UserModules].[user].[POWER_SAVING_DB] ([mac],[ip],[description],[last_talk]) values ('" & mac & "', '" & ip & "', '" & description & "','" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") & "')")
        End If

    End Sub

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

End Class