以下是网学网为您推荐的ASP类作品-ASP电子商务网站的建设，希望本篇文章对您学习有所帮助。
3.2网站的可行性分析 随着计算机技术的发展和网络人口的增加，网络世界也越来越广博，越来越丰富，电子商务已经成为网上的一股潮流。我们相信要不了太长有时间，顾客就可以在网络世界上获得他们在现实世界上可以获得的所有商品和服务。 可行性研究是为了弄清楚系统开发的项目是不是可以实现和值得进行研究的过程，实际上是一次大大简化系统分析和系统设计的过程，所以，进行可执行性的分析是非常必要的，也是很重要的，经过最初的设计目标和进行的市场调查得出以下四点的可行性分析： 1． 经济可行性：即实现这个平台设计有没有什么经济效益？该平台设计只是作为本人的毕业设计，又因为本人的设计能力有限，其功能还不能完善，所以没有什么经济效益可谈。 2．技术可行性：即现有的技术能否开发该平台，会有哪些困难。 3．运行可行性：即该平台规定的运行方式是否可行。 4．法律可行性：即该平台的开发会不会在社会上引起侵权或其它责任问题。因为该平台是作为毕业设计与商业无关，又因为是自主开发设计，因此不会构成侵权，在法律上是可行的。 通过以上的可行性分析，我将采用Microsoft IIS+ASP将结合的技术，运用Access数据库对网站进行建设。 3.3系统功能分析 分为前台与后台，提供一个标准的商家对客户（B2C）模式的网上购物网站，学生可以在一个完整的全真模拟购物网站环境内进行在线购物等实际操作。 前台功能：会员注册，会员信息，客户管理，商品搜索，在线购物，订单查询，浏览商家信息等等。 后台功能：提供企业进销存管理系统，综合查询、商品定义、供应商定义、账务处理、网上订单接收、对销售商品进行统计、分析、对会员购买商品进行统计、分析等功能。 本章小结:介绍了开发的背景,及前后台的功能.以及对可行性的分析。
5.3 主要功能的实现 5.3.1用户模块主页面 用户可以进行注册，登陆，以及管理员登陆 主要代码:( Username.asp) <!-- #include file="conn.asp"--> <% sql="Select * From shop" set rs1=conn.Execute(sql) ''打开shop表 while Not rs1.EOF %> <table border="1"width="100%"> <tr><td width="421" height="100"><img src=<%=rs1("图片")%> width="150" height="100"></td> <td width="271"><%=rs1("物品名称")%></td></tr> </table> <% rs1.MoveNext Wend %> </table> 5.3.2新用户注册 用户进行注册，填入用户名，密码，姓名，通讯地址，邮政编码 用户进行注册处理代码: if Request("test1")="yes"then ''下面的代码在按下“用户注册”按钮时执行，否则不执行 username=Request("username1") password=Request("password1") name1=Request("name") address=Request("address") postcode=Request("postcode") ''得到用户名等信息 DbPath=SERVER.MapPath("shop.mbd") set conn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") rs.CursorType=1 rs.lockType=3 ''让加锁类型为“3”是为了使用AddNew方法，否则不能使用这个方法。 ''Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("shop.mdb") sql="Select * From userinfo where 用户名=''"&request.Form("password1")&"''" ''这个查询语句是检查用户名在数据库中是否已经存在 rs.open sql,conn,1,3 if rs.recordcount>0 then ''如果得到的记录大于0，数据库中有相同的用户名，转到“haveuser.htm"页面 Response.Redirect"Haveuser.htm" end if rs.addnew ''如果输入的用户名在数据库中不存在则让用户注册，在数据库里添加一个新记录 rs("用户名")=username rs("密码")=password rs("姓名")=name1 rs("通讯地址")=address rs("邮政编码")=postcode ''上面的五条语句分别给信息字段赋值 rs.Update ''使用AddNew方法后必须使用Update方法更新数据库否则不生效 rs.close sql="Create Table "&username&"(用户名 Text(50), 所购物品 Text(50),数量 Int)" ''建立一个表，在付款时要用到。由于表名是用户名，所以每个人的表是唯一的。 conn.execute sql conn.close Session("username")=username ''把用户名存在Session变量里，在付款时要用到用户名 Response.Redirect"main.asp" ''注册后进入主页面 end if 5.3.3 用户登陆 用户进行登陆之后可以浏览商品，购买商品 主要代码: <!-- #include file="conn.asp"--> <% ''如果没有登陆则转到登陆界面 username=session("username") if username="" then Response.Redirect("username.asp") DbPath=SERVER.MapPath("shop.mdb") ''上面代码建立一个数据库的连接 sql="Select * From shop" set rs =conn.Execute(sql) ''打开shop表 %> <% while Not rs.EOF IsCheck="" ''把IsCheck变量初始化为空 if instr(Session("ProductList"),rs("物品编号"))>0 then ''判断"物品编号"的值是否在我们选中的物品列表Session("ProductList")里. ''如果在则让IsCheck变量为本"Checked" IsCheck="Checked" End If %><tr> <td> <input name="ProductID" type="checkbox" value="<%=rs("物品编号")%>"> <!--让所有的复选框的名称都为"ProductID",它的值为"物品编号"的值,下面要用Request对象取回ProductID的值,相同的ID号取回的值是以逗号('') 为分隔符的一个字符串,我们要用到它--> <%=ischeck%> <!--这个输出就是让复选框选中或不选中的标志--> </td> <td><%=rs("物品编号")%></td> <td><%=rs("物品名称")%></td> <td><%=rs("物品单价")%>￥</td> <td><!--webbot bot="HTMLMarkup" startspan --><A HREF=<%=rs("说明页面")%>><%=rs("物品说明")%></A> <!--上面的链接标志是让页面转到表"shop"中的"说明页面"字段的值所表示的URL中.--> <!--webbot bot="HTMLMarkup" endspan--></td> </tr> <% rs.MoveNext Wend %> 
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
