orderlist_save.asp

一个非常好的旅游网站程序.

<%@ language="vbscript"%>
<%
if request.cookies("汕头商城")<>"9988" then
  response.redirect "../default.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
djfc="已经发货"
userid=request("userid")

set rs=server.createobject("adodb.recordset")
sqltext="select Flag from OrderList where Form_Id=" & request("Form_Id")
rs.open sqltext,conn,1,1
if rs("Flag")="已经发货" then
	rs.close
	Response.Redirect "ordermessagebox.asp?msg=此订货单您已经做过了发货处理！"
Else
	set rs=server.createobject("adodb.recordset")
	sqltext="update OrderList set Flag='"&djfc&"' where Form_Id=" & request("Form_Id")
	rs.open sqltext,conn,3,3

   '--------更新会员的购物总额---------------------------------
        '读取会员表
         set rs2=server.createobject("adodb.recordset")
         sql="select * from reguser where userid='"& userid &"'"
        rs2.open sql,conn,1,1

        '定义变量
        sp_sum=request("shop_sum")+rs2("shop_sum")

         '更新会员的购物总额
          set rs=server.createobject("adodb.recordset")
         sqltext="update reguser set shop_sum='"&sp_sum&"' where userid='"&userid&"'"
        rs.open sqltext,conn,3,3




    response.redirect "ordermessagebox.asp?msg=订货单处理处理完毕，请按客户详细地址发货！"
end if
%>