orderdispose.asp

大型豪华网络游戏交易平台!!有喜欢的就的就快哦~~~~~~

<!--#include file="mysqlfire.asp"-->
<!--#include file="ordersec.asp"-->
<!--#include file="orderconn.asp"-->
<%
'#############################################################
'#              贺喜支付平台支付接口定单管理系统
'#                            v2.3
'#                   http://www.168reg.cn
'#
'#  版权所有: 株洲市和谐网络科技发展有限公司
'#
'#  主页地址: http://www.168reg.cn
'#  技术支持: [e-mail]
'#  技 术 QQ: 359465724
'#  技术QQ群：8246422，7048987
'#
'#############################################################
'# ·郑重声明:
'# ·此定单系统仅提供简易版定单管理功能，其他功能，请自行开发。
'# ·由于用户原因，可能导致定单数据丢失，请经常登录管理区查看定单。
'# ·此程序不得随意公开发布、销售或进行其他非法转让。
'# ·如对此程序有任何疑问，请在管理区留言。
'#############################################################
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
disposetype=Request.Form("disposetype")
'batch为批量处理定单
if disposetype<>"batch" then
	 sql="select id,disposed,disposedate from myorder where id="&request("ID")
	 rs.open sql,conn,1,3
	 if not rs.eof then
			if request("act")="del" then
			 	rs.delete
			else
			 if request("dispose")="yes" then
			 	rs("disposed") = 1
			 	rs("disposedate")=now()
			 else
			 	rs("disposed") = 0
			 	rs("disposedate")=null
			 end if
			end if
	   rs.update
	 end if
	 rs.close
	 set rs=nothing
	 conn.close
	 set conn=nothing
	if session("curfile")="" then
		 response.redirect "vieworder.asp"
	else
		response.redirect session("curfile")
	end if
else
	order_id=Request.form("order_id")
	callback=Request.form("callback")
	isdelete=Request.form("isdelete")
	if isdelete="1" then
		sql="delete from myorder where id in(" & order_id &")"
	else
		sql="update myorder set disposed=1,disposedate='" & now() & "' where id in(" & order_id &") AND disposed=0"
	end if
	rs.open sql,conn,1,3
	response.redirect callback
	response.end
end if
%>