<%
'**************************************
'* 最后更新 2013-12-04 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Dim order_id,orderid,orderzt,totalcash,order_number,order_time,sendtype,paymenttype,fei,jifen,user_id,to_name,to_zip,to_tel,to_tel2,to_adds,to_other,from_name,from_zip,from_tel,from_adds,from_other,from_email,coupon_price,z_discount,dis_sum,iffapiao,hg,paidmoney,from_adds2,from_state,from_country,from_mobile,remark,from_city
strwebtitle = Lebi_cart(105) &"-"
sitename = site_name
description = Replace(trim(Sys_description),chr(13),"")
keywords = Replace(trim(Sys_keywords),chr(13),"")
id = checknum(request("order_id"),0)
set Rs = conn.execute("select * from [Lebi_orders] where id="& id &"")
If not rs.eof then
orderzt=rs("orderzt")
totalcash=rs("totalcash")
order_number=rs("order_number")
order_time=rs("order_time")
sendtype=rs("sendtype")
paymenttype=rs("paymenttype")
jifen=rs("jifen")
user_id=rs("user_id")
to_name=rs("to_name")
to_zip=rs("to_zip")
to_tel=rs("to_tel")
to_tel2=rs("to_tel2")
to_adds=rs("to_adds")
to_other=rs("to_other")
from_name=rs("from_name")
from_zip=rs("from_zip")
from_tel=rs("from_tel")
If sys_soft = 1 Then 
	If InStr(from_tel,",") = 0 Then from_tel = from_tel &",,"
End If 
from_city=rs("from_city")
from_mobile=rs("from_mobile")
from_adds=rs("from_adds")
from_adds2=rs("from_adds2")
from_state=rs("from_state")
from_other=rs("from_other")
from_email=rs("from_email")
remark=Trim(rs("fuyan"))
z_discount=rs("discount")
fei=FormatNumber2(rs("fei")/moneyhl)
coupon_price = FormatNumber2(rs("coupon_price")/moneyhl)
packing_price = FormatNumber2(rs("packing_price")/moneyhl)
fapiao_money = FormatNumber2(rs("fapiao_money")/moneyhl)
dis_sum=FormatNumber2(rs("dis_sum")/moneyhl)
paidmoney=FormatNumber2(rs("paidmoney")/moneyhl)
Total_money = CDbl(rs("dis_sum"))+CDbl(rs("fei"))+CDbl(rs("packing_price"))-checknum(rs("coupon_price"),0)-CDbl(rs("paidmoney"))
If Config_Lebi_Eshop(2)="1" Then
		Total_money = Total_money + CDbl(rs("fapiao_money"))
End If
Total_money = FormatNumber2(Total_money/moneyhl)
End If
Set country = conn.execute("Select area_name from [lebi_deliver_area] where id = "& checknum(rs("from_country"),0) &"")
If Not country.eof Then
	from_country = Country(0)
End If
country.close : Set country = Nothing
rs.Close : Set rs=Nothing
if to_other<>"" then
to_other = replace(to_other, chr(13), "<br>")
to_other = replace(to_other, chr(32), "&nbsp;")
end If
if from_other<>"" then
from_other = replace(from_other, chr(13), "<br>")
from_other = replace(from_other, chr(32), "&nbsp;")
end if
%>