62,041
社区成员
发帖
与我相关
我的任务
分享
<%@ WebHandler Language="VB" Class="UserMaster" %>
Imports System.Web
Imports CRM.Model
Imports System.Data
Imports CRM.DBUtility
Public Class UserMaster : Inherits OverrideIHttpHandler
Public Overrides Sub ProcessRequest(ByVal context As HttpContext)
Dim request As HttpRequest = context.Request
Dim response As HttpResponse = context.Response
Dim action As String = request("action")
Dim bllUserMaster As New CRM.BLL.BLLUserMaster
If action = "login" Then
response.Write(CRM.Common.JSONHepler.ToJsonSuggest(Resources.ResMessage.PasswordError))
End If
End Sub
End Class