Select Case e.Path
Case "活动图片.htm"
Dim wb As New weui
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","活动图片.htm")
..... where 图片备注 = '" & e.GetValues("pv") & "' "
Dim dt01 As DataTable = cmd.ExecuteReader'
For Each pr01 As DataRow In dt01.DataRows
With wb.AddInputGroup("form1","ipg1","增加员工")
.AddInput("图片备注","图片备注","Text") .Value = pr01("图片备注")
With .AddUploader("up1","图片一",True) 'True表示允许上传多个文件
For Each s As String In pr01.lines("图片一")
.AddImage("img/" & s)
Next
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 1000 '自动压缩图片宽度为400个像素,高度等比例压缩
.Scaleheight = 666 '自动压缩图片宽度为400个像素,高度等比例压缩
.Accept = "image/*" '允许使用相册和相机
End With
End With
Next
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit").Attribute= "" '调用js函数上传
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)
Else
.......where 图片备注 = '"& e.PostValues("图片备注") & "'"
dt = cmd.ExecuteReader(True)
If dt.datarows.count > 0 Then
Dim dr As DataRow = dt.datarows(0)
Dim nms() As String = {"图片备注"} '""
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm)= e.PostValues(nm)
End If
Next
For Each key As String In e.Files.Keys
If key = "up1" Then
Dim lst As List(of String) = dr.Lines("图片一")
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"D:\web\img\" & fln)
lst.Add(fln)
Next
dr.Lines("图片一") = lst
End If
Next
Dim sb1 As New StringBuilder
sb1.AppendLine("<meta name='viewport' c>")
sb1.AppendLine("已经删除了以下文件:<br/>")
If e.PostValues.ContainsKey("up1_deleted") Then
Dim Files = e.PostValues("up1_deleted").Split("|")
Dim lst As List(of String) = dr.Lines("图片一")
For Each File As String In Files
lst.Remove(File)
sb1.AppendLine(file & "<br/>")
file = "d:\web\" & File.Trim(".")
If Filesys.FileExists(file) Then
Filesys.DeleteFile(file)
End If
Next
dr.Lines("图片一") = lst
End If
'保存并生成增加成功提示页面
dr.save()
End If
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","addnew.htm")
End With
e.WriteString(wb.Build)
End If
End Select
是放哪的，放这要错
加好友 
发短信
Post By：2021/8/21 11:17:00 [显示全部帖子]
此主题相关图片如下：qq浏览器截图20210821164846.png
