XMWXC/core/order_confirm2.asp

<%@ language=vbscript  codepage="65001" %>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<%
	Response.Charset = "UTF-8"

	c_orderno = deal_num_beforesql(request("orderno"))

	csql = "update app_order_main set if_payed=1,payed_time=getdate() where main_id=" & c_orderno
	conn.execute(csql)
	
	'm_url = "http://partner.zhizhuchuxing.com/json?user=tmall01&sign=7620D8B54A4218E2EE1FFABFB40867C5&op=eticket&tradeno=" & c_orderno
	m_url = "http://partner.zhizhuchuxing.com/json?user=shnswx01&sign=5AE42D0AD35EEEF45B79C7A533CC509D&op=eticket&tradeno=" & c_orderno
	
	Set objXML = CreateObject("Microsoft.XMLHTTP") 
	objXML.open "GET",m_url,false
	objXML.send
	c_rtn = objXML.responseText
	Set objXML = nothing

	cstr1 = c_rtn
	nnum1 = instr(cstr1,"""code"":""0"",")
	if nnum1 -0 > 0 then
		csql = "update app_order_main set order_status= 2 where main_id=" & c_orderno
		conn.execute(csql)
		'response.write "Ö§¸¶³É¹¦£¡"
		response.write "true"
	else
		response.write "false"
	end if
	
%>