|
如果用户要购买物品，首先要判断用户是否登陆，判断语句：if session (" user _name")=""如果没有登陆，将提示用户登陆或注册用户，如果登陆成功的用户，才能执行购买商品等操作。购买商品的设计思路：一是用户在登陆后直接根据商品信息购买商品，二是根据用户查找商品购买，用其实现语句为：sql = "select * from hw wherehw_id="&request("hw_id")，如果找到，就把商品信息给用观看，然后进一步确认购买当用户确认购买的时候，系统有一个判断用户成员类型，比如：判断是否为会员<%ifsession("user_type")="会员" then%>如果是会员然后就执行下面的语句<%=rs("hw_cash")%> <%else%><%=rs("daili")%> ，<%end if%>。在这里主要实现的是把不同类的成员商品价格做一个调整，因为不同的用户，商品价格会不一样，然后用一个创建一个新的数据项目，把商品信息的基本信息和会员信息保存起来，并返回给数据库basket，添加定单。其实现语句为： http://www.paper51.com rs.addnew paper51.com rs("hw_id")=hw_id http://www.paper51.com
rs("user_name")=session("user_name") 内容来自论文无忧网 www.paper51.com rs("basket_count")=count 内容来自www.paper51.com
rs("basket_date")=now() paper51.com rs("hw_name")=request("hw_name") copyright paper51.com
rs("hw_cash")=request("hw_cash") copyright paper51.com rs("basket_count")=int(rs("basket_count"))+int(count) 内容来自论文无忧网 www.paper51.com rs.update paper51.com rs.close 内容来自论文无忧网 www.paper51.com
在浏览器端显示给用户观看到的主要功能语句： copyright paper51.com 显示商品名称的语句：<%=rs("hw_name")%> paper51.com 显示商品的价格的语句：<%=rs("hw_cash")%>元 内容来自www.paper51.com
显示购买货物数量语句：<%=rs("basket_count")%> paper51.com
显示合计价格语句：<%=rs("hw_cash")*rs("basket_count")%>元 paper51.com 计算总的价格语句：totalcash=totalcash+(rs("hw_cash") *rs("basket _count")) copyright paper51.com 4.2后台管理功能的实现 http://www.paper51.com 后台管理的功能实现主要针对管理员设计的，负责管理整个系统。 copyright paper51.com 管理员用户界面图： 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
图4-3 管理员用户界面 http://www.paper51.com 4.2.1商品管理模块 copyright paper51.com （1）商品的添加以及处理功能：首先判断是不是管理员，如果不为管理员，就要谈出管理员登陆界面，其实现语句为<%if Session("admin_name")=""then response.redirect "index.asp"%>，然后将该request的action属性值为save，然后用一系列变量存储管理员输入的商品信息，然后对这些变量执行判断，如： copyright paper51.com if hw_name="" then copyright paper51.com errmsg=errmsg+"<br>"+"<li>名称不能为空" paper51.com
founderr=true 内容来自www.paper51.com 如果输入类型有误，就将里面的变量类型转换为数据库中相对应的类型，如转换货物名：hw_name=replace(hw_name,""," ")，然后对数据库hw执行操作，将货物信息写入数据中，其语句为： paper51.com
sql="select * from hw" paper51.com
setrs=server.createobject("adodb.recordset") paper51.com rs.opensql,conn,3,3 内容来自www.paper51.com rs.addnew copyright paper51.com
（2）商品删除模块： 内容来自www.paper51.com <% 内容来自www.paper51.com ifrequest("action")="del"then 内容来自www.paper51.com sql="select * from hwwhere hw_id="&request("hw_id") http://www.paper51.com setrs=server.createobject("adodb.recordset") paper51.com rs.open sql,conn,3,3 内容来自www.paper51.com
if rs.eof then copyright paper51.com response.redirect "delhw.asp" paper51.com else http://www.paper51.com rs.delete http://www.paper51.com rs.update 内容来自论文无忧网 www.paper51.com end if http://www.paper51.com rs.close http://www.paper51.com response.write "货物删除成功" copyright paper51.com response.write"<br>" http://www.paper51.com response.write "<ahref=delhw.asp>返回</a>" 内容来自论文无忧网 www.paper51.com else copyright paper51.com %> 内容来自www.paper51.com （3）添加大分类模块： 内容来自www.paper51.com
先定义一个事项，访问数据库，如果数据库问空的，就提示管理管增加类别，语句为：if rs.eofand rs.bof then response.write "<option value=>请增加类别"，如果不为空的就把已有的分类信息显示出来，然后提供管理员操作，如果管理员选择“改名”，在处理程序里面将执行case "rename"里面的语句，对数据库进行操作重定义名rs("sort_name") =request.form("reTitle")，并更新数据库然后关闭，如果管理员选择“删除”，将执行case "del"里面的程序，对数据库里面的分类名执行删除，如果管理员选择“新增”，将执行case "new"，对数据库执行rs.AddNew，rs("sort_name") =request.form("newTitle")，并更新关闭数据库。添加大分类界面图如图4-4： copyright paper51.com
paper51.com 图4-4 添加大分类界面图 copyright paper51.com |