admin_orderlistsave.asp

来自「破解版的企业网站源码！！ 绝对好用 适合各种企业应用 其中包包含产品展示 」· ASP 代码 · 共 21 行

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