<%@ 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)

	linksysuser = 0
	c_lsuser = "shnswx01"
	c_lssign = "5AE42D0AD35EEEF45B79C7A533CC509D"

	csql = "select top 1 b.link_system_user from app_order_main a inner join circuit b on a.prod_code=b.circuitcode where a.main_id=" & c_orderno
	set rs=conn.execute(csql)
	if not rs.eof then linksysuser = rs("link_system_user") 
	rs.close

	if linksysuser-1=0 then
		c_lsuser = "nssale01"
		c_lssign = "796E85AC11598C9C32D9979C7B82042C"
	end if
	
	'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
	m_url = "http://partner.zizaitrip.net/json?user=" & c_lsuser & "&sign=" & c_lssign & "&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.redirect "/bookingHomePage/paySuccess.html?orderno=" & c_orderno
	else
		nnum2 = instr(cstr1,"""info"":")
		if nnum2 - 0 > 0 then
			cstr1 = mid(cstr1,nnum2 - 0 + 8)
			nnum3 = instr(cstr1,",")
			cstr1 = left(cstr1,nnum3-1)
			response.redirect "/bookingHomePage/payFailure.html?orderno=" & c_orderno & "&info=" & cstr1
			'response.write "支付失败！" & cstr1
		else
			response.redirect "/bookingHomePage/payFailure.html?orderno=" & c_orderno & "&info=unknow_error"
		end if
		
	end if
	
%>