orderlist_save.asp

来自「全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能」· ASP 代码 · 共 19 行

<%@ language="VBScript"%>
<!--#include file="conn.asp"-->

<!--#include file="admin.asp"-->
<%
djfc="已经发货"
set rs=server.createobject("adodb.recordset")
sqltext="select Flag from OrderList where OrderNum='"&request("OrderNum")&"'"
rs.open sqltext,conn,1,1
if rs("Flag")="已经发货" then
rs.close
Response.Redirect "OrderList_Save.asp?msg=此订货单您已经做过了发货处理！"
Else
set rs=server.createobject("adodb.recordset")
sqltext="update OrderList set Flag='"&djfc&"' where OrderNum='"&request("OrderNum")&"'"
rs.open sqltext,conn,3,3
response.redirect "OrderMessageBox.asp?msg=订货单处理处理完毕，请按客户详细地址发货！"
end if
%>