orderhandle.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0810" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
UOID=Request("ID")
OP=Request("OP")

if Session("ISADMIN")<>"YES" then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此订单或者您没有权限！</p>"
	Call PrintPageBottom
end if
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from T_DNS_UserOrder Where UOID='" & UOID & "'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Rs.Close
	Set Rs=Nothing
	Cn.Close
	Set Cn=Nothing
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此订单或者您没有权限！</p>"
	Call PrintPageBottom
	Response.End
End if
Rs.Close
Set Rs=Nothing

if Request.Form("act")="NEXT" then
	
	strSQL="exec SP_OtherProd_Handle " & +_
	"" & Session("UserID") & "," & +_
	"'" & UOID & "'," & +_
	"'" & OP & "'," & +_
	"'" & Request.ServerVariables("REMOTE_ADDR") & "'"

	Set Rs= Cn.Execute(strSQL)
	%>
	<br><br><br>
	<p align="center" class="titletext">
	<%=Rs("msg")%>
	<a href="OrderList.asp" class="a2">返回</a>
	<%
	Rs.Close
	Set Rs=Nothing
	Call PrintPageBottom
	Response.End
end if
%>
<br><br><br>
<center>
<p>
<TABLE align=center  border=0 cellPadding=5 cellSpacing=1 width="90%">
 <tr>
   <td>
    <font class="titletext" color="#000000">
    <b>
    确实要对 <font color="red"><%=UOID%></font> 进行操作么?
    </b></font>
    <br><br>
    <%
    if OP="handle" then
    	%>
    	提示: 本操作将改变用户订单状态为已处理, 请您已经处理完毕此订单时再执行本操作
    <% else %>
    	警告: 本操作将作废此订单, 请谨慎使用
    <% end if %>
   </td>
 </tr>
</table>
</p>
<form name="inputform" action="" method="post">
<input type="hidden" name="act" value="NEXT">
<input type="hidden" name="OP" value="<%=OP%>">
<input type="hidden" name="ID" value="<%=UOID%>">
<input type="submit" name="del" value=" 确定 " class="button">&nbsp;
<input type="button" name="back" value=" 取消 " onclick="javascript:history.go(-1)" class="button">
</form>
</center>
<%
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>