XMWXC/core/order_list.asp

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

	c_openid = request.cookies("m_openid")
	'if c_openid="" then c_openid="oCVcbvzVgz84sGA30f-PgPAAMZ0o"
		
	csql = "SP_GET_ORDER_LIST '" & c_openid & "'"
	c_rtn = ""
	set rs=conn.execute(csql)
	if not rs.eof then
		c_rtn = "{"
		c_errcode = rs("errcode")
		if c_errcode - 0 > 0 then
			c_rtn = "{""code"":""" & c_errcode & """,""info"":""" & rs("errinfo") & """}"
		else
			c_rtn = "{""code"":""0"",""info"":"""",""order_list"":["
			c_rtn1 = ""
			do until rs.eof
				c_rtn1 = c_rtn1 & "{""order_no"":""" & rs("main_id") & ""","
				c_rtn1 = c_rtn1 & """order_time"":""" & rs("order_time") & ""","
				c_rtn1 = c_rtn1 & """order_status"":""" & rs("order_status") & ""","
				c_rtn1 = c_rtn1 & """prod_code"":""" & rs("prod_code") & ""","
				c_rtn1 = c_rtn1 & """prod_name"":""" & rs("prod_name") & ""","
				c_rtn1 = c_rtn1 & """price"":""" & rs("price") & ""","
				c_rtn1 = c_rtn1 & """start_area"":""" & rs("start_area") & ""","
				c_rtn1 = c_rtn1 & """end_area"":""" & rs("end_area") & ""","
				c_rtn1 = c_rtn1 & """go_info"":""" & rs("go_info") & ""","
				c_rtn1 = c_rtn1 & """back_info"":""" & rs("back_info") & ""","
				c_rtn1 = c_rtn1 & """direction"":""" & rs("direction") & ""","
				c_rtn1 = c_rtn1 & """run_days"":""" & rs("run_days") & ""","
				c_rtn1 = c_rtn1 & """need_pay"":""" & rs("need_pay") & ""","
				c_rtn1 = c_rtn1 & """order_type"":""" & rs("order_type") & """},"
				rs.movenext
			loop
			if right(c_rtn1,1)="," then c_rtn1 = left(c_rtn1,len(c_rtn1)-1)
			c_rtn = c_rtn & c_rtn1 & "]}"
			
		end if
	else
		c_rtn = "{""code"":""0"",""info"":""""}"
	end if
	rs.close 
	
	response.write c_rtn
%>