基于Web的电子商城管理系统悠悠电子商城后台设计与实现 第17页

dingrs.open sql,dingconn

   set dingrs=nothing

   dingconn.close

   set dingconn=nothing

将表单信息保存到数据库后，还需要对用户的消费总额以及消费次数进行更新，关键代码如下：

dim dingconn1,dingrs1

   set dingconn1=server.CreateObject("ADODB.Connection")

   dingconn1.ConnectionString="PROVIDER=SQLOLEDB;

DATA SOURCE=(local);UID=sa;DATABASE=mrshop"

   dingconn1.open 

   set dingrs1=server.CreateObject("ADODB.RecordSet")

   sql="update 用户账户信息表 set 消费总额=消费总额+"&jine&",消费次数=消费次数+1

 where 用户名='"&yonghu&"'"

   dingrs1.open sql,dingconn1

   set dingrs1=nothing

   dingconn1.close

   set dingconn1=nothing

因为数据中的积分及打折比率、会员级别等字段记录的是用户的最新信息，所以，当用记的消费总额更新后，就需要将数据检索出来，并调用首页中的寝化参数，计算出用户的消费积分以及打折比率，同时还要评定用户的会员级别，最后用最新的计算结果更新数据库。其关键代码如下：

dim dconn,drs

   set dconn=server.CreateObject("ADODB.Connection")

   dconn.ConnectionString="PROVIDER=SQLOLEDB;DATA

SOURCE=(local);UID=sa;DATABASE=mrshop"

   dconn.open

   set drs=server.CreateObject("ADODB.RecordSet")

   sql="select * from 用户账户信息表 where 用户名='"&yonghu&"'"

   drs.open sql,dconn

   if not drs.eof then

   zonge=drs("消费总额")

   end if

   lv1=int(session("jiaoyijifen"))

   lv2=10*int(session("jiaoyidazhe"))

   jifen=cdbl(zonge/lv1)

   dazhe=round(1-jifen/lv2,4)

   if dazhe<0.5 then

   dazhe=0.5

       end if

   dengji=int(jifen/session("dengji"))

   session("dazhe")=cstr(dazhe-dengji/100)

   dim dconn1,drs1

   set dconn1=server.CreateObject("ADODB.Connection")

   dconn1.ConnectionString="PROVIDER=SQLOLEDB;DATA

SOURCE=(local);UID=sa;DATABASE=mrshop"

   dconn1.open

   set drs1=server.CreateObject("ADODB.RecordSet")

   sql="update 用户账户信息表 set 消费积分='"&jifen&"',打折比率='"&dazhe&"',会员级别

="&dengji&" where 用户名='"&yonghu&"'"

   drs1.open sql,dconn1

   set drs1=nothing

   dconn1.close

   set dconn1=nothing

对用户户账户进行更新之后，还要对商品信息表中的商品销售量进行更新，最后清除储存在Session对象中的用户购物信息。关键代码如下：

<%

set dconn2=server.CreateObject("ADODB.Connection")

   dconn2.ConnectionString="PROVIDER=SQLOLEDB;DATA

SOURCE=(local);UID=sa;DATABASE=mrshop"

   dconn2.open

   set drs2=server.CreateObject("ADODB.RecordSet")

   for i=0 to ubound(arys_1)-1

      sql="update 商品信息表 set 销售量=销售量+"&cint(ary(i))&" where 名称

='"&arys_1(i)&"'"

         drs2.open sql,dconn2

   next

              session("array")=""

              session("array2")=""

              session("array3")=""

%>       

完成数据库更新之后，就要给予用户提示，并将页面重载到首页，方便用户再次购物。其关键代码如下：

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>