图书管理系统asp+web

web课程设计报告课程设计题目：图书管理系统

学生姓名：陈亮

专业：软件工程

班级：071105

指导教师：***

2009年11月09 日

目录1）设计题目及具体要求

2)系统需求分析

3)系统设计和实现

4)测试

5)总结

一．设计题目及具体要求

1.题目：图书管理系统

管理员具有如下功能：图书管理、借还书管理、用户管理。

普通用户具有如下功能：查看自己图书借阅情况、查看自己图书借阅历史记录、查看图书。

2.要求和说明：

1）．自己独立完成，最终提交课程设计报告和实验成果（实验成果提交为课程设计的最后后两天，课程设计报告为课程设计的后一周。过期不查。）

2）．课程设计报告格式要体现软件工程的思想。具体格式为：封面、题目、时间地点、目录、设计题目及具体要求、系统需求分析、系统设计、系统实现、测试、总结及参考资料。

3）．指定时间必须在实验机房上机。

4）．最终成绩包括平时考勤成绩（20％）、程序考核（50%）、课程设计报告（30%）。

5）．实验设计内容必须以老师指定的题目为准，老师指定的题目为最终检查的依据。

6）．问题描述中系统功能为基本功能。如实现功能超出要求功能，可以加分。

7）要求学生能进一步熟悉和掌握交互式网站的原理和作用；掌握交互式WEB系统的设计方法；能运用ASP编写一些简单的交互式系统；能读懂较复杂的交互式系统源代码，并且能做适当修改，使之运用到自己的网站中。使学生在已掌握了计算机基础知识和应用知识的基础上，进一步深化计算机的应用技能，培养学生利用计算机技术，结合自己所学专业，解决一些实际问题的能力

二．系统需求分析

立足于校园实际，着眼于未来发展，建成符合标准化协议、通用性较强、实用的系统，以提高图书信息的现代化管理水平，实现信息资源的共享。图书管理系统是一种基于集中统一规划的数据库数据管理新模式。在对图书、读者的管理，其实是对图书、读者数据的管理。本系统的建成无疑会为管理者对图书管理系统提供极大的帮助。使用该系统之后，图书馆管理人员可以管理读者的登记、图书的购入、借出、归还以及注销等；还可以查询某位读者、某本图书的借阅情况，对当前借阅情况给出一些统计，给出统计表格，以全面掌握图书的流通情况。

本系统的宗旨是提高图书管理工作的效率，减少相关人员的工作量，使学校的图书管理工作真正做到科学、合理的规划，系统、高效的实施。

(2)产品功能

登录系统：注销用户、系统退出。

管理：用户管理、图书管理、读者管理、借阅管理。

查询：图书查询、读者查询、借阅查询。

报表打印：所有图书、借出图书、库存图书、所有读者。

帮助：使用说明、关于。

三．系统的设计与实现

下面是系统的功能表：

连接数据库

Public Sub CheckUser(userID As String, passwd As String)

Dim userDB As Database

Dim userRD As Recordset

Dim dbName As String

Dim STRSQL As String

Screen.MousePointer = 11

On Error GoTo errEnd

dbName = App.Path

If Right(dbName, 1) <> "、" Then dbName = dbName + "、"

dbName = dbName + "DataBase、WFSSDataBase.mdb"

STRSQL = "select [用户身份] from [Admin] where [用户ID]=""" & userID & """ and [用户密码]=""" & passwd & """"

'打开数据库

Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)

'检索用户,验证密码

Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)

If userRD.RecordCount > 0 Then

'设置用户身份

UserShenFen = userRD![用户身份]

'关闭数据库

userRD.Close

Set userRD = Nothing

userDB.Close

Set userDB = Nothing

'进入用户环境

Load FrmMain

FrmMain.Show

Unload FrmLogIn

logOK = True

userName = userID

Screen.MousePointer = vbDefault

Else

'关闭数据库

userRD.Close

Set userRD = Nothing

userDB.Close

Set userDB = Nothing

logOK = False

Screen.MousePointer = vbDefault

MsgBox "用户名或密码错误！请重新输入！", vbOKOnly + vbExclamation, "登陆失败"

End If

Exit Sub

errEnd：

Screen.MousePointer = vbDefault

MsgBox Err.Description, vbOKOnly + vbExclamation, "登陆错误"

logOK = False

Err.Clear

'关闭数据库

userRD.Close

Set userRD = Nothing

userDB.Close

Set userDB = Nothing

Exit Sub

End Sub

用户登录：

<%

Dim UClass,Name, Password,checkcode

Dim objConn, objRS

' 从FORM对象中获取用户输入的信息

UClass = Trim(Request("uclass"))