orderlist_save.asp

来自「一套很早的多用户电子商务程序」· ASP 代码 · 共 32 行

<%@ language="VBScript"%>

<!--#include file="conn.asp"-->
<!--#include file="Check.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
%>