asp网站开发实例：ASP网站开发实例，从零开始构建一个图书管理系统

来源：网络作者：日期：2025-11-09 05:36:12

ASP（Active Server Pages）是一种强大的服务器端脚本技术，由微软开发，广泛应用于早期的网站开发中，尽管现在更现代的框架如ASP.NET Core已经崭露头角，但ASP在某些场景下仍然具有其独特的价值，本文将通过一个具体的实例——图书管理系统，来展示ASP网站开发的全过程。

项目背景

图书管理系统是一个典型的B/S（浏览器/服务器）应用，用于管理图书馆的书籍信息、借阅记录、用户信息等，本系统将使用ASP Classic技术结合Access数据库，实现以下功能：

用户登录与权限管理
图书信息的增删改查
借阅与归还功能
用户借阅历史查询

技术选型

开发语言：ASP Classic（VBScript）
数据库：Microsoft Access（.mdb文件）
开发工具：Visual Studio（或其他支持ASP开发的IDE）
Web服务器：IIS（Internet Information Services）

项目结构

一个典型的ASP网站项目结构如下：

/BookManagementSystem
    /asp_files
        default.asp          // 主页
        login.asp             // 登录页面
        logout.asp            // 退出登录
        books.asp             // 图书管理页面
        add_book.asp          // 添加图书
        edit_book.asp         // 编辑图书
        delete_book.asp       // 删除图书
        borrow.asp            // 借阅图书
        return.asp            // 归还图书
        user_history.asp      // 用户借阅历史
    /images
        logo.jpg
    /database
        library.mdb           // Access数据库文件
    /config
        config.asp            // 配置文件（数据库连接字符串）

开发步骤

创建数据库

我们需要创建一个名为library.mdb的Access数据库，并在其中创建以下表：

asp网站开发实例：ASP网站开发实例，从零开始构建一个图书管理系统

Books表：存储图书信息
- BookID（主键）（书名）
- Author（作者）
- Publisher（出版社）
- ISBN（国际标准书号）
- PublishedDate（出版日期）
- Quantity（库存数量）
Users表：存储用户信息
- UserID（主键）
- Username（用户名）
- Password（密码，建议加密存储）
- Role（角色：管理员/普通用户）
BorrowRecords表：存储借阅记录
- RecordID（主键）
- UserID（外键，关联Users表）
- BookID（外键，关联Books表）
- BorrowDate（借阅日期）
- ReturnDate（归还日期）

创建ASP页面

登录页面（login.asp）

<%@ Language=VBScript %>
<%
Response.Buffer = True
If Session("UserID") <> "" Then
    Response.Redirect("books.asp")
End If
%>
<!DOCTYPE html>
<html>
<head>图书管理系统 - 登录</title>
</head>
<body>
    <form method="post" action="login.asp">
        用户名：<input type="text" name="username"><br>
        密码：<input type="password" name="password"><br>
        <input type="submit" value="登录">
    </form>
</body>
</html>

主页（default.asp）

<%@ Language=VBScript %>
<%
Response.Redirect("login.asp")
%>

登录验证（login.asp）

<%@ Language=VBScript %>
<%
Dim username, password
username = Request.Form("username")
password = Request.Form("password")
' 连接数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/library.mdb") & ";"
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Users WHERE Username='" & username & "' AND Password='" & password & "'", conn
If Not rs.EOF Then
    Session("UserID") = username
    Session("Username") = rs("Username")
    Session("Role") = rs("Role")
    Response.Redirect("books.asp")
Else
    Response.Write "用户名或密码错误！"
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>

图书管理页面（books.asp）

<%@ Language=VBScript %>
<%
' 连接数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/library.mdb")
Dim rsBooks
Set rsBooks = Server.CreateObject("ADODB.Recordset")
rsBooks.Open "SELECT * FROM Books", conn
%>
<!DOCTYPE html>
<html>
<head>图书管理系统</title>
</head>
<body>
    <h1>图书管理系统</h1>
    <a href="logout.asp">退出</a>
    <h2>图书列表</h2>
    <table border="1">
        <tr>
            <th>书名</th>
            <th>作者</th>
            <th>出版社</th>
            <th>库存</th>
            <th>操作</th>
        </tr>
        <% Do While Not rsBooks.EOF %>
        <tr>
            <td><%= rsBooks("Title") %></td>
            <td><%= rsBooks("Author") %></td>
            <td><%= rsBooks("Publisher") %></td>
            <td><%= rsBooks("Quantity") %></td>
            <td>
                <a href="edit_book.asp?ID=<%= rsBooks("BookID") %>">编辑</a>
                <a href="delete_book.asp?ID=<%= rsBooks("BookID") %>">删除</a>
            </td>
        </tr>
        <% rsBooks.MoveNext %>
        <% Wend %>
    </table>
    <p><a href="add_book.asp">添加新图书</a></p>
</body>
</html>
<%
rsBooks.Close
conn.Close
Set rsBooks = Nothing
Set conn = Nothing
%>

添加图书（add_book.asp）

<%@ Language=VBScript %>
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/library.mdb")
If Request.Method = "POST" Then
    Dim title, author, publisher, isbn, publishedDate, quantity= Request.Form("title")
    author = Request.Form("author")
    publisher = Request.Form("publisher")
    isbn = Request.Form("isbn")
    publishedDate = Request.Form("publishedDate")
    quantity = Request.Form("quantity")
    Dim sql
    sql = "INSERT INTO Books (Title, Author, Publisher, ISBN, PublishedDate, Quantity) VALUES ('" & _
           title & "', '" & author & "', '" & publisher & "', '" & isbn & "', #" & publishedDate & "#, " & quantity & ")"
    conn.Execute(sql)
    Response.Redirect("books.asp")
End If
%>
<!DOCTYPE html>
<html>
<head>添加图书</title>
</head>
<body>
    <h1>添加新图书</h1>
    <a href="books.asp">返回</a>
    <form method="post" action="add_book.asp">
        书名：<input type="text" name="title"><br>
        作者：<input type="text" name="author"><br>
        出版社：<input type="text" name="publisher"><br>
        ISBN：<input type="text" name="isbn"><br>
        出版日期：<input type="date" name="publishedDate"><br>
        库存数量：<input type="number" name="quantity"><br>
        <input type="submit" value="添加">
    </form>
</body>
</html>