当前位置:首页 用户管理中心 订单列表

<% if session("memberid")="" or session("memberpwd")="" then Response.Redirect ("/user_index.asp") else if jaFei.safeRequest("id") <> "" then sqlstr="select send_type,order_id,order_time,total_money,pay_mode,stateinfo,dgsp from t_business_order where isActived=1 and order_id='" & jaFei.safeRequest("id") &"'" else sqlstr="select send_type,order_id,order_time,total_money,pay_mode,stateinfo,dgsp from t_business_order where isActived=1 and userid='" & session("memberid") &"'" end if sqlstr=sqlstr & " order by order_time desc" 'On Error Resume Next set rs_main=server.CreateObject("adodb.recordset") rs_main.Open sqlstr,conn,1,1 %> <%if rs_main.RecordCount=0 then Response.Write "

没找到相关的订单信息!

" else %> 您的订单信息如下: <% do until rs_main.EOF%> <%rs_main.MoveNext loop rs_main.Close set rs_main=nothing %>
订单号 下单时间 订单状态 订单留言
"><%=rs_main("order_id")%> <% if rs_main("dgsp")=1 then response.write "代"%> <%=datevalue(rs_main("order_time")) %> <% If instr(rs_main("stateinfo"),"订单处理中")>0 then If instr(rs_main("Send_type"),"送货上门")=0 then Response.write rs_main("stateinfo")&"
建议马上打款" Else Response.write rs_main("stateinfo")&"
等待送货" End if Elseif rs_main("stateinfo")="交易完成" or rs_main("stateinfo")="已发货" then response.Write "已发货" else if rs_main("stateinfo")="订单加菲网处理中...." then response.write "订单处理中.... " else response.write rs_main("stateinfo") end if End if %>
<% set myrs=server.CreateObject("adodb.recordset") sqlstr="select * from order_content where orderid='"&rs_main("order_id")&"' and rename='管理员'" myrs.Open sqlstr,conn,1,1 do while not myrs.eof %>客服:<%=myrs("content")%>
<% myrs.movenext loop myrs.close set myrs=nothing %>
<%end if end if%>