首頁 > 開發者 > ASP

ASP入門教程-網上圖書管理系統執行個體

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

本管理程式的主要功能有：

1、圖書列表展示功能；2、圖書放置購物車、移去購物車和清空購物車功能；3、購書結帳功能；4、新會員註冊功能。

Iindex.asp 首頁。架構結構。上架構串連Top.htm頁面，下架構串連Booklist頁面。

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網上圖書管理系統--圖書列表</title>
</head>
<frameset rows="80,*" cols="*" frameborder="NO" border="0" framespacing="0">
<frame src="top.htm" name="topFrame" scrolling="NO" noresize >
<frame src="booklist.asp" name="mainFrame">
</frameset>
<noframes>
<body>
</body>
</noframes>
</html>

Conn.asp 資料庫連接檔案。在所有與資料庫連接的頁面中只要包括該檔案，即可以串連和開啟資料庫。

'建立連線物件
<% set Conn=server.CreateObject("ADODB.Connection")
'連接字串
strSQL="Driver={Microsoft Access Driver (*.mdb)};DBQ=" &_
server.MapPath("bookshop.mdb")
conn.open(strSQL)
%>

Top.htm 圖書列表 Top 頁。僅僅是一個圖片標題頁。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網上圖書管理系統</title>
<link href="style.css" rel="stylesheet">
</head>
<body topmargin="0">
<table width="770" height="124" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td background="images/bg_booklist.gif">&nbsp;</td>
</tr>
</table>
</body>
</html>

Booklist 以表格的形式分頁顯示出所有的圖書。

本頁面以表格的形式分頁顯示出所有記錄。實現過程如下：

1、使用一個包含檔案，建立一個資料庫連接對象；

2、建立一個記錄集對象；

3、建立一個表格，第一行用來顯示欄位名；

4、判斷記錄指標是不是到了記錄的頭部或尾部之外，若是顯示提示資訊，若不是，則開始進行提取當前頁的每一條記錄和進行分頁；

5、通過Do While 迴圈語句，將當前頁的每一條記錄讀取出來；

6、通過For 迴圈將除當前頁碼之外的每一個頁碼做一個超串連；

7、關閉記錄集對象並釋放其所佔用的所有資源；

8、關閉連線物件並釋放其所佔用的所有資源。

<%@LANGUAGE="VBSCRIPT"%>
<!--使用一個包含檔案，建立一個資料庫連接對象-->
<!--#include file="Connections/conn.asp" -->
<%
'建立一個記錄集對象。
set rs_booklist=Server.CreateObject("ADODB.RecordSet")
sql="SELECT BookID, BookName, bnumber FROM DB_bookinfo ORDER BY bnumber DESC,bookname"
rs_booklist.open sql,conn,1,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>圖書列表</title>
<link href="style.css" rel="stylesheet">
<style type="text/css">
<!--
body,td,th {
font-size: 11pt;
color: #009999;
line-height: 1.5;
}
body {
background-image: url(images/bg1.jpg);
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<!--建立一個表格，第一行用來顯示欄位名。-->
<table width="644" border="1" bordercolor="#cccc99" background="images/bg.jpg">
<tr>
<td height="20"><div align="center"><strong>書號</strong></div></td>
<td height="20"><div align="center"><strong>書名</strong></div></td>
<td height="20"><div align="center"><strong>數量</strong></div></td>
<td height="20">&nbsp;</td>
</tr>
<!--*******分頁開始******************-->
<%
'判斷記錄指標是不是到了記錄的頭部或尾部之外，若是顯示提示資訊，若不是，則開始進行提取當前頁的每一條記錄和進行分頁。
If rs_booklist.Bof AND rs_booklist.Eof Then
Response.Write "沒有資料"
Else
'分頁顯示
Dim page_size '此變數用來存放每一頁的記錄數。
Dim page_nonce '此變數用來存放當前頁的頁碼。
Dim page_total '此變數用來存放總頁數。
page_size=7 '將第一頁記錄數設定為7條。
rs_booklist.PageSize=page_size '將page_size變數中的值賦給rs_booklist記錄集對象的頁面大小（PageSize）屬性。
page_total=rs_booklist.PageCount '將rs_booklist記錄集對象的頁面個數（PageCount）屬性賦給變數page_total。
'下面5句，是判斷網頁是不是剛開啟，若是，則將1賦給變數page_nonce（即當前頁為第一頁）,
'若不是，則將由Request對象的Querystring集合從HTTP查詢字串中擷取來的變數值（當前頁碼）賦給變數page_nonce。
If Request.QueryString("page_nonce")<>"" Then
page_nonce=Cint(Request.QueryString ("page_nonce"))
Else
page_nonce=1
End If
'將當前頁碼賦給記錄集對象的表示目前記錄頁號的屬性（AbsolutePage）。
rs_booklist.AbsolutePage=page_nonce
Dim I
I=page_size
'通過Do While 迴圈語句，將當前頁的每一條記錄讀取出來。
Do While Not rs_booklist.Eof And I>0
I=I-1
Response.Write "<tr align='center'>"
Response.Write "<td height='10'>" & rs_booklist("BookID") & "</td>"
Response.Write "<td height='10'>" & rs_booklist("BookName") & "</td>"
Response.Write "<td height='10'>" & rs_booklist("bnumber") & " </td>"
%>
<td width="25" height='10'><div align="center"><a href="buycar_add.asp?bookID=<%= rs_booklist("bookID") %>" target="txtFrame"><img src="images/add.gif" alt="添加至購物車" width="18" height="18" border="0" align="middle"></a></div></td>
<%
'將記錄指標移動到下一條記錄。
rs_booklist.MoveNext
Loop
Response.Write "</table>"
'開始做分頁串連。
Response.Write "<p align='center'>分頁: "
'通過For 迴圈將除當前頁碼號之外的每一個頁碼號做一個超串連，
For j=1 To page_total
If j=page_nonce Then
Response.Write j & "&nbsp"
Else
Response.Write "<a href='booklist.asp?page_nonce=" & j & "'>" & j & "</a>&nbsp"
End If
Next
End If
rs_booklist.Close
Set rs_booklist=nothing
Conn.Close
Set Conn=nothing
%>
</table>
</dir>
</body>
</html>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More