youke_order.asp

网上购物系统 asp+sql server 2005

<!--#include file="include/dbopenbd.asp" -->
<%
'如果会员已经登陆，则转入会员中心的订单页面，否则只能以游客身份查看订单
if request.cookies("buyok")("userid")<>"" then Response.Redirect "my_order.asp"
'获取上页传递的信息，aspsql对信息进行安全处理，防止用sql注入法控制数据库
OrderNum=aspsql(request("OrderNum"))
sqlinfo = "select A.ordertime,A.OrderNum,A.ProdId,A.BuyPrice,A.ProdUnit,B.PEI,B.FEI,B.memo,B.thiskou,B.Paytype,B.Notes,C.ProdName,D.StatusDefine "&_
  " from s_order A,s_orderList B,s_produc C,type D"&_
  " where A.OrderNum ='"&OrderNum&"' and A.OrderNum = B.OrderNum and A.ProdId=C.Prodid and  B.Status = D.Status "

set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sqlinfo,conn,1,1
if OrderNum<>"" then
if rs.eof and rs.bof then
	mGoBack "无此订单号，请检查后重新输入"
else
	jia=csng(rs("fei"))
	userkou=csng(rs("thiskou"))
end if
end if

%>

<title>订单查询-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/css.css" type="text/css">
</head>

<center>
<!--#include file="a_top.asp"-->

<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF"  class="grayline">  
<tr><td bgcolor="FFFBF7" align=center valign=top width=185> 

<!--#include file="a_login.asp" -->
<!--#include file="a_tree.asp" -->

</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td width=569 height=155 align=center valign=top>
 <TABLE border=0 width=100% cellspacing="2" cellpadding="2" align=center>
        <tr><td height=30>目前位置：<a href=main.asp>首页</a> > 订单查询</td></tr>
        <tr><td width="569"  align="center" height="1" background="images/small/bgline.gif"></td></tr>
 </table>

<form name="youkeorder" action="youke_order.asp" method="post">
<table border=0>
<tr><td>
请输入完整的订单号：<input type="text" name="ordernum" size=20 maxlength=20 value="">
</td><td><input type="submit" name="Submit" value="查询">
</td></tr></table>
</form>
<%
if OrderNum<>"" then
%>
<table width="90%" border="1" cellpadding="4" cellspacing="0" bordercolor="#C0C0C0" align=center bordercolordark="#FFFFFF">
<tr><td colspan="4">订单号为<strong><font color=red> <%=rs("OrderNum")%> </font></strong>&nbsp;&nbsp;&nbsp;&nbsp;发生时间：<%=rs("ordertime")%><br><br>
<table border=0>
<tr><td width=100 align=right>收货姓名：&nbsp;&nbsp;</td><td>未登陆不能查看</td></tr>
<tr><td width=100 align=right>联系电话：&nbsp;&nbsp;</td><td>未登陆不能查看</td></tr>
<tr><td width=100 align=right>电子邮箱：&nbsp;&nbsp;</td><td>未登陆不能查看</td></tr>
<tr><td width=100 align=right>收货地址：&nbsp;&nbsp;</td><td>未登陆不能查看</td></tr>
<tr><td width=100 align=right>邮政编码：&nbsp;&nbsp;</td><td>未登陆不能查看</td></tr>
<tr><td width=100 align=right>配送方式：&nbsp;&nbsp;</td><td><%=rs("pei")%></td></tr>
<tr><td width=100 align=right>配送费用：&nbsp;&nbsp;</td><td><%=formatnum(rs("fei"),2)%></td></tr>
<tr><td width=100 align=right>订单备注：&nbsp;&nbsp;</td><td><%=rs("Notes")%></td></tr>
<tr><td width=100 align=right>订单状态：&nbsp;&nbsp;</td><td><%=rs("StatusDefine")%></td></tr> 
<tr><td width=100 align=right>客服处理：&nbsp;&nbsp;</td><td><%=rs("memo")%></td></tr>  
</table>
<tr><td width="55%">商品名称 [点击名称查看此商品]</td><td width="15%">购买数量</td><td width="15%">结算单价</td><td width="15%" align="center"><font color="B0266D">合 计</font>
</td></tr>
<%
 Total = 0
 do while not rs.eof 
 Sum = csng(rs("BuyPrice"))*csng(rs("ProdUnit"))*userkou/10
 Total = Sum + Total '计算总金额
%>
<tr>	
<td><a href="list.asp?ProdId=<%=rs("Prodid")%>" target="_blank"><%=rs("ProdName")%></a></td>
<td><%=rs("ProdUnit")%></td>
<td><%=formatnum(csng(rs("BuyPrice"))*userkou/10,2)%></td>
<td><%=formatnum(sum,2)%></td>
</tr>
<%
rs.movenext
loop
%>
<TR>
	<TD colspan="4">
	&nbsp;&nbsp;商品总价：<%=formatnum(total,2)%><br>                   
	&nbsp;&nbsp;配送费用：<%=formatnum(jia,2)%><br>                   
	&nbsp;&nbsp;总计费用：<b><font color=red><%=formatnum((csng(total)+jia),2)%> 元</font></b></td>
</TR>
</TABLE>
<%
end if
rs.close
set rs=nothing
%>
</TD>
</TR></TABLE>
<!--#include file="a_bottom.asp"-->
</body></center>

</html>
<%
conn.close
set conn=nothing
%>