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)
sb.AppendLine(file & "<br/>")
file = "d:\web\" & File.Trim(".")
If Filesys.FileExists(file) Then
Filesys.DeleteFile(file)
End If
Next
dr.Lines("图片一") = lst
End If