Dim fl As String = "c:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Dim wb As New weui
Select Case e.Path
Case "addnew.htm"
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","XXX-货品登记")
.AddInput("名称","名称","Text")
.AddInput("库存","库存","number")
.AddSelect("单位","单位","套|米|个|台|其它")
.AddSelect("状态","状态","完好|轻微损坏|严重损坏|作废|其它")
With wb.AddInputGroup("form1","ipg2","其它备注")
.AddTextArea("备注",2).Placeholder = "......" '备注做的两行内容留空
End With
With wb.AddInputGroup("form1","ipg3","图片上传")
With .AddUploader("up128","照片",True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 600
End With
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
.Add("btn2", "返回列表","button","list.htm").Kind = 1
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "receive.htm"
Dim nms() As String = {"名称","库存","单位","状态","备注"}
Dim dr As DataRow = DataTables("XXXX").AddNew() '后台增加行
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
Dim i As Integer = 1 '做编号,避免重名
Dim t As String = Format(Date.now,"MMddHmmss") '为文件保存名字更改做准备
For Each key As String In e.Files.Keys
Dim lst As New List(of String)
For Each fln As String In e.Files(key)
e.SaveFile(key,fln, ProjectPath & "Attachments\" & t & i & ".jpg")
lst.Add(t & i & ".jpg")
i = i + 1
Next
dr.Lines("照片") = lst '将图片二进制存入单元格多行文本
Next
If dr.IsNull("名称") Then '添加时设置没有品名时无法上传
dr.Delete() '如果无法上传,删除之前的增加行
Else
dr.save()
e.WriteString("OK") 'JS里面设置了"OK"的调用
End If
'
Case "upload.htm"
With wb.AddMsgPage("","msgpage","增加成功", "欢迎使用") '生成成功提示页
.AddButton("btn1","继续增加","addnew.htm")
.AddButton("btn1","返回列表","list.htm").Kind = 1
End With
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2017/5/26 18:04:00 [只看该作者]
此主题相关图片如下：图片5 拷贝.jpg