📄 manage.asp

📁 西亚电子购物系统
💻 ASP
字号:
<!--#include file="../manage/check-0.asp"-->
<html>
<head>
<title>订货单审查</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
    function confirmdel(ordernumber,page){
       if (confirm("真的要删除这个订单?")) 
       window.location.href="order-delete.asp?ordernumber="+ordernumber+"&page="+page
     }  
</script>
<link href="../conn/css.css" rel="stylesheet" type="text/css">
</head>
<body  text="#000000">
<!--#include file="../conn/conn.asp"-->
<br><%
Dim go
go = "尚未处理"
If (Request.QueryString("orderstate") <> "") Then 
  go = Request.QueryString("orderstate")
End If
%>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from sia_order  Where orderstate = '" + Replace(go, "'", "''") + "' order by orderid desc" 
rs.open sqltext,conn,1,1

dim MaxPerPage
MaxPerPage=10

'假如没有数据时
If rs.eof and rs.bof then 
   call showpages
   response.write "<p align='center'><font color='#ff0000'>还没订单</font></p>"
   response.end
End if

'取得页数,并判断用户输入的是否西亚类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
 Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
   checkpage=instr(1,text,mid(request("page"),i,1))
   if checkpage=0 then
      exit for 
   end if
next

If checkpage<>0 then
      If NOT IsEmpty(request("page")) Then
        CurrentPage=Cint(request("page"))
        If CurrentPage < 1 Then CurrentPage = 1
        If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
      Else
        CurrentPage= 1
      End If
      If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
   CurrentPage=1
End if

call showpages
call list

If Rs.recordcount > MaxPerPage then
   call showpages
end if

Sub list()%>
    
<table width="620" align="center">
  <tr> 
    <td height="20" colspan="5" align="center" nowrap><a href="manage.asp?orderstate=尚未处理">最新订单</a> 
      --- <a href="manage.asp?orderstate=等待货款">等款订单</a>--- <a href="manage.asp?orderstate=已经发货">已发订单</a></td>
  </tr>
  <tr valign="middle"> 
    <td width="150" height="25" align="center" nowrap bgcolor="#CCCCCC">订单编号</td>
    <td width="200" height="25" align="center" nowrap bgcolor="#CCCCCC">会员名称</td>
    <td height="25" align="center" nowrap bgcolor="#CCCCCC">提交日期</td>
    <td width="60" height="25" align="center" nowrap bgcolor="#CCCCCC">订单状态</td>
    <td width="40" height="25" align="center" nowrap bgcolor="#CCCCCC">删除</td>
  </tr>
  <%
if not rs.eof then
  i=0
  do while not rs.eof 
%>
  <tr valign="middle"> 
    <td width="150" height="25" align="center" bgcolor="#f1f1f1"> 
      <%response.write "<a href='order-list.asp?orderid="&rs("orderid")&"&page="&CurrentPage&"'  >"&rs("ordernumber")&"</a>"%> </td>
    <td width="200" height="25" bgcolor="#f1f1f1">&nbsp;<%response.write "<a href='user-order.asp?sia_user="&rs("sia_user")&"'  >"&rs("sia_user")&"</a>"%></td>
    <td height="25" align="center" bgcolor="#f1f1f1">&nbsp;<%=rs("now")%></td>
    <td width="60" height="25" align="center" bgcolor="#f1f1f1"><font color="#FF6600"><%=rs("orderstate")%></font></td>
    <td width="40" height="25" align="center" bgcolor="#f1f1f1"> 
      <%response.write "<a href='javascript:confirmdel(" & rs("ordernumber") & ","& CurrentPage&")'>[删除]</a>"
%> </td>
  </tr>
  <%
   i=i+1
   if i >= MaxPerpage then exit do
   rs.movenext
   loop
end if
%>
</table>
    <%
End sub
rs.close
conn.close
%> 
<%
'显示翻页的子程序
sub showpages()%>
      

<table width="620" height="25" align="center" cellPadding="0" cellSpacing="0" bgColor="#CCCCCC">
  <%
response.write "<form method=Post action='manage.asp?orderstate="&go&"'>"
%> <tr>
          
    <td align="center"  bgcolor="#CCCCCC"> 
      <%
   Response.write "分页-"   
   If currentpage > 1 Then
      response.write "<a href='manage.asp?orderstate="&go&"&page="+cstr(1)+"'>首页</a>-"  
      Response.write "<a href='manage.asp?orderstate="&go&"&page="+Cstr(currentpage-1)+"'>前页</a>-"
   Else
      Response.write "首页-"
      Response.write "前页-"      
   End if
   
   If currentpage < Rs.PageCount Then
      Response.write "<a href='manage.asp?orderstate="&go&"&page="+Cstr(currentPage+1)+"'>后页</a>-"
      Response.write "<a href='manage.asp?orderstate="&go&"&page="+Cstr(Rs.PageCount)+"'>尾页</a>&nbsp;&nbsp;"
   Else
      Response.write "后页-"
      Response.write "尾页&nbsp;&nbsp;"       
   End if
   Response.write "页次:" & "" & Cstr(CurrentPage) &  "" & "/" & Cstr(rs.pagecount) & "&nbsp;"
   Response.write "" & Cstr(MaxPerPage) & "" & "份订单/页&nbsp" & "共" & "" & Cstr(Rs.RecordCount) & "" & "份订单&nbsp;&nbsp;"

response.write "</td><td align='right'>"
response.write "转到：<input type='text' name='page' size=4 maxlength=4 class=textbox value="&Currentpage&">&nbsp;"
   response.write "<input class=textbox-1 type='submit'  value='Go'  name='cndok'></span>&nbsp;&nbsp;"   
%>
    </td>  
   </tr></form>
  </table>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明

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