Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.Cookies.ContainsKey("用户姓名") And e.Cookies.ContainsKey("用户密码") Then
Dim dr As DataRow = DataTables("登录用户").sqlfind("用户姓名='" & e.Cookies("用户姓名") & "'")
If dr Is Nothing OrElse dr("用户密码") <> e.Cookies("用户密码") Then '''如果无此用户,或密码不正确.
wb.InsertHTML("<meta http-equiv='Refresh' c>")
e.WriteString(wb.Build)
Return""
End If
Else
wb.InsertHTML("<meta http-equiv='Refresh' c>")
e.WriteString(wb.Build)
Return""
End If
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
If e.GetValues.ContainsKey("name") Then
' haiguanchuanzhi = e.getvalues("name")
wb.AddForm("", "form2", "receive.htm?name=" & e.getvalues("name")) ''将主键同时传给recevie.htm页面
Dim dr As DataRow = DataTables("检疫资料").SQLFind("_Identify = '" & e.getvalues("name") & "'")
If dr IsNot Nothing Then
With wb.AddInputGroup("form2", "海关信息1", "登轮信息")
.AddHiddenValue("登轮信息", "1")
If dr("卫检登轮") Then
.AddSwitch("卫检登轮", "卫检登轮", True)
Else
.AddSwitch("卫检登轮", "卫检登轮").Attribute = ""
End If
' .AddInput("登轮时间", "登轮时间", "datetime-local").Value = Format(dr("登轮时间"), "yyyy-MM-ddTHH:mm")
With .AddInput("登轮时间", "登轮时间", "datetime-local")
If dr.isnull("登轮时间") = False Then
.Value = Format(dr("登轮时间"), "yyyy-MM-ddTHH:mm")
End If
End With
End With
'以下为多选框发送端
Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("", "登轮人员", "请选择登轮人员")
Dim s As String = DataTables("列表项目").GetComboListString("人员名单")
s = s.Trim(" |", "| ")
Dim Values() As String
Values = s.split("|")
If values.length > 0 Then
For index As Integer = 0 To values.Length - 1
If values(index) > "" AndAlso dr("登轮人员").Contains(values(index)) Then
cdg.add("登轮人员" & CStr(Index), values(index), True).value = values(index)
Else
cdg.add("登轮人员" & CStr(Index), values(index)).value = values(index)
End If
Next
End If
wb.InsertHTML("form2", cdg.BuildHtml)
With wb.AddInputGroup("form2", "海关信息2", "离轮信息")
If dr("是否离轮") Then
.AddSwitch("是否离轮", "是否离轮", True)
Else
.AddSwitch("是否离轮", "是否离轮").Attribute = ""
End If
With .AddInput("离轮时间", "离轮时间", "datetime-local")
If dr.isnull("离轮时间") = False Then
.Value = Format(dr("离轮时间"), "yyyy-MM-ddTHH:mm")
End If
End With
End With
With wb.AddInputGroup("form2", "资料图片", "资料图片")
With .AddUploader("up129", "资料图片", True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.AllowAdd = True
.Accept = "image/*"
.ScaleWidth = 1200
For Each s1 As String In dr.Lines("资料图片")
.AddImage("./Attachments/" & s1)
Next
End With
End With
With wb.AddButtonGroup("form2", "btg1", True)
.Add("btn1", "保存", "button").Attribute = "" '调用js函数上传
End With
wb.AddToast("", "tst1", "正在上传", 1)
wb.AddToast("", "tst2", "保存成功", 0)
wb.AddToast("", "tst3", "上传失败", 0).Icon = "warn"
wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
wb.InsertHTML("<div style='height:50px'></div>")
End If
End If
wb.AppendHTML("<script>initExWeUI();</script>") '需要注意的是,这里不需要使用true参数
e.WriteString(wb.Build) '生成网页
如果单独放页面中没问题，放在这里就不显示。
加好友 
发短信
Post By：2023/6/8 8:58:00 [显示全部帖子]
此主题相关图片如下：qq截图20230608085635.png
