# 老系統作廢本單 ~~~ if request("cmd")="fei" then set fei=server.CreateObject("adodb.recordset") set fei=conn.execute("update ks_order set status=status + ',4' where orderid='"&request("orderid")&"'") response.Redirect "hzb.asp?khmc="&request("khmc")&"" 'set stat=server.CreateObject("adodb.recordset") 'set stat=conn.execute("update ks_order set status=status + ',3' where orderid='"&request("myorderid")&"' ") end if ~~~ # 老系統訂單狀態定義 ~~~ if request("status")="0" then st="接件單" if request("status")="1" then st="生產流程單" if request("status")="2" then st="送貨簽收單" if request("status")="4" then st="作廢單" ~~~ # 老系統mystatus定義 ~~~ <%if j("mystatus")=3 or ddjex<=xxje then response.Write("<font color=008800>全單收款</font>") 'response.Write("狀態是"&j("mystatus")) 'response.Write("ddjex"&ddjex) 'response.Write("xxje"&xxje) else %> <%if j("mystatus")=0 then response.Write("<font color=0000ff>未走上流程</font>")%> <%if j("mystatus")=1 then response.Write("<font color=CC00CC>正在生產中</font>")%> <%'if j("status")=0 then response.Write("<a href=Print1.asp?orderid="&j("orderid")&" target=_blank><font color=ff0000>重打接件單</font></a>")%> <%if j("mystatus")=2 then response.Write("<font color=ffffff>已送貨簽單</font>")%> <%end if%> ~~~ # 老系統后臺判斷作廢單依據 ``` <%if instr(rs("status"),"4")=0 then '如果不包含4則說明是正常單' if session("zuofei")=1 then response.Write("<a href=""?cmd=fei&orderid="&rs("orderid")&"&khmc="&request("khmc")&""" onClick=""return window.confirm('您確定要作廢本單嗎？');"" ><font color=ff0000>作廢本單</font></a>") end if else %> <% response.Write("<font color=0000ff>已作廢</font>") end if %> </td> <%end if%> ```