Dim wb As New weui
Select Case e.Path
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("学历", "学历", "大专|本科|硕士|博士")
.AddUploader("up1", "照片", True) 'True表示允许上传多个文件
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"姓名", "年龄", "学历"}
Dim dr As DataRow = DataTables("员工").AddNew()
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
Next
dr.Lines("照片") = e.Files(key)
End If
Next
'保存并生成增加成功提示页面
dr.save()
If e.PostValues.ContainsKey("up1_deleted") Then
Dim Files = e.PostValues("up1_deleted").Split("|")
For Each File As String In Files
file = "d:\web\" & File.Trim(".")
If Filesys.FileExists(file) Then
Filesys.DeleteFile(file)
End If
Next
End If
With wb.AddMsgPage("", "msgpage", "增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1", "继续增加", "addnew.htm")
End With
e.WriteString(wb.Build)
End If
End Select
加好友 
发短信
Post By：2024/1/27 10:30:00 [只看该作者]
