📄 order_caigou.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp"-->
<%
if session("id")="" then
session("pageid")="manage"
response.redirect "../../login/login.asp"
else
%>
<link rel="stylesheet" type="text/css" href="../../css/style.css">
<body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0>
<%
DIM rs
DIM sql
if not isempty(request("selAnnounce")) then
   idlist=request("selAnnounce")
   if instr(idlist,",")>0 then
     dim idarr
     idArr=split(idlist)
     dim id
     for i = 0 to ubound(idarr)
       id=clng(idarr(i))
       call deleteannounce(id)
     next
   else
     call deleteannounce(clng(idlist))
  end if
end if 
SearchText=request("SearchText")
set rs=server.createobject("adodb.recordset") 
sql="select * from orderlist where product_name like '%"&request("SearchText")&"%'"
sql=sql & " and gsid="&session("id")&""
sql=sql & " order by Order_ID desc"
rs.open sql,conn,1,1  
dim MaxPerPage
MaxPerPage=20

'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
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
%>
<center>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="600">
  <TBODY>
  <Form name="search" method="POST" action="default.asp">
  <TR>    
    <TD height=30>
    <font color="#ff0000">点击订单产品名称查看详细信息!</font>
    </td>
    <TD>
    <td><IMG border=0 src="../images/search.gif"></td>
    <td>&nbsp;搜索关键字:<input type="text" name="SearchText" size="25">&nbsp;&nbsp;
     <INPUT align=absMiddle border=0 src="../images/search1.gif" type=image>
    </td>
   </TR>
   </FORM>
   </TBODY>
</TABLE><BR><BR>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=550>
  <TBODY>
  <TR>
    <TD vAlign=top>
      <Form name="search" method="POST" action="Order_caigou.asp">
      <TABLE border=1 borderColor=#111111 borderColorDark=#acd6ff borderColorLight=#acd6ff cellPadding=3 cellSpacing=0 height=50 width="98%">
        <TBODY>
        <TR bgColor=#ddeeff>
          <TD width="50" align="center">订单号</td>
          <TD width="220" align="center">产品名称</td>
          <TD width="40" align="center">售价</td>
          <TD width="40" align="center">数量</td>
          <TD width="140" align="center">下单日期</td>
          <TD width="70" align="center">留言反馈</td>
          <TD width="40" align="center"><input type='submit' value='删除'></td>
        </TR>
        <%do while not rs.eof%>
        <TR bgcolor="#ffffff"> 
          <TD><font face="Arial"><b>1000<%=rs("order_id")%></b></font></td>
          <TD><a href="order_list.asp?orderid=<%=rs("order_id")%>"><%=rs("product_name")%></a></td>
          <TD align="center"><%if rs("p_newprice")=0 then%>面议<%else%><%=rs("P_NewPrice")%><%end if%></td>
          <TD align="center"><%=rs("Number")%></td>
          <TD align="center"><%=rs("Regtime")%></a></td>
          <TD align="center"><a href=../../company/contact.asp?id=<%=rs("reid")%>><font color=blue>留言通知</font></td>
          <TD align="center"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("order_ID"))%>'></td>
                  </TR>
        <%i=i+1
          IF i>=MaxPerPage then exit do
          rs.movenext
          loop
        %>
        </form>
      </TABLE>
    </TD>
  </TR>
</TABLE>
<%showpage ""%>
</center>
<%
function showpage(filename)
response.write "<form method=Post action='"&filename&"'>"
%> 
<table border="0" cellPadding="0" cellSpacing="1" width=540>  
  <tr>
    <td>
    <%
    Response.write "页次:" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & "&nbsp;"
    Response.write "共<font color=#ff0000>" &  Cstr(Rs.RecordCount) & "</font>订单&nbsp;&nbsp;"
    %>
    </td>
    <td align=right>
    <%
    If currentpage > 1 Then
       response.write "[<a href='"&filename&"?page="+cstr(1)+"&SearchText="&SearchText&"'>首页</a>]"  
       Response.write "[<a href='"&filename&"?page="+Cstr(currentpage-1)+"&SearchText="&SearchText&"'>前页</a>]"
    Else
       Response.write "[首页]"
       Response.write "[前页]"      
    End if
   
    If currentpage < Rs.PageCount Then
       Response.write "[<a href='"&filename&"?page="+Cstr(currentPage+1)+"&SearchText="&SearchText&"'>后页</a>]"
       Response.write "[<a href='"&filename&"?page="+Cstr(Rs.PageCount)+"&SearchText="&SearchText&"'>尾页</a>]&nbsp;&nbsp;"
    Else
       Response.write "[后页]"
       Response.write "[尾页]&nbsp;&nbsp;"       
    End if
    Response.write "</td>"   
    %>
    </td>  
  </tr>
  </form>
</table>
</center>
<%
end function
sub deleteannounce(id)
  dim rs,sql
  <!--#include file="../../inc/check.asp"-->
  set rs=server.createobject("adodb.recordset")
  sql="delete from [orderlist] where order_id="&cstr(id)
  conn.execute sql
  if err.Number<>0 then
     err.clear
     response.write "删 除 失 败 !<br>"
  end if
End sub
%>
</body>
<%end if%>
</html>
⌨️ 快捷键说明

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