xssort.asp
来自「《网上商品交易系统》 开发及测试环境 操作系统：Windows 2000 」· ASP 代码 · 共 225 行
ASP
225 行
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/sell.asp" -->
<%
varsdate = "2004/01/01"
if (Request.Form("fif") <> "") then varsdate = Request.Form("fif")
varedate = "2004/01/01"
if (Request.Form("fife") <> "") then varedate = Request.Form("fife")
vartype1 = "spname"
if (Request.Form("ftype") <> "") then vartype1 = Request.Form("ftype")
varsort = "DESC"
if (Request.Form("fsort") <> "") then varsort = Request.Form("fsort")
set rssum = Server.CreateObject("ADODB.Recordset")
sql = "SELECT spid,spname,cd,gg,bz,dw, sum(je) AS sumje ,sum(sl) AS sumsl "&_
" FROM dbo.tab_sell WHERE xsdate >= '" + Replace(varsdate, "'", "''") +_
"' AND xsdate < '" + Replace(varedate, "'", "''") +_
"' GROUP BY spid,spname,cd,gg,bz,dw ORDER BY " + Replace(vartype1, "'", "''") +_
" " + Replace(varsort, "'", "''") + ""
rssum.open sql,conn,1,3
%>
<html>
<head>
<title>明日企业网上销售管理系统--商品销售排行！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet">
<script language="JavaScript">
function mysubmit(){
if (form1.fmonth.value =="myempty"){alert("请选择月份！");form1.fmonth.focus();return;}
mymonths=form1.fmonth.value
if (form1.fmonth.value.length==1){
mymonths="0"+form1.fmonth.value;}
form1.fif.value=String(new Date().getYear())+"/"+mymonths+"/01";
if (form1.fmonth.value==12)
{ form1.fife.value=String(new Date().getYear()+1)+"/01/01";}
else
{ mymonth=String(parseInt(form1.fmonth.value)+1);
if (mymonth.length==1)
{ mymonth="0"+mymonth;}
form1.fife.value=String(new Date().getYear())+"/" +mymonth+"/01";}
form1.submit();
}
</script>
<% session("mymonth")=Request.Form("fmonth") %>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../../images/bg.gif">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="134">
<tr>
<td valign="top">
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="43">
<tr>
<td>
<h2 style="filter:glow(color=#ccccff,strength=5);height:1pt"align="center">
<font size="2" color=#000099>
商品销售排行</font></h2>
</td>
</tr>
</table>
<table width="590" border="0" cellspacing="-2" cellpadding="-2" height="186">
<tr>
<td height="14" colspan="2" valign="top">
<form name="form1" method="post" action="">
<select name="fmonth" >
<option value="myempty" 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>
<option value="7">七月</option>
<option value="8">八月</option>
<option value="9">九月</option>
<option value="10">十月</option>
<option value="11">十一月</option>
<option value="12">十二月</option>
</select>
<select name="ftype">
<option value="sumje" selected>金额</option>
<option value="sumsl">数量</option>
<option value="spid">商品编号</option>
<option value="spname">商品名称</option>
</select>
<select name="fsort">
<option value="DESC" selected>降序排序</option>
<option value="ASC">升序排序</option>
</select>
<input type="button" name="Button" value="排序" onclick=mysubmit()>
<input type="hidden" name="fif">
<input type="hidden" name="fife">
<font color="#00CCFF">注：在您未选择月份时，销售信息将无法显示。 </font>
</form>
</td>
</tr>
<tr>
<td height="24" colspan="2" valign="top">
<div align="right"><font color="#336699"><i><font color="#990000"><b>
<font color="#336699"><%=session("mymonth") %></font></b></font>
月份销售排行表</i></font></div>
</td>
</tr>
<tr>
<td>
<table width="590" border=1 bordercolor=#ffffff bordercolordark=#ffffff
bordercolorlight=#0099ff cellpadding=-1 cellspacing=0 height="27" align="center">
<tr bgcolor="#C8E3FF">
<td width="89" height="19">
<div align="center"></div>
<div align="center"><font color="#333399">商品编号</font></div>
</td>
<td width="104" height="19">
<div align="center"><font color="#333399">商品名称</font></div>
</td>
<td width="70" height="19">
<div align="center"><font color="#333399">产地</font></div>
</td>
<td width="65" height="19">
<div align="center"><font color="#333399">规格</font></div>
</td>
<td width="69" height="19">
<div align="center"><font color="#333399">包装</font></div>
</td>
<td width="99" height="19">
<div align="center"><font color="#333399">数量</font></div>
</td>
<td width="78" height="19">
<div align="center"><font color="#333399">金额</font></div>
</td>
</tr>
<% If Not rssum.EOF Or Not rssum.BOF Then %>
<% session("totalje") = 0 %>
<% session("totalsl") = 0 %>
<% session("pzs") = 0 %>
<% While NOT rssum.EOF %>
<% session("totalje")=session("totalje")+rssum("sumje") %>
<% session("totalsl")=session("totalsl")+rssum("sumsl") %>
<% session("pzs")=session("pzs")+1 %>
<tr bgcolor="#dddddd">
<td width="89" bgcolor="#D9ECFF" height="19">
<div align="center"><font color="#336699"><%=rssum("spid") %></font></div>
</td>
<td width="104" bgcolor="#D9ECFF" height="19">
<div align="center"><font color="#336699"><%=rssum("spname") %></font></div>
</td>
<td width="70" bgcolor="#D9ECFF" height="19">
<div align="center"><font color="#336699"><%=rssum("cd") %></font></div>
</td>
<td width="65" bgcolor="#D9ECFF" height="19">
<div align="center"><font color="#336699"><%=rssum("gg") %></font></div>
</td>
<td bgcolor="#D9ECFF" width="69" height="19">
<div align="center"><font color="#336699"><%=rssum("bz") %></font></div>
</td>
<td bgcolor="#D9ECFF" width="99" height="19">
<div align="center"><font color="#336699">
<%=rssum("sumsl") %>( <%=rssum("dw") %> )</font></div>
</td>
<td bgcolor="#D9ECFF" width="78" height="19">
<div align="center"><font color="#336699"><%=rssum("sumje") %></font></div>
</td>
</tr>
<% rssum.MoveNext()
Wend %>
<% end if %>
<% If rssum.EOF and rssum.BOF Then %>
<tr bgcolor="#d9ecff">
<td width="89" height="19">
<div align="center"></div>
<div align="center"><font color="#333399"> </font></div>
</td>
<td width="104" height="19">
<div align="center"><font color="#333399"> </font></div>
</td>
<td width="70" height="19">
<div align="center"><font color="#333399"> </font></div>
</td>
<td width="65" height="19">
<div align="center"><font color="#333399"> </font></div>
</td>
<td width="69" height="19">
<div align="center"><font color="#333399"> </font></div>
</td>
<td width="99" height="19">
<div align="center"><font color="#333399"> </font></div>
</td>
<td width="78" height="19">
<div align="center"><font color="#333399"> </font></div>
</td>
</tr>
<% end if %>
</table>
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="17">
<div align="right">
<% If Not rssum.EOF Or Not rssum.BOF Then %>
<font color="#336699">商品</font><font color="#336699">数：<%=session("pzs")%></font>
<font color="#336699"> 总数量：
<%=session("totalsl")%></font><font color="#336699">
总销售额：<%=session("totalje")%></font>
<% end if %>
</div>
</td>
</tr>
<tr>
<td>
<table width="590" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td height="21" width="78"> </td>
<td height="21" width="133"> </td>
<td height="21" width="138"> </td>
<td height="21" width="241"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?