关 键 词：

毕业设计计算机

资源描述：

JSJ01-033@ASP.NET图书馆管理信息系统(源代码+论文),毕业设计计算机

内容简介：

Imports System.Data.SqlClientborrec.aspx.vb本代码室borrec.aspx本窗体用来显示当前登陆读者的所有借书记录,包括还过的书和没有还过的书数学00-2班 翟靖轩 编写2004-5-20Public Class borrecInherits System.Web.UI.PageDim CnNO As Int32#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End SubProtected WithEvents dbgborrowlist As System.Web.UI.WebControls.DataGrid注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionProperty countNo() As Int32Set(ByVal value As Int32)CnNO = valueEnd SetGetReturn CnNOEnd GetEnd PropertyPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码If Session(UID) Is Nothing ThenPage.Response.Redirect(login.aspx)ElseIf Not IsPostBack Thenmydatabind(Session(UID)End IfEnd IfEnd SubFunction mydatabind(ByVal strAu_id As String)Dim cnlib2004 As SqlConnectionDim cmdAuBorrowList As SqlCommandnts Dim dr As SqlDataReadercnlib2004 = New SqlConnection(ConfigurationSettings.AppSettings(cncstr)cmdAuBorrowList = New SqlCommandWith cmdAuBorrowList.CommandType = CommandType.StoredProcedure.CommandText = SelectAuAllBorrowList.Connection = cnlib2004End WithDim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar, 50) 1cmdAuBorrowList.Parameters.Add(mAu_id)mAu_id.Value = strAu_idTrycnlib2004.Open()dr = cmdAuBorrowList.ExecuteReaderMe.dbgborrowlist.DataSource = drMe.dbgborrowlist.DataBind() Me.countNo = Me.dbgborrowlist.Items.CountMe.DataBind()Catch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message)Finallycnlib2004.Close()End TryEnd FunctionEnd ClassImports System.Data.SqlClientPublic Class CCheckLogPrivate Uid As StringPrivate pwd As StringPublic Sub New(ByVal U_id As String, ByVal P_wd As String)Me.Uid = U_idMe.pwd = P_wdEnd SubPublic Function IsLogSuc() As BooleanIf Uid Is Nothing ThenReturn FalseElseDim cn As New SqlConnection(ConfigurationSettings.AppSettings(cncstr)Dim cmd As New SqlCommandDim Islog As Int16 = 0With cmd.CommandType = CommandType.StoredProcedure.CommandText = SelectAuPwd.Connection = cnEnd Withnts Dim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar)Dim mAu_password As New SqlParameter(Au_password, SqlDbType.NVarChar)With cmd.Parameters.Add(mAu_id).Add(mAu_password)End WithmAu_id.Value = UidmAu_password.Value = pwdTrycn.Open()Islog = cmd.ExecuteScalarIf Islog = 1 ThenReturn TrueElseReturn FalseEnd IfCatch ex As ExceptionReturn FalseThrow exFinallycn.Close()If Not cn Is Nothing Thencn.Dispose()End IfEnd TryEnd IfEnd FunctionEnd ClassImports System.Data.SqlClientPublic Class curborrInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End SubProtected WithEvents dbgborrowlist As System.Web.UI.WebControls.DataGrid注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End Regionnts Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码If Session(UID) Is Nothing ThenPage.Response.Redirect(login.aspx)ElseIf Not IsPostBack Thenmydatabind(Session(UID)End IfEnd IfEnd SubFunction mydatabind(ByVal strAu_id As String)Dim cnlib2004 As SqlConnectionDim cmdAuBorrowList As SqlCommandDim dr As SqlDataReadercnlib2004 = New SqlConnection(ConfigurationSettings.AppSettings(cncstr)cmdAuBorrowList = New SqlCommandWith cmdAuBorrowList.CommandType = CommandType.StoredProcedure.CommandText = SelectAuBorrowListWeb.CommandText = SelectAuBorrowList.Connection = cnlib2004End WithDim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar, 50) 1cmdAuBorrowList.Parameters.Add(mAu_id)mAu_id.Value = strAu_idTrycnlib2004.Open()dr = cmdAuBorrowList.ExecuteReaderMe.dbgborrowlist.DataSource = drMe.dbgborrowlist.DataBind()Catch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message)Finallycnlib2004.Close()End TryEnd FunctionEnd Class本页用来修改读者的email和密码Imports System.Data.SqlClientPublic Class editinfoInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()nts End SubProtected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlFormProtected WithEvents txtPwd1 As System.Web.UI.WebControls.TextBoxProtected WithEvents txtPwdE1 As System.Web.UI.WebControls.TextBoxProtected WithEvents txtPwdE2 As System.Web.UI.WebControls.TextBoxProtected WithEvents btnSubmit As System.Web.UI.WebControls.ButtonProtected WithEvents txtEmail As System.Web.UI.WebControls.TextBoxProtected WithEvents btnEdit As System.Web.UI.WebControls.ButtonProtected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidatorProtected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidatorProtected WithEvents CompareValidator1 As System.Web.UI.WebControls.CompareValidatorProtected WithEvents lblMsg As System.Web.UI.WebControls.LabelProtected WithEvents lblgengg As System.Web.UI.WebControls.Label注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码If Session(UID) Is Nothing ThenPage.Response.Redirect(login.aspx)ElseIf Not IsPostBack ThenEnd IfEnd IfEnd SubPrivate Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click服务端验证不用写If Session(UID) Is Nothing ThenPage.Response.Redirect(login.aspx)End IfDim k As New CCheckLog(Session(UID), Me.txtPwd1.Text)If k.IsLogSuc = False ThenMe.lblMsg.Text = 密码错误!Me.lblMsg.Visible = TrueExit Subnts End IfDim cn As New SqlConnection(ConfigurationSettings.AppSettings(cncstr)Dim cmd As New SqlCommandWith cmd.CommandType = CommandType.StoredProcedure.CommandText = UpdateAuPwd.Connection = cnEnd WithDim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar)Dim mAu_password As New SqlParameter(Au_password, SqlDbType.NVarChar)Dim mAu_Newpassword As New SqlParameter(Au_Newpassword, SqlDbType.NVarChar)With cmd.Parameters.Add(mAu_id).Add(mAu_password).Add(mAu_Newpassword)End WithmAu_id.Value = Session(UID)mAu_password.Value = Me.txtPwd1.Text.TrimmAu_Newpassword.Value = Me.txtPwdE1.Text.TrimTrycn.Open()cmd.ExecuteNonQuery()Me.lblMsg.Text = 更改成功!Me.lblMsg.Visible = TrueCatch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message)Finallycn.Close()If Not cn Is Nothing Thencn.Dispose()End IfEnd TryEnd SubPrivate Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click服务端验证不用写If Session(UID) Is Nothing ThenPage.Response.Redirect(login.aspx)End IfDim cn As New SqlConnection(ConfigurationSettings.AppSettings(cncstr)Dim cmd As New SqlCommandWith cmd.CommandType = CommandType.StoredProcedure.CommandText = UpdateAuEmail.Connection = cnEnd WithDim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar)nts Dim mAu_email As New SqlParameter(Au_email, SqlDbType.NVarChar)With cmd.Parameters.Add(mAu_id).Add(mAu_email)End WithmAu_id.Value = Session(UID)mAu_email.Value = Me.txtEmail.Text.TrimTrycn.Open()cmd.ExecuteNonQuery()Me.lblgengg.Text = 更改成功!Me.lblgengg.Visible = TrueCatch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message)Finallycn.Close()If Not cn Is Nothing Thencn.Dispose()End IfEnd TryEnd SubEnd ClassPublic Class _errorInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End Sub注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码Page.Response.Write(Request(errmsg)End SubEnd ClassImports System.WebntsImports System.Web.SessionStatePublic Class GlobalInherits System.Web.HttpApplication#Region 组件设计器生成的代码 Public Sub New()MyBase.New()该调用是组件设计器所必需的。InitializeComponent()在 InitializeComponent() 调用之后添加任何初始化End Sub组件设计器所必需的Private components As System.ComponentModel.IContainer注意: 以下过程是组件设计器所必需的可以使用组件设计器修改此过程。不要使用代码编辑器修改它。Private Sub InitializeComponent()components = New System.ComponentModel.Container()End Sub#End RegionSub Application_Start(ByVal sender As Object, ByVal e As EventArgs) 在应用程序启动时激发End SubSub Session_Start(ByVal sender As Object, ByVal e As EventArgs) 在会话启动时激发End SubSub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) 在每个请求开始时激发End SubSub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs) 尝试对使用进行身份验证时激发End SubSub Application_Error(ByVal sender As Object, ByVal e As EventArgs) 在发生错误时激发End SubSub Session_End(ByVal sender As Object, ByVal e As EventArgs) 在会话结束时激发End SubSub Application_End(ByVal sender As Object, ByVal e As EventArgs) 在应用程序结束时激发nts End SubEnd ClassImports System.Data.SqlClientPublic Class loginInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End SubProtected WithEvents btnLogin As System.Web.UI.WebControls.ButtonProtected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlFormProtected WithEvents txtAu_pwd As System.Web.UI.WebControls.TextBoxProtected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidatorProtected WithEvents lblIslog As System.Web.UI.WebControls.LabelProtected WithEvents txtAu_id As System.Web.UI.WebControls.TextBox注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码Response.Write(Me.ClientID)If Not Page.IsPostBack ThenMe.lblIslog.Visible = FalseEnd IfEnd SubPrivate Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.ClickDim cLog As New CCheckLog(Me.txtAu_id.Text, Me.txtAu_pwd.Text)If cLog.IsLogSuc = True ThenSession(UID) = Me.txtAu_id.TextPage.Response.Redirect(userinfo.aspx)ElseMe.txtAu_pwd.Text = Me.txtAu_id.Text = Me.lblIslog.Text = 登陆失败!Me.lblIslog.Visible = TrueEnd Ifnts End SubEnd Class本代码用于 当前登陆读者的 借 记录Imports System.Data.SqlClientPublic Class maxinfoInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End SubProtected WithEvents dbgborrowlist As System.Web.UI.WebControls.DataGrid注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码If Session(UID) Is Nothing ThenPage.Response.Redirect(login.aspx)ElseIf Not IsPostBack Thenmydatabind(Session(UID)End IfEnd IfEnd SubFunction mydatabind(ByVal strAu_id As String)Dim cnlib2004 As SqlConnectionDim cmdAuBorrowList As SqlCommandDim dr As SqlDataReadercnlib2004 = New SqlConnection(ConfigurationSettings.AppSettings(cncstr)cmdAuBorrowList = New SqlCommandWith cmdAuBorrowList.CommandType = CommandType.StoredProcedure.CommandText = Select1AuMaxDateBookList.Connection = cnlib2004End Withnts Dim mAu_id As New SqlParameter(Au_id, SqlDbType.NVarChar, 50) 1cmdAuBorrowList.Parameters.Add(mAu_id)mAu_id.Value = strAu_idTrycnlib2004.Open()dr = cmdAuBorrowList.ExecuteReaderMe.dbgborrowlist.DataSource = drMe.dbgborrowlist.DataBind()Catch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message)Finallycnlib2004.Close()End TryEnd FunctionEnd ClassImports System.Data.SqlClientPublic Class quebookInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End SubProtected WithEvents Label1 As System.Web.UI.WebControls.LabelProtected WithEvents Label2 As System.Web.UI.WebControls.LabelProtected WithEvents Label3 As System.Web.UI.WebControls.LabelProtected WithEvents Label4 As System.Web.UI.WebControls.LabelProtected WithEvents Label5 As System.Web.UI.WebControls.LabelProtected WithEvents Label6 As System.Web.UI.WebControls.LabelProtected WithEvents Label7 As System.Web.UI.WebControls.LabelProtected WithEvents Label8 As System.Web.UI.WebControls.LabelProtected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlFormProtected WithEvents Label9 As System.Web.UI.WebControls.LabelProtected WithEvents radAllBook As System.Web.UI.WebControls.RadioButtonProtected WithEvents radInlibBook As System.Web.UI.WebControls.RadioButtonProtected WithEvents txtBook_code As System.Web.UI.WebControls.TextBoxProtected WithEvents txtBook_name As System.Web.UI.WebControls.TextBoxProtected WithEvents txtBook_pub As System.Web.UI.WebControls.TextBoxProtected WithEvents txtBook_isbn As System.Web.UI.WebControls.TextBoxProtected WithEvents txtBook_author As System.Web.UI.WebControls.TextBoxProtected WithEvents dtpBook_pubdate As System.Web.UI.WebControls.TextBoxProtected WithEvents dbg As System.Web.UI.WebControls.DataGridProtected WithEvents btnQuery As System.Web.UI.WebControls.ButtonProtected WithEvents cboBook_sort As System.Web.UI.WebControls.DropDownListProtected WithEvents LabelInfo As System.Web.UI.WebControls.LabelProtected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator注意: 以下占位符声明是 Web 窗体设计器所必需的。nts 不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码If Not IsPostBack ThenBindComboBox1()End IfMe.DataBind()End SubFunction BindComboBox1()Dim cnLib2004 As SqlConnectionDim cmdbooksort As SqlCommandDim drBooksort As SqlDataReadercnLib2004 = New SqlConnection(ConfigurationSettings.AppSettings(cncstr)cmdbooksort = New SqlCommandWith cmdbooksort.CommandType = CommandType.StoredProcedure.Connection = cnLib2004.CommandText = selectBookSortEnd WithTrycnLib2004.Open()drBooksort = cmdbooksort.ExecuteReaderMe.cboBook_sort.DataSource = drBooksortMe.cboBook_sort.DataTextField = Book_sortMe.cboBook_sort.DataBind()Me.cboBook_sort.Items.Add( )Me.cboBook_sort.SelectedIndex = Me.cboBook_sort.Items.Count - 1Catch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message.Replace(Chr(13), )FinallycnLib2004.Close()End TryEnd FunctionFunction search()Dim cn As New SqlClient.SqlConnection(ConfigurationSettings.AppSettings(cncstr)Dim cmd As New SqlCommandnts Dim dr As SqlDataReaderWith cmdIf Me.radAllBook.Checked = True Then.CommandText = searchBookElse.CommandText = searchBookInlibEnd If.CommandType = CommandType.StoredProcedure.Connection = cnEnd WithDim mBook_code As New SqlParameter(Book_code, SqlDbType.NVarChar, 50) 1Dim mBook_name As New SqlParameter(Book_name, SqlDbType.NVarChar, 50) 2Dim mBook_pub As New SqlParameter(Book_pub, SqlDbType.NVarChar, 50) 3Dim mBook_isbn As New SqlParameter(Book_isbn, SqlDbType.NVarChar, 50) 4Dim mBook_pubdate As New SqlParameter(Book_pubdate, SqlDbType.SmallDateTime, 4) 5Dim mBook_author As New SqlParameter(Book_author, SqlDbType.NVarChar, 50) 6 Dim mBook_sort As New SqlParameter(Book_sort, SqlDbType.NVarChar, 50) 11With cmd.Parameters.Add(mBook_code).Add(mBook_name).Add(mBook_pub).Add(mBook_isbn).Add(mBook_pubdate).Add(mBook_author).Add(mBook_sort)End With mBook_code.Value = Me.txtBook_code.Text.Trim 1mBook_name.Value = Me.txtBook_name.Text.Trim 2mBook_pub.Value = Me.txtBook_pub.Text.Trim 3mBook_isbn.Value = Me.txtBook_isbn.Text.Trim 4If Me.dtpBook_pubdate.Text.Trim Me.cboBook_sort.Items.Count - 1 ThenmBook_sort.Value = Me.cboBook_sort.SelectedValue 11ElsemBook_sort.Value = End IfResponse.Write(mBook_sort.Value)nts Trycn.Open()dr = cmd.ExecuteReaderMe.dbg.DataSource = drMe.dbg.DataBind()Me.LabelInfo.Text = + Me.dbg.Items.Count.ToString + 记录 Me.Label8.Text = + ds.Tables(0).Rows.Count.ToString + 记录Catch ex As ExceptionResponse.Redirect(error.aspx?errmsg= + ex.Message.Replace(Chr(13), )Finallycn.Close()If Not cn Is Nothing Thencn.Dispose()End IfEnd TryEnd FunctionPrivate Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.ClickMe.search()End SubEnd ClassPublic Class sessionfInherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。Private Sub InitializeComponent()End Sub注意: 以下占位符声明是 Web 窗体设计器所必需的。不要删除或移动它。Private designerPlaceholderDeclaration As System.ObjectPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.InitCODEGEN: 此方法调用是 Web 窗体设计器所必需的不要使用代码编辑器修改它。InitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load在此处放置初始化页的用户代码Session.Abandon()Page.Response.Redirect(log