dim sr As String
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Select Case e.Path
Case "test.htm"
sr = e.path
sr = sr.Substring(0, sr.IndexOf("."))
If e.PostValues.count = 0 Then
wb.AddTopTips("", "toptip1", "请输入姓名和手机号!")
wb.AddForm("", "form1", e.path).Attribute = "" '调用函数
With wb.AddInputGroup("form1", "ipg1")
.AddInput("kh", "姓名", "text")
.AddInput("dh", "手机号码", "number")
End With
wb.AddToast("", "t1", "操作完成", 1)
wb.InsertHTML("form1", "<button id ='btnok' name = 'btnok' type = 'submit' Class = 'weui_btn weui_btn_primary' style= 'background-color:DeepSkyBlue;width:96%; margin:auto;'> 提交 </button> <br <br/> <br <br/>")
wb.AppendHTML("<script src='./valid.js'></script>") '引入脚本文件
End If
Case Else
wb.InsertHTML("无效地址（404）")
End Select
e.WriteString(wb.Build)
[此贴子已经被作者于2022/11/25 14:25:03编辑过]
加好友 
发短信
Post By：2022/11/25 11:06:00 [显示全部帖子]
Post By：2022/11/25 15:11:00 [显示全部帖子]
此主题相关图片如下：1669352402626.png
