orderlist_save.asp

详细说明在文件 程序说明： ☆ 中英文双语版 ☆ 后台在同一页内同时管理添加修改资料内的中英文内容 ☆ 网站的左边栏使用了模块,可以自由的增加&删除 ☆ 可以不用修改代码,

<!--#include file="bsconfig.asp"-->
<%
'=========================================================
'
' 产品名称：数字工作室 公司(企业)网站管理系统（简称：myszw.com）
' 版权所有: myszw.com 
' 程序制作：myszw.com开发团队
' Copyright 2004-2005 myszw.com - All Rights Reserved. 
'
'========================================================
%>
<%
djfc="已经发货"
set rs=server.createobject("adodb.recordset")
sqltext="select Flag from Bs_OrderList where Form_Id=" & request("Form_Id")
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 Bs_OrderList set Flag='"&djfc&"' where Form_Id=" & request("Form_Id")
rs.open sqltext,conn,3,3
response.redirect "OrderMessageBox.asp?msg=订货单处理处理完毕，请按客户详细地址发货！"
end if
%>