- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助weui 图片编辑图片删除，再保存问题。求助求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190268)
-- 发布时间：2024/1/27 10:30:00
-- 求助weui 图片编辑图片删除，再保存问题。求助求助
两段代码，都是实例文件，求助，如何把两个代码结合在一起
第一段代码是图片的保存，第二段代码是图片的删除。
怎么样删除以后又能保存。中间的条件关系不是很清楚，请指教。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码1.txt |
-- 发布时间：2024/1/27 10:38:00
--
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
-- 发布时间：2024/1/28 15:59:00
--
搞定，多谢，多谢