admin_lanmu_add.aspx.vb

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

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

Public Class admin_lanmu_add: Inherits Page
	Public txtForumManager,txtForumName,txtForumPicture 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.location.href='../index.aspx';</script>")
		End If
	End Sub

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