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
%>