deletedata.aspx

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

ASPX
95 行
字号 
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<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 SqlConnection("Server=localhost;Database=address;Uid=test;Pwd=123456")

		'下面建立Command对象，注意使用存储过程*****************************
		Dim cmd As New SqlCommand("address_Delete",conn)					'其中address_Delete是存储过程
		cmd.CommandType=CommandType.StoredProcedure						'表示使用存储过程	
		
		'下面建立传入参数对象，并给其赋值。
		cmd.Parameters.Add(New SqlParameter("@id",SqlDbType.Int))
		cmd.Parameters("@id").Value=lblId.Text							'这里是从隐藏标签读取的值

		'下面执行存储过程
		conn.open()                             '打开数据库
		cmd.ExecuteNonQuery()
		conn.close()                            '关闭数据库
		'**************************************************************

		'这里要将DataSet从缓存中删除，这样返回到首页后就会重新从数据库中读取更新后的数据
		Cache.Remove("ds")

		Response.Redirect("index.aspx")									'重定向回首页	
	Else
		message.Text="密码不正确，请重新输入"
	End If
End Sub
'这个函数专门用来判断密码是否正确
Function CheckPWD(id As Integer,UserPWD As String)
	Dim conn As New SqlConnection("Server=localhost;Database=address;Uid=test;Pwd=123456")

	'下面建立Command对象，注意使用存储过程*****************************
	Dim cmd As New SqlCommand("address_Password",conn)				'其中address_Password是存储过程
	cmd.CommandType=CommandType.StoredProcedure						'表示使用存储过程	
	
	'下面建立传入参数对象
	cmd.Parameters.Add(New SqlParameter("@id",SqlDbType.Int))
	cmd.Parameters("@id").Value=lblId.Text							'这里是从隐藏标签读取的值
	cmd.Parameters.Add(New SqlParameter("@UserPWD",SqlDbType.NVarChar))
	cmd.Parameters("@UserPWD").Value=txtUserPWD.Text				'这里是客户输入的密码
	'建立传出参数
	cmd.Parameters.Add(New SqlParameter("@existflag",SqlDbType.Int))
	cmd.Parameters("@existflag").Direction=ParameterDirection.OutPut    

	'下面执行该存储过程
	conn.Open()                      
	cmd.ExecuteNonQuery()
	conn.Close()  
	'下面根据传出参数的值输出内容
	If cmd.Parameters("@existflag").value=1 Then
		CheckPWD=True
	Else
		CheckPWD=False
	End If

	'**************************************************************
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 编程语言编写，共 95 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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