readd.aspx

来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 61 行

ASPX
61
字号
<%@ Page Language="VB" Debug="true" %>
<%@ 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对应的节点,然后修改它的reback值
		Dim node As XmlNode
		node=doc.SelectSingleNode("descendant::guest[id='" & txtId.Text & "']")
		node.ChildNodes(6).InnerText=txtReback.Text
		'保存XML文档
		doc.Save(Server.MapPath("guest.XML"))
		'正确回复后,返回首页
		Response.Redirect("index.aspx")
	Else
		message.Text="对不起,你的密码有误,请重新输入"
	End If
End Sub
</script>

<html>
<head>
	<title>回复留言</title>
	<link rel="stylesheet" href="guest_style.css">
</head>
<body>
	<h4 align="center">回复留言</h4>
	<center>
	<form runat="server">
	<table border="0" width="80%" cellpading="2" cellspacing="0">
		<tr>
			<td>回复留言:</td>
			<td><asp:Textbox id="txtReback" Textmode="multiline" columns="60" rows="4" runat="server"/>
			<asp:RequiredFieldValidator id="Require1" ControlToValidate="txtReback" ErrorMessage="回复不能为空" Display="Static" runat="server" /></td>
		</tr>
		<tr>
			<td>回复密码:</td>
			<td><asp:textbox Textmode="password"  id="mypassword" runat="server"/>
			</td>
		</tr>
		<tr>
			<td><asp:textbox id="txtId" visible="False" runat="server"/></td>
			<td><asp:button id="Enter" text=" 提 交 " onClick="Enter_Click" runat="server"/></td>
		</tr>
	</table>
	<asp:Label id="message" runat="server"/>
	</form>
	<a href="index.aspx">取消添加,返回首页</a>
	</center>
</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?