.Add("btn1", "确定", "button").Attribute= ""
----------------
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","addnew.htm")
End With
e.WriteString(wb.Build)
改为
e.WriteString("OK")
-----------------------------
调试一下
If e.PostValues.ContainsKey("up1_deleted") Then
msgbox(e.PostValues("up1_deleted"))
Dim Files = e.PostValues("up1_deleted").Split("|")
msgbox(dr.Lines("图片一"))
Dim lst As List(of String) = dr.Lines("图片一")
For Each File As String In Files
msgbox(File)
lst.Remove(File)
file = "d:\web\" & File.Trim(".")
If Filesys.FileExists(file) Then
Filesys.DeleteFile(file)
End If
Next
dr.Lines("图片一") = lst
msgbox(dr.Lines("图片一"))
End If
加好友 
发短信
Post By：2021/8/21 14:46:00 [显示全部帖子]
