www.gusucode.com > 绿色环保工作企业网站源码程序 > admin/Admin_OrderListSave.asp
<%@ language="VBScript"%> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <!-- #include file="Inc/Head.asp" --> <% flag="Yes" set rs=server.createobject("adodb.recordset") sqltext="select Flag from OrderList where OrderNum='"&request("OrderNum")&"'" rs.open sqltext,conn,1,1 if rs("Flag")="Yes" then rs.close Response.Redirect "Admin_OrderListSave.asp?msg=此询价单您已经处理!" Else set rs=server.createobject("adodb.recordset") sqltext="Update OrderList set Flag='"&flag&"' where OrderNum='"&request("OrderNum")&"'" rs.open sqltext,conn,1,3 response.redirect "Admin_Ordermessagebox.asp?msg=询价单处理处理完毕!" rs.close end if %>