📄 myhisorycart.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim key,toppath,dbpath
toppath=""
dbpath=""
%>
<!--#include file="chk.asp" -->
<!--#include file="db_conn.asp"-->
<!--#include file="my_lib/my_request.asp"-->
<!--#include file="my_lib/pages.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet" type="text/css">
<title>会员控制面版-我的历史订单</title>
</head>
<body topmargin="1">
<!--#include file="top.asp" -->
<div align="center">
<table border="1" width="760" id="table1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#F47E36">
<tr>
<td valign="top">
<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td height="20" class=smallfont bgcolor="#FFEEDD" colspan="2" style="border-top: 3px solid #F47E36">
<p align="center">『会员控制中心』</td>
</tr>
<tr>
<td width="23%" valign="top" bgcolor="#EEF7FF">
<table border="0" width="100%" id="table3" cellspacing="1">
<tr>
<td bgcolor="#EEF7FF" height="18" class=smallfont><font color=#CC0000><%=session("chk_name")%></font>,您好 状态：已登录</td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="UserModiInfo.asp">修改用户资料</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="UserModiPass.asp">修改用户密码</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="MessageBack.asp">留言反馈</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="revert.asp">留言跟踪处理</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="MyFavorite.asp">我的收藏夹</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="MyHisoryCart.asp">查询历史订单</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a target="_blank" href="my_cart_list.asp">我的购物车</a></td>
</tr>
<tr>
<td bgcolor="#EEF7FF" height="18" onmouseout="this.style.background='#EEF7FF'"
onmouseover="this.style.background='#FF9900'" class=smallfont>
<img height="11" src="images/dt3.gif" width="11" border="0">
<a href="loginout.asp">退出登录</a></td>
</tr>
</table>
</td>
<td width="77%" valign="top">
<table border="0" width="100%" id="table4" cellspacing="1" class=smallfont>
<tr>
<td colspan="8">
<p align="center">订单管理</td>
</tr><form action=MyHisoryCart.asp method=post>
<tr>
<td colspan="8">
<p align="center">请输入订单编号：<input type=text name=keyword size=20 maxlength="50"><input type=submit value=搜索 name=B1></td>
</tr></form>
<tr>
<td width="6%">ID</td>
<td width="22%">订单编号</td>
<td width="11%">货款(RMB)</td>
<td width="9%">附加费用</td>
<td width="9%">交易方式</td>
<td width="21%">下单时间</td>
<td width="9%">订单状态</td>
<td width="9%">操作</td>
</tr>
<%
username=session("chk_name")
keyword=my_request("keyword",0)
if keyword<>"" then
sql="select id,ddbh,addtime,paymode,yqj_money,yqj_cost,zt from buyer where userid='"&username&"' and ddbh like '%"&keyword&"%'"
else
sql="select id,ddbh,addtime,paymode,yqj_money,yqj_cost,zt from buyer where userid='"&username&"'"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td width=500 colspan=4><font color=#FF0000>没有想符合的数据</font></td>"
response.write "</tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set ddbh=rs("ddbh")
set addtime=rs("addtime")
set paymode=rs("paymode")
set yqj_money=rs("yqj_money")
set yqj_cost=rs("yqj_cost")
set zt=rs("zt")
%>
<tr>
<td width="6%"><%=(page-1)*19+ii%></td>
<td width="22%"><a href=listOrder.asp?page=<%=page%>&nodot=<%=ddbh%>><%=ddbh%></a></td>
<td width="11%"><%=yqj_money%></td>
<td width="9%"><%=yqj_cost%></td>
<td width="9%"><%=paymode%></td>
<td width="21%"><%=addtime%></td>
<td width="9%"><font color=#FF0000><%=zt%></font></td>
<td width="9%"><a href=SaveUserInfo.asp?id=<%=id%>&nodot=<%=ddbh%>&action=delorder&page=<%=page%>>删除</a></td>
</tr>
<%
rs.movenext
ii=ii+1
wend%>
<tr>
<td colspan="8"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")%></td>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="end.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -