admin_book_add.aspx.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls										'因为用到了文件上传控件
Imports MicroSoft.VisualBasic
Imports System.Data
Imports System.IO														'因为用到了Stream对象
Imports nsShop												            '因为用到了自定义业务对象，所以导入


Public Class admin_book_add: Inherits Page
	Public txtBookName,txtBookAuthor,txtBookPrice,txtBookNum,txtBookIntro,txtBookIndex As TextBox
	Public dropKindId As DropDownList
	Public btnEnter As Button 
	Public UploadFile As HtmlInputFile
	Public lblMessage As Label

	Sub Page_Load(Sender As Object, E As EventArgs)
		If Not Page.IsPostBack Then
			Call myDataBind()
		End If
	End Sub

	'该过程用来添加新书本
	Sub btnEnter_Click(Sender As Object, E As EventArgs)
		'判断一下，如果不是管理员，就返回到首页
		If DataUserLog.IsAdmin()=False Then
			Response.Write("<script language='javascript'>top.document.location='../index.aspx';</script>")
		End If
		
		'下面首先获取书名等普通数据
		Dim strBookName,strBookAuthor,strBookIntro,strBookIndex As String
		Dim sglBookPrice As Single
		Dim intBookNum,intKindId As Integer
		strBookName=txtBookName.Text
		strBookAuthor=txtBookAuthor.Text
		strBookIntro=txtBookIntro.Text
		strBookIndex=txtBookIndex.Text
		sglBookPrice=txtBookPrice.Text
		intBookNum=txtBookNum.Text
		intKindId=dropKindId.SelectedItem.Value

		'下面获取上传的图片数据,并利用Stream对象将其保存到二进制数组中
		Dim FileSize As Long=uploadfile.PostedFile.ContentLength
		Dim bytPicture(FileSize) As Byte					'建立一个和文件大小一致的二进制数组					
		Dim objStream As Stream														'定义一个Stream对象变量
		objStream=uploadfile.PostedFile.InputStream									'读取上传文件到Stream对象中
		objStream.Read(bytPicture,0,FileSize)										'读取整个文件到buffer数租中
		
		'下面调用方法添加记录
		Dim dbs As New DataBusiness()
		If dbs.InsertBook(strBookName,strBookAuthor,sglBookPrice,intBookNum,bytPicture,strBookIntro, strBookIndex,intKindId)=True Then
			'插入成功，返回列表页面
			Response.Redirect("admin_book_list.aspx")
		Else
			lblMessage.Text="发生错误，没有添加"
		End If
		
	End Sub


	'该过程用于绑定类别
	Sub myDataBind()
		'下面建立DataBusiness对象，返回所有类别信息
		Dim dbs As New DataBusiness()
		Dim dv As DataView=dbs.GetKind()
		'下面绑定数据
		dropKindId.DataSource=dv
		dropKindId.DataTextField="KindName"
		dropKindId.DataValueField="KindId"
		dropKindId.DataBind()	
	End Sub

End Class