⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 orders_viwes.asp

📁 本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "error.asp?error=001"
end if
%>
<%on error resume next%>
<%
sql="select * from 56770_orders where id="&request("id")
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
        rs.close
set rs=nothing
response.write"<SCRIPT language=JavaScript>alert('对不起,定单号不存在!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
user_name=rs("user_name")
sqlt="select * from 56770_user where user_name='"&user_name&"'"
set rst=server.createobject("ADODB.Recordset")
rst.open sqlt, conn, 1, 1
%>
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr bgcolor="#FFCC33">
<td height="27" background="images/admin_bg_1.gif" bgcolor="#FFFFFF">.:: 您可以在这里进行用户订单相关操作</td>
</tr>
</table><br>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="90%" align="center">
<tr bgcolor="#FFFF99">
<td align="center" height="22" colspan="3" bgcolor="#B0CBE6">

</td>
</tr>
</table>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="90%" align="center">
<tr bgcolor="#6699CC">
<td height="22" width="25%">订单号:</td>
<td width="25%"><%=rs("order_number")%></td>
<td width="25%">订单总金额:</td>
<td width="25%" bgcolor="#6699CC"><%=rs("summoney")%> </td>
</tr>
<tr bgcolor="#B0CBE6">
<td height="22">会员ID:</td>
<td><%=rs("user_id")%></td>
<td>收货人姓名:</td>
<td><%=rs("to_name")%></td>
</tr>
<tr bgcolor="#B0CBE6">
<td height="22">收货人邮编:</td>
<td><%=rs("postcode")%></td>
<td>订购时间:</td>
<td><%=rs("order_time")%></td>
</tr>
<tr bgcolor="#6699CC">
<td height="22">收货人电话:</td>
<td><%=rs("tel")%></td>
<td>收货人Email:</td>
<td><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
</tr>
<tr bgcolor="#B0CBE6">
<td height="22">配送方式:</td>
<td> <%=rs("sendtype")%>
</td>
<td>支付方式:</td>
<td><%=rs("paymenttype")%></td>
</tr>
<tr bgcolor="#FFFF99">
<td height="22" valign="top" bgcolor="#B0CBE6">
收货人地址:</td>
<td colspan="3" bgcolor="#B0CBE6">
<%=rs("to_adds")%></td>
</tr>
<tr bgcolor="#FFFF99">
<td height="22" valign="top" bgcolor="#B0CBE6">备注:</td>
<td colspan="3" bgcolor="#B0CBE6">
<%
other = replace(rs("other"), chr(13), "<br>")
other = replace(other, chr(32), "&nbsp;")
response.write other
%>
</td>
</tr>
<tr bgcolor="#FFCC33">
<td height="22" bgcolor="#6699CC">此订单状态:</td>
<td colspan="3" bgcolor="#6699CC">      <%
if rs("order_zt")=true then
        order_zt="<font color=#FF0000>已经发货</font>"
else
        order_zt="尚未发货"
end if
if rs("order_zf")=true then
        order_zf="<font color=#FF0000>已经支付</font>"
else
        order_zf="尚未支付"
end if
response.write order_zf & "," & order_zt
%></td>
</tr>
</table>

<%
order_number=rs("order_number")
sql="select * from 56770_basket where order_number='"&order_number&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
do while not rs.eof
%>
<table width="90%" border="0" align="center" cellspacing="1" bgcolor="#d7b4e0">
<tr>
<td width="21%" height="25" bgcolor="#f0f0f0">商品名称:</td>
<td width="46%" height="25" bgcolor="#FFFFFF" align="center"><%=rs("product_name")%>  <a target="_blank" href="../showproduct.asp?id=<%=rs("id")%>">[查看]</a>
</td>
<td width="16%" height="25" bgcolor="#f0f0f0" align="center">数量/单价</td>
<td width="17%" height="25" bgcolor="#FFFFFF" align="center"><%=rs("basket_count")%>/<%=rs("price")%>元</td>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" width="90%" align="center">
<tr bgcolor="#FFFF99">
<td align="left" height="22" colspan="3" bgcolor="#B0CBE6">

</td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -