wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv='Refresh' c>") '然后直接跳转到登录页面
Case
"addnew.htm"
If e.PostValues.Count =
0
Then
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("年龄","年龄","number") .AddSelect("用户名","用户名",e.Cookies("username"))
.AddInput("日期","日期","date")
End
With
With wb.AddCheckGroup("form1","偏好","品牌偏好")
.Add("苹果","苹果")
.Add("华为","华为")
.Add("三星","三星")
End
With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定",
"submit")
End
With
e.WriteString(wb.Build)
Else
Dim nms() As
String =
{"姓名","年龄","日期","级别"}
'不能为空的列名数组
For Each nm As String In
nms
If e.PostValues.ContainsKey(nm) = False
Then
'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败",
nm &
"列不能为空!")
.icon = "Warn"
'改变图标
.AddButton("btn1","返回").Attribute = ""
End
With
e.WriteString(wb.Build)
Return
'必须返回
End
If
Next
nms = New String() {"姓名","年龄","日期","级别","停权","学历"}
'重新定义了nms数组,增加了两列.
Dim dr
As
DataRow = DataTables("员工").AddNew()
For
Each nm As
String
In nms
If e.PostValues.ContainsKey(nm)
Then
dr(nm) = e.PostValues(nm)
End
If
Next
'以下代码处理品牌复选列表项
Dim pp As
String
nms = New String() {"苹果","华为","三星"} '将nms重新定义为品牌数组
For Each
nm
As String
In
nms
If e.PostValues.ContainsKey(nm)
AndAlso e.PostValues(nm).Trim() = "on"
Then
'不能省略Trim
pp = pp & nm & ","
End
If
这样也不行，
加好友 
发短信
Post By：2019/7/25 19:34:00 [只看该作者]
