📄 admin_order.asp

📁 一套完整的在线购物系统
💻 ASP
字号:
<!-- #include file="inc/config.asp" -->
<!-- #include file="inc/md5.asp" -->
<!-- #include file="inc/conn.asp" -->
<%
if session("adminname")="" then
  response.redirect "admin_login.asp"
  response.end
end if
%>
<HTML>
<HEAD>
<TITLE>订单管理</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<style type=text/css>
body  { background:#AEC9FB; margin:0px; font:normal 12px 宋体; 
SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1; 
SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; 
SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #AABFEC;
}
table  { border:0px; }
td  { font:normal 12px 宋体; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<BODY>
<p>&nbsp;</p>
<%
dim rs,action,id,page,maxpage,iCount,iPageSize,ii
action=request.querystring("action")
id=request.querystring("id")
if action="edit" then
conn.execute("update goods_order set ddzt='"&request("orderzt")&"' where id="&id)
response.redirect"admin_order.asp"
else
set rs=server.createobject("adodb.recordset")
rs.open "select * from goods_order",conn,1,1
rs.PageSize=10
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


%>
<table cellpadding="0" cellspacing="1" border="0" align=center width="80%" bgcolor=#cacaca>
<tr><td bgcolor=#ffffff height=30 align=center colspan=4><B>客户订单管理</B></td></tr>
<tr bgcolor=#BADCF8 height=25 align=center><td>订单号</td><td width=120>下单用户</td>
<td width=120>收货方式</td><td width=150>订单状态</td></tr>
<% for ii=1 to ipagesize %><form action="?action=edit&id=<%=rs("id")%>" method=post>
<tr bgcolor=#D7E8F9 height=20><td align=center>
<A HREF="#" onclick="javascript:window.open('order_info.asp?id=<%=rs("id")%>',null,'width=700,height=600,scollingbar=auto')">
<%=rs("ddnum")%></A></td>
<td width=120 align=center><%=rs("username")%></td>
<td width=120 align=center><%=rs("sendway")%></td>
<td width=150 align=center><INPUT TYPE="text" NAME="orderzt" value="<%=rs("ddzt")%>" size=10>
&nbsp;<INPUT TYPE="submit" value="编辑"></td></tr>
<% 
   rs.movenext
   if rs.EOF then exit for
 next
%></form>
<%
response.write"<tr bgcolor=#D7E8F9><td align=right height=30 colspan=4>"
 if page<=1 then
        Response.Write ("首页 ")        
        Response.Write ("上页 ")
 else        
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=1>首页</A>")
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & (Page-1) & ">上页</A> ")
 end if

    if page>=maxpage then
        Response.Write ("下页 ")
        Response.Write ("尾页 ")            
    else
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & (Page+1) & ">下页</A> ")
        Response.Write("<A HREF=list.asp?sid="&sid&"&Page=" & maxpage & ">尾页</A> ")            
    end if
    Response.Write(" 页次：" & page & "/" & maxpage & "页")
    Response.Write(" 共有" & iCount & "种商品")
	response.write"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>"
 
%>
</table>
<% end if %>
</BODY>
</HTML>
⌨️ 快捷键说明

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