ModuleMaster/multibin/to_confirm.ashx - main - ivan/ModMas

ModuleMaster/multibin/to_confirm.ashx
79 строк2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:4900d9fb6
<%@ WebHandler Language="VB" Class="slideshow" %>


Imports System.Web.Script.Serialization
Imports sharedClasses.dbFunctions
Imports System.Data


Public Class slideshow : Implements IHttpHandler




    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        Dim sqlf As New SqlFunctions
        Dim com As New Data.SqlClient.SqlCommand

        Dim sql As New StringBuilder


        Dim mode = context.Request.QueryString("mode")
        Dim flag = context.Request.QueryString("flag")
        Dim to_num = context.Request.QueryString("to")
        Dim result As String
        Dim num_row As Integer


        'result = mode + " | " + flag + " | " + to_num


        Select Case flag
            Case "0"
                sql.AppendLine("update [UserModules].[user].[to]")
                sql.AppendLine("set [1_CONFIRM] = 'Y'           ")
                sql.AppendLine(",[1_CONFIRM_date] = getdate()")
                sql.AppendLine("where [TO] ='" + to_num + "'")
                num_row = sqlf.NonQuery(sql.ToString)
                If num_row > 0 Then result = "OK" Else result = "NG"
            Case "1"
                sql.AppendLine("update [UserModules].[user].[to]")
                sql.AppendLine("set [2_CONFIRM] = 'Y'")
                sql.AppendLine(",[2_CONFIRM_date] = getdate()")
                sql.AppendLine("where [TO] ='" + to_num + "'")
                num_row = sqlf.NonQuery(sql.ToString)
                If num_row > 0 Then result = "OK" Else result = "NG"
            Case Else
                result = "NG"
        End Select




        'Select Case mode
        '    Case "1"
        '        result = "OK"
        '    Case "2"
        '        result = "NG"
        '    Case "3"
        '        System.Threading.Thread.Sleep(60000)
        '        result = "LongTimeResponse"
        '    Case Else
        '        result = "NG"

        'End Select


        context.Response.ContentType = "content/text"
        context.Response.Write(result)

    End Sub

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


End Class