📄 order_list.asp
字号:
<!--#include file="conn.asp" -->
<%
if session("username")="" then
response.write "<table><tr><td>你还未登陆，或登陆已超时，请重新登陆！</td></tr>"
response.write "<tr><td><a href='login.htm' target=_parent>返回</a></td></tr></table>"
response.end
end if
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table cellspacing=0 cellpadding=0 width=100% border=0 align="center">
<tbody>
<tr>
<td valign=top width=100%>
<table cellspacing=0 cellpadding=0 width=100% align=center border=0>
<tbody>
<tr>
<td valign="TOP">
<div align=center>
<table cellspacing=0 cellpadding=5 width="100%" border=0>
<tbody>
<tr>
<td align="center" class="headbold"> <font color=ff0000> 所有订单</font>列表</td>
</tr>
</tbody>
</table>
<table width="100%"
border=0 cellpadding=2 cellspacing=1 class="table1">
<form method="post" action="order_del.asp">
<tr class="th1">
<td width=60 height=21 align="center">订单编号</td>
<td align="center">订货人ID</td>
<td width="50" align="center">收货人</td>
<td align="center">收货人电话</td>
<td width="40" align="center">城市</td>
<td align="center">订单状态</td>
<td align="center">取消</td>
<td align="center">银</td>
<td align="center">款</td>
<td align="center">积</td>
<td width=60 align="center">下单日期</td>
<td width=30 align="center">修改</td>
<td width=20 align="center"><b>
<input type="submit" name="Submit" value="删" class="input_cccccc">
</b></td>
</tr>
<%
sql="select * from Net008_orderlist order by adddate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql ,conn,1,2
if rs.recordcount<1 then
response.write"暂无信息！"
'response.end
end if
const maxperpage=15 '定义每一页显示的数据记录的常量
dim currentpage '定义当前页的变量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
%>
<tr class="th2">
<td width=30 height=21 align="center">
<%
response.write "<a href=orderlist_show.asp?id="&rs("id")&" class=LeftTypeLink>"
response.write rs("orderid")
response.write "</a>"
%>
</td>
<td align="center">
<%
userid=rs("userid")
sql_temp="select * from Net008_user where userid='"&cstr(userid)&"'"
set rs_temp=server.createobject("adodb.recordset")
rs_temp.open sql_temp,conn,1,2
id=rs_temp("id")
userlevel=rs_temp("userlevel")
response.write "<a href='user_modi.asp?id="&cint(id)&"' class='LeftTypeLink'>"
response.write userid
response.write "</a>"
%>
</td>
<td width="50" align="center"> <a href=search_orderlist_result.asp?searchkey2=<%=userid%> class="LeftTypeLinkU">
<%response.write rs("guestname")%>
</a> </td>
<td align="center">
<%
if rs("mobilephone")="" then
response.write rs("tel")
else
response.write rs("mobilephone")
end if
%>
</td>
<td width="40" align="center">
<%
cityid=rs("city")
sql_temp="select * from Net008_province where cityid='"&cstr(cityid)&"'"
set rs_temp=server.createobject("adodb.recordset")
rs_temp.open sql_temp,conn,1,2
response.write rs_temp("cityname")
rs_temp.close
set rs_temp=nothing
%>
</td>
<td align="center">
<%
order_status=rs("order_status")
cancelok=rs("cancelok")
if order_status=2 then
response.write "<font color=009900>货已发出</font>"
elseif order_status=3 then
response.write "<font color=cccccc>客户已确认到货</font>"
elseif order_status=4 then
response.write "<font color=0099CC>已收款正在配货打包</font>"
elseif order_status=5 then
response.write "<font color=9933FF>订单已确认请尽快汇款</font>"
elseif cancelok=3 then
response.write "<font color=993300>客户要求取消</font>"
else
response.write "<font color=ff0000>订单未确认</font>"
end if
%>
</td>
<td align="center">
<%
if cancelok=1 then
response.write "<font color=cccccc>不能</font>"
elseif cancelok=2 then
response.write "<font color=ff0000>能</font>"
else
response.write "<font color=993300>已取消</font>"
end if
%>
</td>
<td align="center">
<%
moneyId=rs("money")
sql_temp="select * from Net008_sendmoney where moneyid='"&cstr(moneyId)&"'"
set rs_temp=server.createobject("adodb.recordset")
rs_temp.open sql_temp,conn,1,2
response.write rs_temp("moneyname1")
rs_temp.close
set rs_temp=nothing
%>
</td>
<td align="center">
<%
sum_price=0
newpriceArray=split(rs("newprice"),"|")
vippriceArray=split(rs("vipprice"),"|")
buynumberArray=split(rs("buynumber"),"|")
For kk = LBound(newpriceArray)+1 To UBound(newpriceArray)
newprice=newpriceArray(kk)
vipprice=vippriceArray(kk)
buynumber=buynumberArray(kk)
if userlevel=2 then
sum_price=sum_price+vipprice*buynumber
else
sum_price=sum_price+newprice*buynumber
end if
next
'计算邮费
sendproductid=rs("sendproduct")
sql_temp1="select * from Net008_sendproduct where sendproductid='"&cstr(sendproductid)&"'"
set rs_temp1=server.createobject("adodb.recordset")
rs_temp1.open sql_temp1,conn,1,2
sendproductmenoy=rs_temp1("sendproductprice")
sum_price1=sum_price+sendproductmenoy
'计算礼品包装费
packid123=rs("giftpack")
if packid123<>100 and packid123<>101 then
sql_temp123="select * from Net008_giftpack where packid='"&cstr(packid123)&"'"
set rs_temp123=server.createobject("adodb.recordset")
rs_temp123.open sql_temp123,conn,1,2
packprice123=rs_temp123("packprice")
sum_price1=sum_price1+packprice123
end if
'显示总价
response.write "<a href=# title="&rs_temp1("sendproductname")
if packid123<>100 and packid123<>101 then
response.write "及礼品"
response.write rs_temp123("packname")
end if
response.write ":总计"&sum_price1&"元 class=LeftTypeLink>"&sum_price&"</a>"
%>
</td>
<td align="center">
<%
sql_temp="select * from Net008_user where userid='"&cstr(userid)&"'"
set rs_temp=server.createobject("adodb.recordset")
rs_temp.open sql_temp,conn,1,2
response.write "<a href=emoney_per_list.asp?orderid="&rs("orderid")&"&userid="&rs("userid")&"&sum_price="&sum_price&" class=LeftTypeLinkU>"
'计算并显示积分
sql_money="select * from Net008_emoney where userid='"&cstr(userid)&"'"
set rs_money=server.createobject("adodb.recordset")
rs_money.open sql_money,conn,1,2
sum_emoney=0
if rs_money.recordcount<1 then
response.write sum_emoney
else
for money_i=1 to rs_money.recordcount
if rs_money("addsub")="+" then
sum_emoney=sum_emoney+rs_money("emoney")
else
sum_emoney=sum_emoney-rs_money("emoney")
end if
rs_money.movenext
next
response.write sum_emoney
end if
'response.write rs_temp("emoney")
response.write "</a>"
rs_temp.close
%>
</td>
<td width="60" align="center"> <%=FormatDateTime(rs("adddate"),2)%>
</td>
<td width=30 align="center"><a href="orderlist_show.asp?id=<%=rs("id")%>" class="LeftTypeLinkU">修改</a></td>
<td align="center">
<input type="checkbox" name="deleteid" value="<%=rs("id")%>" class="input_no">
</td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</form>
</table>
<br>
<table class=table1 cellspacing=1 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td
height=22 colspan=3 align=middle class="th1">页数：<%=currentpage%>/
<% =n%>
<%k=currentpage
if k<>1 then%>
[<a href="order_list.asp?pageid=1" class="LeftTypeLinkU">首页</a>]
[<a href="order_list.asp?pageid=<%=k-1%>" class="LeftTypeLinkU">上一页</a>]
<%else%>
[首页] [上一页]
<%end if%>
<%if k<>n then%>
[<a href="order_list.asp?pageid=<%=k+1%>" class="LeftTypeLinkU">下一页</a>]
[<a href="order_list.asp?pageid=<%=n%>" class="LeftTypeLinkU">尾页</a>]
<%else%>
[下一页] [尾页]
<%end if%>
共有<font color="red"><%=totalput%></font>条信息</td>
</tr>
</tbody>
</table>
<br>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -