admin_orderlistsave.asp

来自「官方最新的南方数据v12生成静态商业版。全站生成静态。」· ASP 代码 · 共 20 行

<%@ 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 0791idc_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 0791idc_OrderList set Flag='"&flag&"' where OrderNum='"&request("OrderNum")&"'"
 rs.open sqltext,conn,1,3
 response.redirect "Admin_Ordermessagebox.asp?msg=询价单处理处理完毕！"
 rs.close
end if
%>