主题：移动端签字

Dim e As Object = args(0)

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Dim dr As DataRow = DataTables("审核示例表").SQLFind("ID = '123456789'")

If dr IsNot Nothing Then '如果找到的话

    S elect Case e.Path

        Case "shujushenhe.htm"

            Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz.txt")

            wb.AddForm("", "form1", "qzb.html")

            With wb.AddInputGroup("form1", "ipg1", "审批信息")

                With .AddInput("id", "ID", "text") '常规语法增加输入框

                    .Value = dr("ID")

                    .Readonly = True

                End With

                With .AddInput("xmmc", "项目名称", "text") '常规语法增加输入框

                    .Value = dr("项目名称")

                    .Readonly = True

                End With

            End With

            With wb.AddButtonGroup("form1", "btg1", False)

                wb.InsertHTML(div)

                .Add("reset", "重写", "button")

                .Add("yes", "确定", "submit").FormAction = "qzb.htm"

            End With

            With wb.AddInputGroup("form1", "ipg2", "签字确认")

                .AddHiddenValue("qzxx", "")

                wb.InsertHTML("<div id='someelement'></div>")

            End With

            e.WriteString(wb.Build) '生成网页

        Case "qzb.htm"

            Dim qzxxs As String = e.Values("qzxx")

            If qzxxs.StartsWith("image/png;base64") And qzxxs.Length > 50 Then

                With wb.AddToast("", "t1", "提交成功!", 0)

                    .Msec = 1000

                    .Icon = "success"

                End With

                With wb.AddArticle("", "page1")

                    .AddImage("data:" & e.Values("qzxx"))

                    .AddContent("确认时间" & Date.Now)

                End With

                dr("签字数据") = e.Values("qzxx")

                dr("审核日期") = Date.Now

                dr.Save

            Else

                wb.AddPageTitle("", "ph2", "提交失败", "无签名数据!")

                With wb.AddToast("", "t2", "无签名数据" & Chr(13) & Chr(10) & "提交失败!", 0)

                    .Msec = 1000

                    .Icon = "warn"

                End With

            End If

            With wb.AddButtonGroup("form1", "btg1", False)

                .Add("reset", "重写", "button")

                .Add("yes", "确定", "submit")

            End With

            e.WriteString(wb.Build)

    End S elect

end if