delete.aspx
来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 45 行
ASPX
45 行
<%@ Import Namespace="System.Xml" %>
<script language="VB" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
'打开该页面时,立即获取要删除的记录ID号码,将其保存在一个隐藏的文本框中
If Page.IsPostBack=False Then
txtId.Text=Request.QueryString("id")
End If
End Sub
'下面的函数用来删除记录,首先判断客户是否正确输入了密码
Sub Enter_Click(Sender As Object, E As EventArgs)
If mypassword.Text="123456" Then
'读取XML文件
Dim doc As XmlDocument = New XmlDocument() '建立XmlDocument对象
doc.Load(Server.MapPath("guest.XML")) '载入XML文件
'找到Id对应的节点,并将其删除
Dim node As XmlNode
node=doc.SelectSingleNode("descendant::guest[id='" & txtId.Text & "']")
doc.DocumentElement.RemoveChild(node)
'保存XML文档
doc.Save(Server.MapPath("guest.XML"))
'正确删除后,返回首页
Response.Redirect("index.aspx")
Else
message.Text="对不起,你的密码有误,请重新输入"
End If
End Sub
</script>
<html>
<head>
<title>删除留言</title>
</head>
<body>
<form runat="Server">
<p align="center">请输入删除密码:
<asp:textbox textmode="password" id="mypassword" runat="server"/>
<asp:textbox id="txtId" visible="False" runat="server"/>
<asp:button id="Enter" text="确定" onclick="Enter_Click" runat="server" />
<p align="center"><asp:label id="message" runat="server" />
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?