![VASP入门到精通：[4]一个简单的VASP运行实例](https://exp-picture.cdn.bcebos.com/9a8fd9f88a775ddda10411f9a427e7ef2906f99f.jpg)
VASP入门到精通：[4]一个简单的VASP运行实例,这一节给大家一个简单的实例，这里就选择优化CrI3......
2023-03-16 462 asp
ASP网上书店管理系统论文加源码
来源：互联网
2023-03-16 19:07:40 版权归原作者所有，如有侵权，请联系我们
在21世纪，数字化、网络化的信息革命从根本上推动了图书馆的发展进程，计算机日益成为图书馆的主要设备，图书馆采用了各种自动化集成系统建立自己的内部网络环境，呈现出网络化、信息化、智能化和社会化的特征。991年已经基本完成了大部分馆藏书籍和期刊回溯数据的建库工作，后来采用深圳大学图书馆的自动化管理系统，实现了采购、编目、流通的自动化管理，读者可以通过计算机迅速查到所需的书刊资料的存放和借阅情况，同时工作人员也大大的提高了工作效率，采编书刊可以一次输入多次输出，编目的格式整齐规范。2001年中山大学与中山医科大学合并后，南、北、珠海三个校区图书馆数据合并，统一使用深圳图书馆的ILASⅡ系统进行管理，成为CALIS 华南中心书目数据的重要组成部分，实现了国内外书目数据资源共享。本校读者可以在网上查寻三个校区的图书馆资源，三地图书馆通借通还。图书馆自动化管理一方面由于开展网上预约、催还书、推荐新书等业务，解决了紧俏文献的供需矛盾和逾期罚款的问题，使流通工作更具人性化，另一方面建立起图书馆工作的信息网络，可以合理配置文献资源﹑网上协作采访﹑集中编目以及馆际互借，管理所需的工作统计也变得非常方便快捷。与传统的手工操作相比，信息技术的使用促进完善了图书馆的管理工作。
工具/原料
- Win2000server IIS ASP
- 电脑 DW
方法/步骤
网上购书的流程
1.2详细介绍：
1、按分类查看 点击首页左边或详细分类页面的类别名，可以查看该类别的所有图书。
如图：
2、按书名查询
在查询栏“书名”后框内输入您要查找的书名，然后点击“查找”或直接按回车（ENTER）键，稍后，查询结果将显示出来。 提示：默认的书名查询方式是模糊查询，就是说，您只要输入书名的一部分，所有书名中包含您输入文字的图书都会列出来。您输入的条件越准确，查询结果也就越准确。
如图：
3、按图集号、ISBN号、作者查询
图集号只适用于图集的查找。按图集号、ISBN号作者等的查询与按书名查询方法相同。
如图：
4.按出版社查找图书
在“出版社”后的框内选择出版社名称，然后点击“查找”或直接按回车（ENTER）键，稍后，查询结果将显示出来。
5、组合查询
以上几种查询方法可以组合在一起进行查询，可以更精确的查找图书。例如：在“书名”后的框内输入“钢结构”，在出版社后的框内选择“中国建筑工业出版社”，按查找，就可以查找中国建筑工业出版社出版的，并且书名含有“钢结构”的所有书籍。
购物车使用
1、购买
每本书目旁边都有一个“购买”图标，点击“购买”，即将该书放入购物车，“购物车”的内容包括您订购书籍的信息：书名、数量、原价、会员价、书款合计等。 2、修改定购数量
每本书的默认订购数量是“1”册。如果要改变订购数量，请在数量框中填入您希望购买的数量，然后按下表格底端的“修改定购数量”按钮，系统会更新购物车信息。 注意：如果点击“购买”了相同的书，购物车内该书的数量会自动加“1”。 3、删除购物车内的书籍 已经放入购物车的书籍，如果不再购买，可以按书目信息右边的“删除”按钮，该书即被删除，系统会更新购物车信息。如果希望购买的书籍本网站暂时无货，请您将所需的图书的基本信息提供给我们，我们将会联系出版社查找，并将结果尽快通知您。图书的信息包括准确的书名、出版社、ISBN书号等。 注意：提交缺书登记前，请登录，这样系统可以自动填写您的联系信息。
5、会员登录：
在本系统中，所有注册会员购物订单，系统中都有记录且购物金额有一定的继承性，为了对会员信息保密及系统安全考虑，系统设置必须通过用户登录才能查询订单或查看所属购物优惠级别等等。
注册会员后，可通过会员登录查看所属组别、所有员组及相应的购物优惠比例。
会员登录可以通过两种方法：
1． 在首页中的“会员登录”图框中直接输入会员号及密码即可。
2． 通过系统导航栏中的会员登录项，转入“会员登录”页面来登录。
如图：
6、会员资料修改
会员的注册资料难免会有所变化需要修改，会员可以修改除了"会员代号"以外的所有资料。
要修改会员资料，您只需点击页底的"修改注册信息"设置，通过会员登录后，就可以在“会员信息修改”页面进行修改。 所有修改经保存后才不效
如图：
7、进入购物区：
系统首页为总的购物区，你可以在此浏览、挑选或有目的的查询某类商品，本系统设置以下四种方式浏览商品。
1． 推荐商品：
即由商店推荐给顾客的较好商品。它以很简洁的信息显示，或附上图片。推荐商品可以直接放进购物车。可通过详细信息按钮查看它的详细说明。详细说明包括：商品基本信息、产品功能说明及内容提要。
2． 最新商品：
即商店最近推出的新商品。系统以列表形式简要显示最新商品的价格信息，可以通过商品名称的链接仔细查看商品详细内容。详细说明包括：商品基本信息、产品功能说明及内容提要。
8、付款结帐
系统根据购买者在本网上商店身份的不同，有不同的结帐手续。
1． 如果你是会员。在去收银台时可以在“会员区”直接填写用户名及密码，系统会让购买者再次进行用户信息确认，如果无误可以直接确认，到时送货人就根据上面的地址送货；也可修改会员信息或确认不同的送货地点及联系方式。
2． 如果你不是会员。可以在“用户信息区”中按提示详细填写你的信息如送货地点、时间等；确定购买。
9、确认定单
由于在网上商店属于远程购物，不象一般日常现实购物可以当时结算、直接拿走商品。所以购物者在选购完商品后必须确认一种支付方式并选择一种送货方式，以便于商店查收款帐、按时发货。选择一种由系统给出的支付方式及送货方式，执行“决定购买”操作，即向商店确定了此定单。
如果选择在线支付，系统在您确认定单后会直接转入在线支付系统，让您直接在线支付。
1.3网上图书的制作“
3．2网上图书馆
网上图书馆将学校图书馆图书放到网络上供人借阅，这样不仅方便了校内的学生与教职员工使用图书馆的资源,还为图书馆管理员提供了一种简便地管理图书馆的方法. 3．2．1功能
网上图书馆系统可以进行图书的出借和归还.还可以在系统中按照多种字段对图书进行查找,还可以浏览某个种类的所有图书.该应用程序也为图书馆管理员提供了一些功能,如添加、编辑以及删除图书等，或者在分类层次结构中添加新的种类。 3.2.2系统的层次结构 下图的每个方框代表校园图书馆网站中的一个页面。除了只包含ＨＴＭＬ的Search页面外，其他的均为ＡＳＰ页面。因为每个图书的页面都不同，所以大多数的页面实际上都是多页面 本系统共使用３个数据表： LibBooks表包含与图书有关的所有数据。该表中的字段内容的图书的通用信息。另外，对于已经出借的图书，该表中还包含借阅该图书的用户的ＩＤ号，以及图书的状态。 表视图如下： 字段名 意义 字段类型 字段名 意义 字段类型 bookid 书号(主键) 数字 (no null) status 状态 文本 title 书名 文本 checkedoutto 用户id 数字 author 著者 文本 reservedby 用户学号 数字 Subject 主题 文本 description 描述 文本 Isbn Isbn号 文本 keywords 关键字 文本 LibCategories 表包含Library中的所有类别，在访问者浏览图书列表时将会用到这些类别。每个类别都可以作为另外类别的父类别。有一个特殊的类别，Top-Level,没有出现在类别列表中，但是可以作为其他任何类别的父类别。 字段名 意义 字段类型 Categoryname 类别 文本(noll) parentcategory 父类别 文本(noll) LibEmps表包含可以访问图书馆网站的用户信息。该表包含一些通用的信息字段，比如用于进入图书馆的用户密码等。 字段名 意义 字段类型 字段名 意义 字段类型 empid 用户id (主键no null) 数字 password 用户密码 文本 Empname 用户姓名 文本 manager 管理员代号 数字 emailaddress 用户邮箱 文本 图书馆数据库的数据关系如图9-22所示。其中表LibEmps和表Lib Categories与表LibBooks之间都是一对多的关系。每个雇员都可以借阅多本图书，每个类别都可以包含多本图书。
3.2.3界面设计与重点代码的设计
网上图书馆系统有两种用户，一是管理员。另一种是只允许使用图书馆系统，而没有管理功能的一般用户。访问者进入网站，首先要进行登录，如下图所示。登录页面（index.asp） 访问者输入Ｅ－mail地址和密码来登录，然后单击“登录”按钮。输入的数据提交后与数据库中的用户表进行匹配。 须创建一个记录来保存基于访问者登录的用户信息 set RSFindEmp = conn.Execute("select EmpID, Manager from LibEmps where " _ & "EmailAddress = '" & Request.Form("EmailAddress") & "' and " _ & "Password = '" & Request.Form("Password") & "'") if RSFindEmp.EOF then TheMessage = "密码或email地址不对." else Session("EmpID") = RSFindEmp("EmpID") Session("Manager") = RSFindEmp("Manager") Response.Redirect "../yk.htm" end if 表单域EmailAddress和Password 用于Where了句中来获取一个记录。如果访问者输入了一个无效的用户名，则记录集中将不会返回匹配的记录。我们可以通过查看EOF标记来判断一个记录集是否为空。为空，则访问者将被拒绝进入该系统。不为空，则访问者的EmpID值和Manager值将从记录集中返回。写入Session 变量， 变量将在整个网站的所有网页中都是有效的。这些变量的存在与否及其取值将用于确定是否允许进入一个特定的网页，同时也用于访问者进行书目的归还和借阅操作。
图书馆菜单页面
图书馆菜单页面包含指向其他4个页面的链接：管理页面、搜索页面、图书列表页面和主页面。还有一个可显示用户所借书籍的按纽。如果访问者是图书馆管理员，则菜单界面如图所示。如果访问者不是图书馆管理员，则看到如图所示的界面。非管理员的访问者的界面上没有指向管理员菜单页面的链接。 实现办法：访问者登录时在登录页面上的创建的会话变量Session 用于从数据库中获取访问者的有关信息，表示它是否是管理员。如果值为1，就表明访问者是一个管理员，则用如下代码写入一个指向管理员页面的链接： % If Session("Manager") = 1 then %> A HREF="../html/management_menu.asp">管理员菜单/A> % end if %> 通过按纽B1是否为空来判断要不要显示用户所借图书，利用一个记录集来获取访问者已经借出了的所有图书的列表。 if NOT isempty(Request.Form("B1")) then set RSBooks = conn.Execute ("select BookID, Title from LibBooks where " _ & "CheckedOutTo = " & Session("EmpID")) end if 再用循环语句将所借书以表格形式显示出来。 table border=1 width="90%" > % if NOT isempty(Request.Form("B1")) then Do Until RSBooks.EOF%> TR > TD WIDTH=40% height="20">% Response.Write RSBooks("Title") %>/td>/tr> % RSBooks.MoveNext loop end if %> /table> 循环将遍历Rsbooks记录集中的每个记录，直到该记录集结束： 该网站中的所有ＡＳＰ页面都会在访问者访问之前对其进行登录检查。这样就可以避免访问者通过输入某个页面地址然后在没有登录的情况下直接进入该页面的情况发生。此外，每个管理页面都要确认访问者是管理员。 管理菜单页面有一个HTML表单，根据选择的按钮的不同，可以进行5种不同的操作：图书的归还、图书的编辑、图书的删除、图书的添加和类别的添加。不管选择了哪一个按钮，该表单都提交人其自身进行处理。 要进行图书的归还、图书的编辑、图书的删除三种操作，须先进行搜索，找到该书后，由图书Book.asp返回一个链接： % If Session("Manager") = 1 then %> A HREF="../html/management_menu.asp?title=% response.write RSBooks("Title") %>&BOOKID=% response.write RSBooks("BOOKID") %>">管理员菜单/A> % end if %> 而管理者页面通过下列语句 %=request.querystring("title")%> inputzztype=hidden name="BOOKID1"value="%=request.querystring("BOOKID")%>> 这样就将所找到的书的书号BookID、书名Title传递管理者页面。再进行所须操作。共有3个不同的铵纽，可以进行3种操作。若单击“修改”钮： 则重定向到编辑图书页面，同时把Bookid 传递给该页面。 Response.Redirect "./edit_book.asp?BOOKID="&request("BOOKID1") 将其他的情况需要建立到数据库的连接： set conn = server.createobject ("adodb.connection") Conn.Open("FILEDSN=c:Program FilesCommon FilesODBCData Sourcesms access database.dsn") if NOT isempty(Request.Form("Delete")) and request("BOOKID1")>"" then conn.Execute "delete from LibBooks where BOOKID ="&request("BOOKID1") end if if (NOT isempty(Request.Form("checkin"))) and request("BOOKID1")>"" then conn.Execute "update LibBooks set checkedoutto= 0, status= 'Available' where BookID="&Request("BOOKID1") end if 页面中的添加新的种类部分包含一个文本控件和一个选择控件。其中选择控件是用所有已经存在的类别列表进行填充的，包括特殊类别 Top level ，该类别表明当前类别是处于类别层次结构中的最顶层。代码如下： 先用一个记录集来填充父类别选择控件： set RSCategories = conn.Execute("select CategoryName from LibCategories order by CategoryName")
再用下列循环语句： % Do Until RSCategories.EOF %> OPTION VALUE="% response.write RSCategories("CategoryName") %>">% response.write RSCategories("CategoryName") %>/OPTION> % RSCategories.MoveNext Loop %> 遍历RSCategories记录集中的每个记录，并作为一个选项添加到列表中，而记录集中CategoryName 同时作为显示值和传递值： 本页面还包含一个指向添加图书页面的链接。 搜索结果页面 搜索页面的代码获取与访问者查找规则相匹配的图书，然后将这些图书显示给访问者。 搜索页面上的表单包含一个选择控件和一个文本控件。选择控件中的选项是用可搜索 的字段填充的： 需要用一个记录集来保存与访问者的查找规则相匹配的记录： set RSBooks = conn.Execute("select BookID, Author, Title, Subject from LibBooks where " _ & Request.Form("SearchField") & " Like '%" & Request.Form("SearchCriteria") & "%'") 注意：，符号%表示的是一个广义搜索。这一点类似于ACCESS中的符号*。 然后将所找到的书以表格形式显示出来。代码如下： % Do Until RSBooks.EOF %> TR VALIGN="top"> TD WIDTH=40% height="20">B>书名:/B> A HREF="../html/book.asp?BookID=% Response.Write RSBooks("BookID") %>">% Response.Write RSBooks("Title") %>/A>/TD> td width=20% height="20">B>著者:/B> % Response.Write RSBooks("Author") %>/td> td width=30% height="20">B>主题:/B> % Response.Write RSBooks("Subject") %> /td> % RSBooks.MoveNext Loop %> 图书页面 图书页面的代码显示图书的有关信息，以及管理图书的出借操作。 该页面通过Querystring 传递BookID if isempty(Request.QueryString("BookID")) then Response.Redirect "./search.html" end if 如果其中不存在，则访问者将被重定向到搜索页面： 如果同时传递表单中包含的变量Action不为空，则表明访问者正借阅该图书： if Not isempty(Request.QueryString("Action")) then 在这种情况下，需要将图书状态改为 Checkout, 同时需要将Checkedoutto 字段修改为该访问者： conn.Execute "update LibBooks set Status = 'Checked Out', " _ & "CheckedOutTo = " & Session("EmpID") & " where BookID = " _ & Request.QueryString("BookID") Response.Redirect "./library_menu.asp" end if 然后将该访问者重定到图书馆菜单页面： 下一步，利用图书的状态来确定不同的链接 未借出时链接如下： if RSBooks("status") = "Available" then LinkText = "A HREF=""../html/book.asp?Action=CheckOut&BookID=" _ & Request.QueryString("BookID") & """>借这本书/A>" 如果图书已经借出，就创建一个不同的消息，并将链接设置为指向Library menu 页面： LinkText = "A HREF=""../html/library_menu.asp"">图书已出借，返回主菜单。/A>" 最后根据是否是管理员，显示管理员菜单链接。 % If Session("Manager") = 1 then %>A HREF="../html/management_menu.asp?title=% response.write RSBooks("Title") %>&BOOKID=% response.write RSBooks("BOOKID") %>">管理员菜单/A>% end if %>
注意事项
- SQL语句链接数据库查询
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
标签： asp
相关文章
- 详细阅读
-
怎样在iis中发布asp.net网站详细阅读
怎样在iis中发布asp.net网站,以widowerver2003、v2008和qlerver2005为例。将开发完成的a.et网站发布，将发布包放在widowerver2003服务器的文件夹下。将......
2023-03-16 208 asp
- 详细阅读
