📄 admin_orderitem.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
const PageSize=20
dim Action,SearchType,Field,Keyword
Action = Trim(request("Action"))
CurrentPage = Cl.GetClng(request("page"))
SearchType = Cl.GetClng(request("SearchType"))
Field = Trim(request("Field"))
Keyword = Trim(request("Keyword"))
FileName = "Admin_OrderItem.asp?SearchType="&SearchType&"&Field="&Field&"&Keyword="&Keyword&""
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_OrderItem.asp" method="get">
<td>快速查找：
<select size=1 name="SearchType" id="SearchType" onChange="javascript:submit()">
<option value="0" selected>所有销售记录</option>
<option value="1">今天销售明细</option>
<option value="2">本周销售明细</option>
<option value="3">本月销售明细</option>
</select> <a href="Admin_OrderItem.asp">销售明细首页</a></td>
</form>
<form name="form2" method="post" action="Admin_OrderItem.asp">
<td>高级查询：
<select name="Field" id="Field">
<option value="InfoID">商品ID</option>
<option value="ProductName" selected>商品名称</option>
<option value="ProductSn">商品编号</option>
<option value="OrderID">订单ID</option>
<option value="OrderNum">订单编号</option>
<option value="UserID">用户ID</option>
<option value="UserName">用户名</option>
<option value="ConSignee">收货人</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="4">
</td>
</form>
</tr>
</table>
<script language="JavaScript" type="text/javascript">
CheckSel('SearchType','<%=SearchType%>');
CheckSel('Field','<%=Field%>');
</script>
<br />
<%
ItemMain
Footer
Sub ItemMain()
'SELECT * FROM a JOIN (b JOIN c ON (b.ref = c.id)) ON (a.id = b.id);
SQL="Select P.InfoID,P.ProductName,P.ProductUnit,O.OrderID,O.OrderNum,O.UserID,O.UserName,O.ConSignee,O.AddTime,I.ItemID,I.MarketPrice,I.MemberPrice,I.TruePrice,I.BuyNum,I.TotalPrice,I.PresentExp From Cl_Product As P Inner Join (Cl_Order As O Inner Join Cl_OrderItem As I On O.OrderID = I.OrderID) On P.InfoID = I.InfoID"
Select Case SearchType
Case 0
SQL=SQL & " order by O.OrderID desc"
Case 1
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(d,O.AddTime," & SqlNowString & ")<1 order by O.OrderID desc"
else
SQL=SQL & " where datediff('d',O.AddTime," & SqlNowString & ")<1 order by O.OrderID desc"
end if
Case 2
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(week,O.AddTime," & SqlNowString & ")<1 order by O.OrderID desc"
else
SQL=SQL & " where datediff('w',O.AddTime," & SqlNowString & ")<1 order by O.OrderID desc"
end if
Case 3
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(month,O.AddTime," & SqlNowString & ")<1 order by O.OrderID desc"
else
SQL=SQL & " where datediff('m',O.AddTime," & SqlNowString & ")<1 order by O.OrderID desc"
end if
Case 4
SQL=SQL & " where "
Select Case Field
Case "InfoID"
SQL=SQL & "P.InfoID="&Cl.GetClng(Keyword)&" "
Case "ProductName"
SQL=SQL & "P.ProductName Like '%"&Keyword&"%' "
Case "ProductSn"
SQL=SQL & "P.ProductSn Like '%"&Keyword&"%' "
Case "OrderID"
SQL=SQL & "O.OrderID="&Cl.GetClng(Keyword)&" "
Case "OrderNum"
SQL=SQL & "O.OrderNum Like '%"&Keyword&"%' "
Case "UserID"
SQL=SQL & "I.UserID="&Cl.GetClng(Keyword)&" "
Case "UserName"
SQL=SQL & "I.UserName Like '%"&Keyword&"%' "
Case "ConSignee"
SQL=SQL & "I.ConSignee Like '%"&Keyword&"%' "
Case Else
SQL=SQL & "P.ProductName Like '%"&Keyword&"%' "
End Select
SQL=SQL & " order by O.OrderID desc"
Case Else
SQL=SQL & " order by O.OrderID 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" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title" height="22" align="center">
<td><b>商 品 名 称</b></td>
<td width="100"><b>订单编号</b></td>
<td width="60"><b>用户名</b></td>
<td width="60"><b>会员价</b></td>
<td width="60"><b>实际价</b></td>
<td width="50"><b>数量</b></td>
<td width="80"><b>总金额</b></td>
<td width="40"><b>总积分</b></td>
<td width="75"><b>下单时间</b></td>
</tr>
<%
For i=0 to Ubound(SQL,2)
'P.InfoID,P.ProductName,P.ProductUnit=2,O.OrderID,O.OrderNum,O.UserID=5,O.UserName,O.ConSignee,O.AddTime=8,I.ItemID,I.MarketPrice=10,I.MemberPrice,I.TruePrice,I.BuyNum=13,I.TotalPrice,I.PresentExp=15
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td><a href="Admin_OrderItem.asp?SearchType=4&InfoID=<%=SQL(0,i)%>"><%=SQL(1,i)%></a></td>
<td width="100" align=center><a href="Admin_Order.asp?Action=ShowOrder&OrderID=<%=SQL(3,i)%>"><%=SQL(4,i)%></a></td>
<td width="60" align=center><a href="Admin_User.asp?Action=Modify&UserID=<%=SQL(5,i)%>"><%=SQL(6,i)%></a></td>
<td width="60" align="right"><%=SQL(11,i)%></td>
<td width="60" align="right"><%=SQL(12,i)%></td>
<td width="50" align="center"><%=SQL(13,i)%>/<%=SQL(2,i)%></td>
<td width="80" align="right"><%=SQL(14,i)%></td>
<td width="40" align="center"><%=SQL(15,i)%></td>
<td width="75" align="center"><%=SQL(8,i)%></td>
</tr>
<%Next%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td colspan="6" align="right">本页合计：</td>
<td align="right">200.00</td>
<td align="center">0</td>
<td></td>
</tr>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td colspan="6" align="right">总计金额：</td>
<td align="right">201.00</td>
<td align="center">0</td>
<td></td>
</tr>
</table>
<%
Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"条","记录")
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 + -