admin_kind_add.aspx.vb

《ASP.NET C#程序设计案例教程》

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports nsShop						'导入自己定义名称空间

Public Class admin_kind_add: Inherits Page
	Public txtKindName As TextBox
	Public Enter As Button

	Sub Page_Load(Sender As Object, E As EventArgs)
		'判断一下，如果不是管理员，就返回到首页
		If DataUserLog.IsAdmin()=False Then
			Response.Write("<script language='javascript'>top.document.location='../index.aspx';</script>")
		End If
	End Sub

	Sub Enter_Click(Sender As Object, E As EventArgs)
		'建立DataBusiness对象实例
		Dim dbs As New DataBusiness()
		'调用InsertForum方法，添加栏目
		dbs.InsertKind(txtKindName.Text)
		'成功插入，返回
		Response.Redirect("admin_Kind_list.aspx")			
	End Sub
End Class