You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.6 KiB
51 lines
1.6 KiB
Imports System.Web.Mvc
|
|
|
|
Public Class CommonController
|
|
Inherits System.Web.Mvc.Controller
|
|
|
|
<HandleErrorAsJson()>
|
|
Public Function GetPartial(namepart As String) As JsonResult
|
|
|
|
Dim jr As New JsonResult
|
|
jr.JsonRequestBehavior = JsonRequestBehavior.AllowGet
|
|
jr.Data = New With {.success = True, .data = Me.RenderPartialViewToString("_" & namepart & "Partial")}
|
|
Return jr
|
|
|
|
End Function
|
|
|
|
<HandleErrorAsJson()>
|
|
Public Function GetPartialModel(namepart As String, model As Object) As JsonResult
|
|
|
|
Dim jr As New JsonResult
|
|
jr.JsonRequestBehavior = JsonRequestBehavior.AllowGet
|
|
jr.Data = New With {.success = True, .data = Me.RenderPartialViewToString("_" & namepart & "Partial", model)}
|
|
Return jr
|
|
|
|
End Function
|
|
|
|
<HandleErrorAsJson()>
|
|
Public Function GetErrorHtml(strErrorMessage As String) As JsonResult
|
|
|
|
Dim cei As New CustomErrorInfo With {.ErrorMessage = strErrorMessage}
|
|
Dim strHtml As String = Me.RenderPartialViewToString("_ErrorBoxPartial", cei)
|
|
|
|
Dim jr As New JsonResult
|
|
jr.JsonRequestBehavior = JsonRequestBehavior.AllowGet
|
|
jr.Data = New With {.success = False, .errorHtml = strHtml}
|
|
Return jr
|
|
|
|
End Function
|
|
|
|
<HandleErrorAsJson()>
|
|
Public Function GetHash(strValue As String) As JsonResult
|
|
|
|
Dim strHash As String = Tools.GetMd5(strValue)
|
|
|
|
Dim jr As New JsonResult
|
|
jr.JsonRequestBehavior = JsonRequestBehavior.AllowGet
|
|
jr.Data = New With {.success = True, .data = strHash}
|
|
Return jr
|
|
|
|
End Function
|
|
|
|
End Class
|
|
|