orderlist_save.txt

来自「123基于web的网络购物系统附毕业设计论文」· 文本 代码 · 共 22 行

<%@ language="vbscript"%>
<%
if request.cookies("adminok")="" then
  response.redirect "shop_login.htm"
end if
%>
<!--#include file="conn.asp"-->
<%
djfc="已经发货"
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
    response.redirect "ordermessagebox.asp?msg=订货单处理处理完毕，请按客户详细地址发货！"
end if
%>