add.aspx.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsAddress						'导入自己定义名称空间
Imports System.DateTime					'因为用到了Now()函数，所以导入本空间

Public Class add: Inherits Page
	Public txtName,txtTel,txtEmail,txtIntro,txtUserPWD As TextBox

	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"))
		'调用PreInsert方法，添加数据
		dbs.PreInsert(txtName.Text,txtTel.Text,txtEmail.Text,txtIntro.Text,Now(),txtUserPWD.Text)
		'成功插入，返回首页
		Response.Redirect("index.aspx")			
	End Sub
End Class