Case "fhedit.htm"
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim PageURL = "listclfh.htm?page=" & PageNumber
Dim dr As DataRow = DataTables("出库台账").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","scl.htm")
With wb.AddInputGroup("form1","ipg1","车辆防护照片上传")
With .AddInput("bdsx","标单顺序:","text")
.Value = dr("标单顺序")
.Readonly= True
End With
With .AddInput("kh","客户名称:","text")
.Value = dr("收货单位")
.Readonly= True
End With
With .AddInput("cph","车牌号:","text")
.Value = dr("车牌号")
.Readonly= True
End With
With .AddInput("jz","行号:","text")
.Value = PrimaryKey
.Readonly= True
End With
.AddInput("bgy","保管员:","text").Value = dr("收费员")
With .AddUploader("up128","照片上传:一个车的防护照片只能一次性上传!",True)
.AllowDelete = True '允许删除
.Incremental = True '允许 重复选择文件或连续拍照
.ScaleWidth = 300
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "上传", "button").Attribute= "" '调用js函数上传
.Add("btn2","返回","" ,"fhedit.htm")
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform1.js'></script>") '引入脚本文件
Else
With wb.AddMsgPage("","msgpage","上传失败","........") '提示用户此订单不存在.
.icon= "Warn"
.AddButton("bt3","返回",PageURL) '生成返回原来页面的按钮
End With
End If
Case "scl.htm"
Dim dr As DataRow = DataTables("出库台账").SQLFind("[_Identify] = '" & e.PostValues("jz") & "'")
dr("收费员") = e.PostValues("bgy")
For Each key As String In e.Files.Keys
If key = "up128" Then
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"C:\web\uploadfiles\" & fln)
Next
dr.Lines("车辆防护") = e.Files(key)
End If
Next
e.WriteString("OK")
dr.save()
手机上传图片的代码