/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/multibin/checkfloorbin.ashx
53 строки
2 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
<%@ WebHandler Language="VB" Class="getsqldata" %> Imports System Imports System.Web Imports Newtonsoft.Json Public Class getsqldata : Implements IHttpHandler Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest context.Response.ContentType = "text/plain" With context.Request Dim sql As New StringBuilder Dim bin As String = .QueryString("bin") sql.AppendLine("select ") sql.AppendLine("case ") sql.AppendLine("when ") sql.AppendLine("( ") sql.AppendLine(" select ") sql.AppendLine(" count(*) as flag ") sql.AppendLine(" from [Multi-bin].[dbo].[Bin] ") sql.AppendLine(" where zone = 'Floor' ") sql.AppendLine(" and Bin = '" & bin & "' ") sql.AppendLine(") > 0 ") sql.AppendLine("then 'OK' ") sql.AppendLine("else 'BIN is not registered in master settings' ") sql.AppendLine("end as msg ") sql.AppendLine(" ") Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions Dim dt As Data.DataTable = Nothing dt = sqlf.GetData(sql.ToString) Try context.Response.Write(JsonConvert.SerializeObject(dt, Formatting.None)) Catch ex As Exception context.Response.Write("") End Try End With End Sub Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable Get Return False End Get End Property End Class