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 + -
显示快捷键?