<%if request.cookies("timesshop")("username")="" then response.write "" response.End end if%> <%dim goods goods=SafeRequest("dan",1) set rs=server.CreateObject("adodb.recordset") rs.open "select tproduct.id,tproduct.tproduct,tproduct.tprice,tproduct.score,tproduct.tpricenet,tproduct.tprice1,orders.actiondate,orders.UserSex,orders.realname,orders.receipt,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.state,orders.paid,orders.useremail,orders.usertel,orders.address,orders.productnum from tproduct inner join orders on tproduct.id=orders.id where orders.username='"&request.Cookies("timesshop")("username")&"' and goods='"&goods&"' ",conn,1,1 if rs.eof and rs.bof then response.write "此订单中有商品已被管理员删除，无法处理，请通知管理员或者重下订单！" response.End end if %> align="center"> > > > > > > > > > > > > > >

订单号为：<%=goods%> ，详细资料如下：
商品列表：	align="center"> <%dim sum1,sums1 do while not rs.eof%> <%sum1=rs("paid")+sum1 sums1=sums1+rs("score")*rs("productnum") rs.movenext loop rs.movefirst%> 商品名称 订购数量 市场价 会员价 VIP会员价 积分 金额小计 target=_blank><%=trim(rs("tproduct"))%> <%=rs("productnum")%> <%=rs("tprice")%>元 <%=rs("tpricenet")%>元 <%=rs("tprice1")%>元 <%=rs("score")*rs("productnum")%>分 <%=rs("paid")%>元 您的送货方式是： <%dim rs2 set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1 if rs2.EOF and rs2.BOF then response.Write "此方式已经被删除" response.write " 附加费用：0元" response.write "  金额总计："&sum1&" 元，获得积分"&sums1&"分" else response.Write trim(rs2("subject")) response.write " 附加费用："&rs2("fee")&"元" response.write "  金额总计："&sum1+rs2("fee")&" 元，获得积分 "&sums1&" 分" end if rs2.Close set rs2=nothing %>
订单状态：	<% grade() %>
订货人姓名：	<%=trim(rs("realname"))%>
收货人姓名：	<%=trim(rs("receipt"))%>
收货地址：	<%=trim(rs("address"))%>
邮　　编：	<%=trim(rs("postcode"))%>
联系电话：	<%=trim(rs("usertel"))%>
电子邮件：	<%=trim(rs("useremail"))%>
送货方式：	<%set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1 response.Write trim(rs2("subject")) rs2.Close set rs2=nothing%>
支付方式：	<%set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1 response.Write trim(rs2("subject")) rs2.close set rs2=nothing%>
您的留言：	<%=trim(rs("comments"))%>
下单日期：	<%=rs("actiondate")%>
<%if rs("state")=2 then%> 删除订单 <%end if%>  关闭窗口

<%sub grade() select case rs("state") case "1"%> 未作任何处理à 服务商已收到款à 服务商已发货à 用户已经收到货 <%case "2"%> 未作任何处理à 服务商已收到款à 服务商已发货à 用户已经收到货 <%case "3"%> 未作任何处理à 服务商已收到款à 服务商已发货à 用户已经收到货 <%case "4"%> 未作任何处理à 服务商已收到款à 服务商已发货à 用户已经收到货 <%case "5"%> 未作任何处理à 服务商已收到款à 服务商已发货à 用户已经收到货 <%end select end sub%>