📄 admin_deliveritem.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
const PageSize=20
dim Action,OrderID
Action = Trim(request("Action"))
OrderID = Trim(request("OrderID"))
CurrentPage = Cl.GetClng(request("page"))
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><b>发 退 货 记 录 查 询</b></td>
</tr>
<tr class="tdbg" height="30">
<form name="form1" action="Admin_DeliverItem.asp" method="get">
<td>快速查找：
<select size=1 name="SearchType" onChange="javascript:submit()">
<option value="0" selected>显示所有记录</option>
<option value="1">今 天 的记录</option>
<option value="2">本周内的记录</option>
<option value="3">本月内的记录</option>
<option value="4">三个月内的记录</option>
<option value="5">所有发货记录</option>
<option value="6">所有退货记录</option>
</select> <a href="Admin_DeliverItem.asp">发退货记录首页</a></td>
</form>
<form name="form2" method="post" action="Admin_DeliverItem.asp">
<td>高级查询：
<select name="Field" id="Field">
<option value="OrderID">订单ID</option>
<option value="ConSignee" selected>收货人</option>
<option value="UserID">用户ID</option>
<option value="UserName">用户名</option>
<option value="DeliverCompany">送货公司</option>
<option value="DeliverSn">送货单号</option>
<option value="HandlerName">经手人</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 ">
<input name="SearchType" type="hidden" id="SearchType" value="7">
</td>
</form>
</table>
<br />
<script language="JavaScript" type="text/javascript">
CheckSel('SearchType','<%=SearchType%>');
CheckSel('Field','<%=Field%>');
</script>
<%
Select Case Action
Case "Add"
Case "Modify"
Case "Del"
Case Else
Call ItemMain()
End Select
Footer
Sub ItemMain()
SQL="Select DeliverID,OrderID,UserID,UserName,ConSignee,Direction,Handler,DeliverCompany,DeliverSn,Inputer,Received,DeliverTime,Remark from Cl_DeliverItem"
Select Case SearchType
Case 0
SQL=SQL & " order by DeliverID desc"
Case 1
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(d,AddTime," & SqlNowString & ")<1 order by DeliverID desc"
else
SQL=SQL & " where datediff('d',AddTime," & SqlNowString & ")<1 order by DeliverID desc"
end if
Case 2
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(week,AddTime," & SqlNowString & ")<1 order by DeliverID desc"
else
SQL=SQL & " where datediff('w',AddTime," & SqlNowString & ")<1 order by DeliverID desc"
end if
Case 3
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(month,AddTime," & SqlNowString & ")<1 order by DeliverID desc"
else
SQL=SQL & " where datediff('m',AddTime," & SqlNowString & ")<1 order by DeliverID desc"
end if
Case 4
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(month,AddTime," & SqlNowString & ")<3 order by DeliverID desc"
else
SQL=SQL & " where datediff('m',AddTime," & SqlNowString & ")<3 order by DeliverID desc"
end if
Case 5
SQL=SQL & " where Direction=0 order by DeliverID desc"
Case 6
SQL=SQL & " where Direction=1 order by DeliverID desc"
Case 7
SQL=SQL & " where "
Select Case Field
Case "OrderID"
SQL=SQL & "OrderID="&Cl.GetClng(Keyword)&" "
Case "UserID"
SQL=SQL & "UserID="&Cl.GetClng(Keyword)&" "
Case "UserName"
SQL=SQL & "UserName Like '%"&Keyword&"%' "
Case "ConSignee"
SQL=SQL & "ConSignee Like '%"&Keyword&"%' "
Case "DeliverCompany"
SQL=SQL & "DeliverCompany Like '%"&Keyword&"%' "
Case "DeliverSn"
SQL=SQL & "DeliverSn Like '%"&Keyword&"%' "
Case "HandlerName"
SQL=SQL & "HandlerName Like '%"&Keyword&"%' "
Case Else
SQL=SQL & "OrderNum Like '%"&Keyword&"%' "
End Select
SQL=SQL & "ConSignee Like '%"&Keyword&"%' "
Case Else
SQL=SQL & " order by DeliverID desc"
End Select
Set rs= Server.CreateObject("ADODB.Recordset")
OpenConn : rs.open sql,Conn,1,1
if rs.eof and rs.bof then
TotalPut=0
response.write "<p align=center><br />找不到订单！<br /></p>"
rs.close:set rs=Nothing:Exit Sub
End if
TotalPut=rs.recordcount
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*PageSize
SQL = rs.GetRows(PageSize)
rs.close:set rs=Nothing
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td width="80">日期</td>
<td width="30">方向</td>
<td width="60">用户名</td>
<td width="60">收货人</td>
<td>快递公司</td>
<td width="80">快递单号</td>
<td width="60">经手人</td>
<td width="40">已签收</td>
<td width="60">操作</td>
</tr>
<%for i=0 to Ubound(sql,2)
'DeliverID,OrderID,UserID=2,UserName,ConSignee,Direction=5,Handler,DeliverCompany,DeliverSn,Inputer,Received=10,DeliverTime,Remark=12
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="80" align="center"><%=SQL(11,i)%></td>
<td width="30" align="center"><%
if SQL(5,i)=0 then
Response.write "<font color=blue>发货</font>"
else
Response.write "<font color=red>退货</font>"
end if
%></td>
<td width="60" align="center"><a href="Admin_User.asp?Action=Modify&UserID=<%=SQL(2,i)%>"><%=SQL(3,i)%></a></td>
<td width="60" align="center"><a href="Admin_Order.asp?Action=ShowOrder&OrderID=<%=SQL(1,i)%>"><%=SQL(4,i)%></a></td>
<td align="center"><%=SQL(7,i)%></td>
<td width="80" align="center"><%=SQL(8,i)%></td>
<td width="60" align="center"><%=SQL(6,i)%></td>
<td width="40" align="center"><%
if SQL(10,i)=true then
Response.write "<font color=blue>√</font>"
else
Response.write "<font color=red>×</font>"
end if
%></td>
<td width="60" align="center"><a href="Admin_Order.asp?Action=Received&DeliverID=<%=SQL(0,i)%>">查看</a> <a href="Admin_Order.asp?Action=ShowOrder&OrderID=<%=SQL(1,i)%>">订单</a></td>
</tr>
<%
Next
Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"条","记录")
%>
</table>
<%
SQL=Empty
End Sub
%>
<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -