deletedata.aspx.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsAddress				'自定义名称空间

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)
		'建立DataBusiness对象实例，更新当前记录
		Dim dbs As New DataBusiness("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("address.mdb"))
		If dbs.PreDelete(lblId.Text,txtUserPWD.Text)=True Then
			'更新完毕，返回首页
			Response.Redirect("index.aspx")	
		Else
			message.Text="请输入正确的密码"
		End If
	End Sub
End Class