Select Case e.Path
Case "活动图片.htm"
If e.PostValues.Count = 0 Then
wb2.AddForm("","form1","活动图片.htm")
...... 手机首页 where 图片备注 = '" & e.GetValues("pv") & "' "
Dim dt01 As DataTable = cmd.ExecuteReader'
For Each pr01 As DataRow In dt01.DataRows
With wb2.AddInputGroup("form1","ipg1","增加员工")
.AddInput("图片备注","图片备注","Text").Value = pr01("图片备注") '前一个"姓名"是ID,后一个"姓名"是标题
With.AddUploader("up1","图片一",True) 'True表示允许上传多个文件
.TextPosition = 0 '标题靠左
For Each s As String In pr01.lines("图片一")
.AddImage("img/" & s)
Next
End With
End With
Next
With wb2.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb2.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
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, "D:\web\img\" & fln)
Next
dr.Lines("图片一") = e.Files(key)
End If
Next
'保存并生成增加成功提示页面
dr.save()
End If
With wb2.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","addnew.htm")
End With
e.WriteString(wb2.Build)
End If
End Select
什么上传新的图片，会把以前旧图片全部删掉
[此贴子已经被作者于2021/8/20 18:18:17编辑过]
加好友 
发短信
Post By：2021/8/20 17:51:00 [只看该作者]
