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)
' Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username") &"' " )
e.SaveFile(key,fln, "D:\web\img\头像\" & fln)
lst.Add(fln)
Next
dr.Lines("账号头像图片") = lst
End If
Next
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.Trim(".").Replace("img/头像/",""))
file = "d:\web\" & File.Trim(".")
If Filesys.FileExists(file) Then
Filesys.DeleteFile(file)
End If
Next
dr.Lines("账号头像图片") = lst
End If
照片重命名什么改
加好友 
发短信
Post By：2022/2/23 10:28:00 [只看该作者]
