<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_system.asp-->
<!--#include file=../system/include/access.asp-->
<!--#include file=../system/include/function.asp-->

<%
	dim strSql,rs
	
	set rs=Server.CreateObject("Adodb.RecordSet")
	strSql="select * from [onlinedd] where id=" & request("id")
	rs.Open strSql,conn,3,3

	if rs.eof then
		out("找不到该订单！")
	else
		rs("pass")="是"
		rs.update
        out("交易成功！此订单已成为'历史订单'")
        end if
	rs.close
	set rs=nothing
%>
<!--#include file=../system/include/foot.asp-->