deletedata.aspx.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.OleDb

Public Class DeleteData: Inherits Page
	Public lblId,message As Label
	Public txtUserPWD As TextBox

	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
End Class