order_search.asp

一个不错的个人商务网站的源码

<!--#include file="db_conn.asp"-->
<!--#include file="comm/comm.asp"-->
<!--#include file="comm/pages.asp"-->
<!--#include file="comm/my_request.asp"-->
<!--#include file="comm/my_lib.asp"-->
<!--#include file="comm/sub.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字

call head("订单查询","索特科技","索特科技")
%>
<!--end TOP-->
<div align="center">
<table border="0" width="760" cellpadding="0" style="border-collapse: collapse">
	<tr>
		<td width="182" valign="top"><!--#include file="left.asp"-->　</td>
		<td width="15" valign="top">　</td>
		<td width="563" valign="top">
<%
keyno=my_request("orderno",0)
if keyno="" or isnull(keyno) then
wnourl("请输入订单号")
else
%>
<table border=0 width=563 cellpadding=0 style="border-collapse: collapse">
<tr>
<td width=72 class=topmanu_bg height=20>
<p align=center>处理结果</td>
<td width=490 height=13>
<p align=left>&nbsp;订单号：<font color=#FF0000><%=keyno%></font></td>
</tr>
<tr>
<td width=563 colspan=2 class=right_nav height=3></td>
</tr>
</table>
<table border=0 width="100%" cellpadding=4 style="border-collapse: collapse" bordercolor=#CCCCCC>
<tr>
<td bgcolor=#FFFFFF bordercolor="#FFFFFF">
<%
sql="select * from buyer where ddbh='"&keyno&"'"
set rs=conn.execute (sql)
if (rs.eof and rs.bof) then
wnourl("没有此订单，请确认。")
Response.end
rs.close
set rs=nothing
else
%>
<table width="100%" cellspacing="1" class=12px>
	<tr bgcolor="#CCCCCC">
		<td height="25" colspan="2" bgcolor="#EFEFEF">&gt;&gt;客户详细资料</td>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">订单编号：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<%=keyno%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD align="right" bgcolor="#FFFFFF" width="162">会员账号：</TD>
		<TD bgcolor="#FFFFFF" >&nbsp;<%=rs("userid")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">会员真实姓名：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("yqj_realname")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">收货人联系地址：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("yqj_address")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">邮政编码：</TD>
		<TD  width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("yqj_postal")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">联系电话：</TD>
		<TD  width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("yqj_phone")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">电子信箱：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("yqj_email")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">付款方式：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("paymode")%></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >产品费用：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333">￥<%=rs("product_price")%>元</font></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >附加费用：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333">￥<%=rs("yqj_cost")%>元</font></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >总计金额：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333">￥<%=rs("yqj_money")%>元</font></TD>
	</tr>
	<tr  bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF" >备注：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<%=rs("content")%></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">订货日期：</TD>
		<TD width=591 bgcolor="#FFFFFF" >&nbsp;<%=rs("addtime")%><font color="#999999">&nbsp;[<%=rs("ip")%>]</font></TD>
	</tr>
	<tr bgcolor="#f1f1f1">
		<TD width=162 align="right" bgcolor="#FFFFFF">订单是否已经处理：</TD>
		<TD width=591 bgcolor="#FFFFFF">&nbsp;<font color="#FF3333"><%=rs("zt")%></font></TD>
	</tr>
</table>
<table width="100%" cellspacing="1" class=12px>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from list where cartbh= '"&keyno&"'"
rs2.open sql2,conn,1,1
%>
    <tr valign="middle" bgcolor="#CCCCCC">
		<td height="25" colspan="4" bgcolor="#EFEFEF">&gt;&gt;订货产品细目</td>
	</tr>
	<tr valign="middle" bordercolorlight="#0097fe" bordercolordark="#ffffff">
		<td height="25" align="center" bgcolor="#FFFFFF">产品名称</td>
		<td height="25" align="center" bgcolor="#FFFFFF">产品价格</td>
		<td height="25" align="center" bgcolor="#FFFFFF">产品数量</td>
		<td height="25" align="center" bgcolor="#FFFFFF">金额小计</td>
	</tr><%Sum=0
        While Not rs2.EOF%>
    <tr valign="middle" bordercolorlight="#0097fe" bordercolordark="#ffffff">
		<td height="25" bgcolor="#FFFFFF"><%=rs2("mc")%></td>
		<td height="25" align="center" bgcolor="#FFFFFF">￥<%=rs2("rmb")%>元</td>
		<td height="25" align="center" bgcolor="#FFFFFF"><%=rs2("sl")%></td>
		<td height="25" align="center" bgcolor="#FFFFFF">￥<%=rs2("rmb")*rs2("sl")%>元</td>
    <%Sum=Sum+rs2("rmb")*rs2("sl")%>
  	</tr><%
    					  rs2.MoveNext
   						  Wend
					  %>
    <tr valign="middle">
		<td height="25" colspan="4" align="right" bgcolor="#FFFFFF">商品费用总计(不包括附加费用)：<font color="#FF3333">￥<%=Sum%>元</font></td>
	</tr>
	<tr valign="middle">
		<td height="25" colspan="4" align="center" bgcolor="#FFFFFF">
		<p align="left"><font color="#FF3333">订单状态：</font><input name="B12" type="button" value="<%=rs("zt")%>" title="<%=rs("zt")%>"> 
      <%
    rs2.close
    set rs2=nothing
%>
<input name="B42" type="button" onclick="window.location='index.asp'" value="返回首页" title="返回">
		</td>
	</tr>
</table>
<%end if
end if%>
</td>
</tr>
</table>
		</td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->