📄 user_order.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Cookies.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
font-family: "幼圆";
font-size: large;
color: #0000FF;
}
.style3 {color: #FF00FF}
.style4 {color: #00FF00}
.style7 {font-family: "幼圆"; font-size: medium; color: #0000FF; }
-->
</style>
</head>
<%
dim rs,us
set rs=server.CreateObject("adodb.recordset")
us="select * From user_order order by isdiposal desc"
rs.Open us,conn,1
%>
<body>
<h1 align="center">用户定单管理</h1>
<table width="820" height="78" border="1">
<tr>
<th width="67" height="39" scope="col">定单编号</th>
<th width="59" scope="col">用户ID</th>
<th width="69" scope="col">用户名</th>
<th width="50" scope="col">货物编号</th>
<th width="101" scope="col">货物名</th>
<th width="65" scope="col">订购数量</th>
<th width="96" scope="col">订货日期</th>
<th width="62" scope="col">付款方式</th>
<th width="88" scope="col">送货方式</th>
<th width="99" scope="col">是否发货</th>
</tr>
<%
if Not rs.EOF and Not rs.BOF then
if Request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(Request.QueryString("page_no"))
end if
rs.PageSize=10
rs.AbsolutePage=page_no
dim I
I=rs.PageSize
do while Not rs.EOF and I>0
I=I-1
%>
<tr>
<th height="31" scope="row"><%=rs(0)%></th>
<th><%=rs(1)%></th>
<th><%
set user=server.CreateObject("adodb.recordset")
str="select username From user where user_id="& rs(1)
user.open str,conn
%>
<%=user(0)%> </th>
<th><%=rs(2)%></th>
<th><%
set goods=server.CreateObject("adodb.recordset")
str="select name From goods where goods_id="& rs(2)
goods.open str,conn
%>
<%=goods(0)%>
<%goods.close%></th>
<th><%=rs(3)%></th>
<th><%=rs(4)%></th>
<th><%=rs(5)%></th>
<th><%=rs(6)%></th>
<th><% if rs(7)=false then%><a href="sendgoods.asp?order_id=<%=rs(0)%>&goods_id=<%=rs(2)%>&cout=<%=rs(3)%>" class="style1">发货</a><%else%>
<span class="style7">已发货</span>
<%end if%><span class="style3">|</span><a href="back.asp?user_id=<%=rs(1)%>&order_id=<%=rs(0)%>" class="style4">回复</a></th>
</tr>
<%
user.close
rs.MoveNext
loop
%>
</table>
<table width="798" border="0">
<tr>
<th width="792" scope="col">请选择页面：
<%
for I=1 to rs.PageCount
if I=page_no then
Response.Write I & " "
else
Response.Write ("<a href='goods_manage.asp?page_no=" & I & "'>" & I & "</a>")
end if
next
else
Response.Write "没有用户!"
end if
%> </th>
</tr>
</table>
<%
rs.close
set rs=nothing
call closedb()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -