<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write ""
response.End
else
if request.cookies("timesshop")("admin")="" then
conn.close
set conn = nothing
response.Write ""
response.End
end if
end if
if session("rank")>1 then
conn.close
set conn = nothing
response.Write ""
response.End
end if
%>
查看订单
<%
dim goods,username
goods=SafeRequest("dan",1)
username=FormatSQL(SafeRequest("username",0))
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.id,product.name,product.price1,product.price2,product.vipprice,orders.actiondate,orders.UserSex,orders.realname,orders.receipt,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.state,orders.paid,orders.score,orders.useremail,orders.usertel,orders.address,orders.productnum from product inner join orders on product.id=orders.id where orders.username='"&username&"' and goods='"&goods&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "
您的送货方式是：
<%'
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
if rs2.eof and rs2.bof then
response.write "方式以被删除"
response.write " 附加费用：0元"
response.write " 金额总计："& iii &"元"
else
response.write trim(rs2("subject"))
response.write " 附加费用："&rs2("fee")&" 元"
response.write " 金额总计："&iii+rs2("fee")&" 元，获得积分："&jjj&" 分"
end if
rs2.Close
set rs2=nothing
%>
订货人姓名：
<%=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="&int(rs("deliverymethord")),conn,1,1
if rs2.eof and rs2.bof then
response.write "方式已被删除"
else
response.Write trim(rs2("subject"))
end if
rs2.close
set rs2=nothing%>
支付方式：
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from delivery where deliveryid="&int(rs("paymethord")),conn,1,1
if rs2.eof and rs2.bof then
response.write "方式已被删除"
else
response.Write trim(rs2("subject"))
end if
rs2.close
set rs2=nothing %>