deletedata.aspx

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

ASPX
65 行
字号 
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_load(Sender As Object, E As EventArgs)
	If Not IsPostBack Then 
		'下面将传过来的Id保存到一个隐藏标签中
		lblId.Text=Request.QueryString("id")
	End If
End Sub
'该过程用来判断密码，如果正确则删除
Sub Enter_Click(Sender As Object, E As EventArgs)
	If CheckPWD(lblId.Text,txtUserPWD.Text) Then
		Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb")) 
		Dim strSql="Delete from users Where id=" & lblId.Text			'这里是从隐藏标签读取的值
		Dim cmd As New OleDbCommand(strSql, conn)
		conn.Open()
		cmd.ExecuteNonQuery()											'删除记录
		conn.Close()
		Response.Redirect("index.aspx")									'重定向回首页	
	Else
		message.Text="密码不正确，请重新输入"
	End If
End Sub
'这个函数专门用来判断密码是否正确
Function CheckPWD(id As Integer,UserPWD As String)
	Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"))										'建立Connection对象
	Dim strSql As String = "select UserPWD As total from users Where id=" & id
	Dim cmd As New OleDbCommand(strSql, conn)							'建立Command对象
	conn.Open
	If  UserPWD=cmd.ExecuteScalar() Then
		CheckPWD=True
	Else
		CheckPWD=False
	End If
	conn.Close
End Function
</script>
<html>
<head>
	<link href="Style.css" type="text/css" rel="stylesheet">
</head>
<body>
	<h3 align="center">删除记录</h3>
	<center>
	<form runat="server">
		<table border="1" align="center" cellpadding="2" bgcolor="#FFFFFF" cellspacing="0" style="border-collapse: collapse" bordercolor="#D4D4D4" width="80%" >
		<tr>
			<td>请输入删除密码</td>
			<td>
				<asp:TextBox TextMode="Password" id="txtUserPWD" runat="server" CssClass="inputbox"/>
			</td>

			<tr>
				<td><asp:Label id="lblId" visible="False" runat="server"/></td>
				<td><asp:button id="Enter" Text=" 删 除 " onClick="Enter_Click" runat="server"  CssClass="inputbutton"/></td>
			</tr>
		</table>
		<asp:Label id="message" runat="server"/>
	</form>
	<a href="index.aspx">返回首页</a>
	</center>
</body>
</html>

deletedata.aspx - 源码说明

本页面展示了「《ASP.NET C#程序设计案例教程》」中的 deletedata.aspx 源码文件，采用 ASPX 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP.NET相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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