1、网上购书江 西 科 技 师 范 大 学实 验 报 告课 程系 别 班 级 学 号 姓 名 报告规格一、实验目的二、实验原理三、实验仪器四、实验方法及步骤五、实验记录及数据处理六、误差分析及问题讨论1. 2.3.4.5.6.7.8.9.10.11.12.13.14.15.目录每次实验课必须带上此本子，以便教师检查预习情况和记录实验原始数据。实验时必须遵守实验规则。用正确的理论指导实践员必须人人亲自动手实验，但反对盲目乱动，更不能无故损坏仪器设备。这是一份重要的不可多得的自我学习资料员它将记录着你在大学生涯中的学习和学习成果。请你保留下来，若干年后再翻阅仍将感到十分新鲜，记忆犹新。它将推动你在人生
2、奋斗的道路上永往直前！引言一实训要求2.1 设计要求： 32.2 应用程序界面设计 32.21 登录和密码验证系统 32.22 商品信息维护系统 42.23 集成的购物车系统 4二 需求分析与可行性分析 43.1需求分析 43.12网上购书的优势 41.2 可行性分析 4三 整体图示 44.1 网站拓补结构图 44.2整体操作流程图 54.3功能模块描述 64.31销售模块 64.32会员操作模块 64.33 后台操作模块 6四 实训步骤 75.1数据库设计 75.2 用户登录 85.3 添加书籍 105.4 查看商品 105.5 购买商品 11五 实训心得 13一 实训要求实训题目：设计一个
3、网上书店系统，功能模块包括：登录和密码验证系统，商品信息维护系统和集成的购物车系统。2.1 设计要求：数据库设计：account表包括username、password、authlevel和name4个字段；shopingcart表包括username、productID和quantity;catalog表包括productID、name、description、image、listprice、numinstock和category；orde表包括orderID、username、productID、listprice、quantity和orderdate。2.2 应用程序界面设计2.21 登
4、录和密码验证系统1 系统功能与组成2 数据库设计3 实现用户登录功能4 实现新用户注册功能5 实现密码修改功能2.22 商品信息维护系统1 实现商品信息输入功能2 实现商品信息修改功能3 实现商品信息查询功能2.23 集成的购物车系统1 实现商品搜索功能2 实现专门的放入购物车功能3 完善购物车系统4 实现下订单功能二 需求分析与可行性分析3.1需求分析3.12网上购书的优势(1)网上书店挤压盗版空间(2)网上书店浓缩了图书的库存空间(3)数量、种类多,出版时间跨度大(4)不受时间、地域限制(5)信息丰富(6)多途径综合检索(7)价格低廉(8)个性服务1.2 可行性分析 随着计算机技术的发展和
5、网络人口的增加，网络世界也越来越广博，越来越丰富，电子商务已经成为网上的一股潮流。相信要不了太长有时间，顾客就可以在网络世界上获得他们在现实世界上可以获得的所有商品和服务。可行性研究是为了弄清楚系统开发的项目是不是可以实现和值得进行研究的过程，实际上是一次大大简化系统分析和系统设计的过程，所以，进行可执行性的分析是非常必要的，也是很重要的，经过最初的设计目标和进行的市场调查得出以下四点的可行性分析(1)经济：实现这个平台设计有没有什么经济效益。该平台设计只是作为本人的课程设计，=设计能力有限，其功能还不能完善，所以没有什么经济效益可谈。(2)技术：现有的技术能否开发该平台，会有哪些困难。(3)
6、运行：该平台规定的运行方式是否可行。(4)法律：该平台的开发会不会在社会上引起侵权或其它责任问题。因为该平台是作为课程设计与商业无关，又因为是自主开发设计，因此不会构成侵权，在法律上是可行的。三 整体图示4.1 网站拓补结构图4.2整体操作流程图4.3功能模块描述4.31销售模块 4.32会员操作模块4.33 后台操作模块四 实训步骤5.1数据库设计本系统选择的是SQL数据库，采用导出sql脚本的方式，便于检查和移植，修改方便。设计表如下图： 数据库连接代码如下：5.2 用户登录成功登录代码如下：MM_loginSQL = SELECT username, password If MM_fld
7、UserAuthorization Then MM_loginSQL = MM_loginSQL & , & MM_fldUserAuthorization MM_loginSQL = MM_loginSQL & FROM accout WHERE username = ? AND password = ? Set MM_rsUser_cmd = Server.CreateObject (ADODB.Command) MM_rsUser_cmd.ActiveConnection = MM_PurchaseSys_STRING MM_rsUser_cmd.CommandText = MM_log
8、inSQL MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter(param1, 200, 1, 50, MM_valUsername) adVarChar MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter(param2, 200, 1, 50, Request.Form(password) adVarChar MM_rsUser_cmd.Prepared = true Set MM_rsUser = MM_rsUser_cmd.Execute用户注册
9、界面如下：注册成功的代码如下：% * Redirect if username existsMM_flag = MM_insertIf (CStr(Request(MM_flag) ) Then Dim MM_rsKey Dim MM_rsKey_cmd MM_dupKeyRedirect = registerexist.asp MM_dupKeyUsernameValue = CStr(Request.Form(username) Set MM_rsKey_cmd = Server.CreateObject (ADODB.Command) MM_rsKey_cmd.ActiveConnect
10、ion = MM_PurchaseSys_STRING MM_rsKey_cmd.CommandText = SELECT username FROM accout WHERE username = ? MM_rsKey_cmd.Prepared = true MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter(param1, 200, 1, 50, MM_dupKeyUsernameValue) adVarChar Set MM_rsKey = MM_rsKey_cmd.Execute If Not MM_rsKey.EOF
11、 Or Not MM_rsKey.BOF Then the username was found - can not add the requested username MM_qsChar = ? If (InStr(1, MM_dupKeyRedirect, ?) = 1) Then MM_qsChar = & MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & requsername= & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKe
12、y.CloseEnd If%5.3 添加书籍添加书籍代码： 1) Then MM_moveParam = offset If (MM_keepMove ) Then MM_paramList = Split(MM_keepMove, &) MM_keepMove = For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),=) - 1) If (StrComp(MM_nextParam,MM_m
13、oveParam,1) 0) Then MM_keepMove = MM_keepMove & & & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove ) Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If界面如下：5.5 购买商品选择商品并成功放入购物车的代码：% * Redirect if username existsMM_flag = MM_insertIf (CStr(Request(MM_flag) ) Then Dim MM_rsKey
14、 Dim MM_rsKey_cmd MM_dupKeyRedirect = alreadybuy.asp MM_dupKeyUsernameValue = CStr(Request.Form(select) Set MM_rsKey_cmd = Server.CreateObject (ADODB.Command) MM_rsKey_cmd.ActiveConnection = MM_PurchaseSys_STRING MM_rsKey_cmd.CommandText = SELECT productID FROM shopingcart WHERE productID = ? MM_rsK
15、ey_cmd.Prepared = true MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter(param1, 200, 1, 50, MM_dupKeyUsernameValue) adVarChar Set MM_rsKey = MM_rsKey_cmd.Execute If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then the username was found - can not add the requested username MM_qsChar = ? If (InSt
16、r(1, MM_dupKeyRedirect, ?) = 1) Then MM_qsChar = & MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & requsername= & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.CloseEnd If%If (CStr(Request(MM_insert) = form1) Then If (Not MM_abortEdit) Then execute the insert Dim MM
17、_editCmd Set MM_editCmd = Server.CreateObject (ADODB.Command) MM_editCmd.ActiveConnection = MM_PurchaseSys_STRING MM_editCmd.CommandText = INSERT INTO shopingcart (productID, quantity) VALUES (?, ?) MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param1, 202, 1, 50
18、, Request.Form(select) adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter(param2, 202, 1, 50, Request.Form(textfield) adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = showcart.asp I
19、f (Request.QueryString ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & ? & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & & & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End IfEnd If%界面如下图：五
20、 实训心得本次实训主要任务是设计登录和密码验证系统，商品信息维护系统和集成的购物车系统三个模块，构成一个小型网站。网站系统实现了前台功能和后台的管理功能，后台系统实现主要功能有：图书的管理、前台首页的管理、添加管理员、定单管理、公告管理、管理员登录；前台实现主要功能有：填写定单、图书的查看、用户的登录、添加用户、修改密码。后台主要是对前台所显示的内容进行添加、删除、修改等操作。对于网上书店还应该实现图书的收藏、购物车、个人信息的管理等功能。由于时间和能力有限制作的系统还很粗糙，有许多需要改进的地方。要想在短暂的实训时间内，尽可能能多的学一些东西，这就需要我们跟老师有很好的沟通，多多询问。这次实
21、训让我感觉最难的是编写代码，虽然有指导文档，而且也挺具体的，但是最后却得不到自己想要的结果，经过多次的尝试和努力才勉强有些小的进展。“纸上得来终觉浅，绝知此事要躬行！”在短暂的实习过程中，让我深深的感觉到自己在实际运用中的专业知识的匮乏。让我们真正领悟到“学无止境”的含义。在进行实训的过程中，我真正学到了计算机教科书上所没有或者真正用到了课本上的知识，这样，既巩固了旧知识，又掌握了新知识。此外，在此次实训的过程中，给我感受最深的就是我们设计一个小型网站，包括项目的需求分析，网络拓扑图的制作以及网络搭建方案的撰写，还要上网搜查相关配件。在这些过程中，我不仅知道了相关网站连接的技术，而且让我深深的
22、体会到一个设计方案的重要性，他不仅要考虑到技术问题，还要考虑实用问题。 这次实训让我学到的东西太多，使我受益非浅。虽然辛苦了点，但能让我学到不同的东西，我心里还是高兴的。人非生而知之，要学得知识，一靠学习，二靠实践。没有实践，学习就是无源之水，无本之木。总之，这次实训中我们解决了许多书本中没有遇到的问题，也真正了解了网络中的实际操作，学到了许多网页技能。短暂的实训课就结束了，从中我学到了许多东西，从书本上的知识运用到实际动手操作上来，收获颇多在进行实训的过程中，我真正学到了计算 机教科书上所没有或者真正用到了课本上的知识，这样，既巩固了旧知识，又掌握了新知识。，不仅提高了自己的动手能力，更体会到了团体合作的精神。更加深入的了解了计算机网络技术的实际应用。为我们将来的实践打下了良好的基础。以上就是我在实训的心得和感受。
