📄 keepsuborder.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家

💻 ASP

字号:

<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID,Action
ID = trim(Request("SubOrderID"))
Action = trim(Request("Action"))
if ID="" then
	Call Msg("非法参数",1,"")
end if
if GetUserGPower=9 then
	Call Msg("您没有访问权限",1,"")
end if




%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保留订单</title>
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
if Action="keep" then
	Call keep()
elseif Action="nokeep" then
	Call nokeep()
else
	Call main()
end if
Sub main()%>
<table width="60%" height="50" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
  <tr class="title">
    <td><div align="center">货已发出</div></td>
  </tr>
  <tr>
    <td height="40">如以后还是根据此订单发货请点“保留”，如不再根据此试单发货请点“不保留”;</td>
  </tr>
  <tr>
    <td height="40"><table width="20%"  border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><a href="keepSubOrder.asp?SubOrderID=<%=ID%>&Action=keep">保 留</a></td>
        <td><a href="keepSubOrder.asp?SubOrderID=<%=ID%>&Action=nokeep">不保留</a></td>
      </tr>
    </table></td>
  </tr>
</table>
<%End Sub
Sub keep()
	if GetUserGPower=9999 then
		Call Msg("已经保存",5,"P_SubOutOrder.asp")
	end if
	if GetUserGPower=999 then
		Call Msg("已经保存",5,"S_SubOutOrder.asp")
	end if
	if GetUserGPower=99 then
		Call Msg("已经保存",5,"X_SubOutOrder.asp")
	end if	
end Sub
''不保留  IsOutOrder=2
Sub nokeep()
	sql = "Select * from T_SubOrder where SubOrderID="&cstr(ID)&""
	Call sql_open(rs,sql,Conn,1,3)
	if rs.eof and rs.bof then
		call Msg("订单不存在",1,"")
	else
		rs("IsOutOrder")=2
		rs.update
		
	end if
	call rs_end(rs)
	if GetUserGPower=9999 then
		Call Msg("已经保存",5,"P_SubOutOrder.asp")
	end if
	if GetUserGPower=999 then
		Call Msg("已经保存",5,"S_SubOutOrder.asp")
	end if
	if GetUserGPower=99 then
		Call Msg("已经保存",5,"X_SubOutOrder.asp")
	end if	

end Sub
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -