Dim e As RequestEventArgs = Args(0)
Dim wb As New weui
wb.AddPageTitle("","pageheader","测试","测试")
wb.AppendHTML("<link rel='stylesheet' href='css/common.css' Type='text/css' charset='utf-8'/>", True)
wb.AddToast("","t1", "正在验证中",1) '定义提示
wb.AddForm("","form1","logon.htm").attribute= """
With wb.AddInputGroup("form1","ipg1","基本资料")
Dim yzm3 As String = Rand.NextString(4)
.AddHiddenValue("sjyzm",yzm3)
With .AddInputCell("i1",1)
.AddLabel("lmm","编号",0)
.AddInput("CompanyCode2","text",1).PlaceHolder= "请输入CNT开头的编号" '这里的输入框苹果手机输入不了
End With
With .AddInputCell("i2")
.AddLabel("lyzm","验证码",0)
With .AddInput("yzm2","text",1) '这里的输入框苹果手机输入不了
.Max = "4" '这里的限制没有生效（电脑网页和安卓手机都不生效）
End With
.AddLabel("hym",yzm3,2)
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "进入", "submit")
End With
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2023/12/21 0:19:45编辑过]
加好友 
发短信
Post By：2023/12/19 16:25:00 [显示全部帖子]
