📄 cust_report.asp
字号:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<!--#include file="admin_common.asp"-->
<!--#include file="../script/convertDate.asp"-->
<!--#include file="../script/fixNumber.asp"-->
<SCRIPT language=javascript>
function explorer(iself,name1,name2,divID) {
if (iself.src.lastIndexOf(name1)==iself.src.length-name1.length) {
iself.src = name2;
document.all[divID].style.display='';
}
else {
iself.src = name1;
document.all[divID].style.display='none';
}
}
</SCRIPT>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Customer Report</title>
<body topmargin="0" rightmargin="0" leftmargin="0" bottommargin="0">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="images/menu_left_bg.gif">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="160" background="images/menu_left_bg.gif" style="background-repeat:repeat "><!--#include file="lib/inc_menuleft.asp"--></td>
<td align="left" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top" bgcolor="#004182" style="padding-top:5px; padding-bottom:10px; ">
<strong><font color="#FFFFFF" face="arial, tahoma, verdana"; size="5">THỐNG KÊ KHÁCH HÀNG</font></strong>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="12" align="center" valign="middle" style="padding-bottom:15px; padding-top:15px; ">
<strong>DANH SÁCH CÁC KHÁCH HÀNG MUA NHIỀU NHẤT TẠI CÔNG TY</strong>
</td>
</tr>
<tr>
<td style="padding-left:5px; padding-right:5px; " align="left" valign="top"><hr noshade size="1">
<table width="100%%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle" bgcolor="#FFCC99">
<td width="3%" bgcolor="#FFCC99"><strong><font face="arial, tahoma, verdana" size="2">STT</font></strong></td>
<td width="2%"> </td>
<td width="23%" align="left" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2">Tên khách hàng</font></strong></td>
<td width="21%" align="left" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2">Email</font></strong></td>
<td width="19%" align="center" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2">Số lần mua hàng</font></strong></td>
<td width="32%" align="right" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2">Tổng tiền <span style="color:#FF0000 ">(USD)</span></font></strong></td>
</tr>
<tr>
<td colspan="6"><hr noshade size="1"></td>
</tr>
<%
var rsCust = Server.CreateObject("ADODB.Recordset");
var strSQL = "Select * From vwTop_10_bestCust Order By Total Desc, Number Desc";
rsCust.Open(strSQL,oConn,3,1);
var dem=1;
while((!rsCust.BOF)&&(!rsCust.EOF))
{
%>
<tr valign="middle" bgcolor="#FFFFFF" style="padding-bottom:3px; padding-top:4px; ">
<td align="center"><%=dem%></td>
<td align="center"><img name="image<%=dem%>" onClick="explorer(this,'images/plus.gif','images/sub.gif','div<%=dem%>');" src="images/plus.gif" width="9" height="9">
</td>
<td align="left" style="padding-left:4px; color:darkblue "> <a href="#" onClick="JavaScript:openPopup('popup_Customer.asp?cid=<%=rsCust.Fields('CID')%>');" class="name"><%=rsCust.Fields("CName")%></a></td>
<td align="left" style="padding-left:4px; color:darkblue "><%=rsCust.Fields("CEmail")%></td>
<td align="center" style="padding-left:4px; color:darkblue "><%=rsCust.Fields("Number")%></td>
<td align="right" style="padding-left:4px; color:darkblue "><strong><%=fixDecimalPlaces(rsCust.Fields("Total"),2)%></strong></td>
</tr>
<tr style="padding-bottom:3px; padding-top:3px; display:none " id="div<%=dem%>">
<td colspan="2" align="center" valign="middle"> </td>
<td colspan="4" align="left" valign="top" style="padding-left:4px; color:darkblue "><hr noshade size="1">
<table width="100%%" border="1" style="border-collapse:collapse; border-color:#669966 " bordercolor="#669966" cellspacing="0" cellpadding="0">
<tr bgcolor="#006633">
<td width="6%" align="center" valign="middle"><strong><font face="arial, tahoma, verdana" size="2" color="#FFFFFF">STT</font></strong></td>
<td width="19%" align="center" valign="middle" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2" color="#FFFFFF">Ngày</font></strong></td>
<td width="37%" align="center" valign="middle" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2" color="#FFFFFF">Tên hàng</font></strong></td>
<td width="11%" align="center" valign="middle" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2" color="#FFFFFF">Số lượng</font></strong></td>
<td width="13%" align="center" valign="middle" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2" color="#FFFFFF">Đơn giá</font></strong></td>
<td width="14%" align="right" valign="middle" style="padding-left:4px; "><strong><font face="arial, tahoma, verdana" size="2" color="#FFFFFF">Thành tiền</font></strong></td>
</tr>
<tr>
<td colspan="6"> </td>
</tr>
<%
var rs = Server.CreateObject("ADODB.Recordset");
var strSQL;
strSQL = "SELECT Distinct OID, ODate, OStatus, OTotal FROM vwOrder WHERE CID = " + parseInt(rsCust.Fields("CID"));
strSQL+= " And OStatus=1 And ODelete=1 Order By ODate Desc, OID Desc";
rs.Open(strSQL,oConn,3,1);
var dem2=1;
while((!rs.BOF)&&(!rs.EOF)){
var strSQL2 = "SELECT PName, OQuantity, PPrice, OStatus, OID, PID FROM vwOrder WHERE OID = " + rs.Fields("OID");
rs2=Server.CreateObject("ADODB.Recordset");
rs2.Open(strSQL2,oConn,3,1);
var i = 1;
while (!rs2.EOF && !rs2.BOF){
%>
<tr style="padding-bottom:3px; padding-top:4px; "><%if (i==1){%>
<td align="center" valign="middle" rowspan="<%=rs2.RecordCount%>"><font face="Arial, Tahoma, Verdana" size="2"><%=dem2%></font></td>
<td align="center" valign="middle" rowspan="<%=rs2.RecordCount%>">
<font color="#663300"><strong><font size="2"><%=convertDate(rs.Fields("ODate"))%></font></strong></font> <br>
<span style="font-family:Arial, Verdana, Tahoma; font-size:10px; color: #666666 ">
<a title="Hóa đơn chi tiết" href="#" onClick="Javascript:openPopup('popup_OrderDetail.asp?oid=<%=rs.Fields("OID")%>');">(Chi tiết)</a>
</span>
</td>
<%}%>
<td align="left" valign="middle" style="padding-left:3px; "><a title="Chi tiết sản phẩm" href="#" onClick="JavaScript:openPopup('popup_ProductDetail.asp?proID=<%=rs2.Fields('PID')%>');"><%=rs2.Fields("PName")%></a></td>
<td align="center" valign="middle"><font face="Arial, Tahoma, Verdana" size="2"><%=rs2.Fields("OQuantity")%></font></td>
<td align="right" valign="middle" style="padding-right:3px; "><font face="Arial, Tahoma, Verdana" size="2"><%=rs2.Fields("PPrice")%></font></td>
<td align="right" valign="middle" style="padding-right:3px; "><font face="Arial, Tahoma, Verdana" size="2"><%=fixDecimalPlaces(eval(rs2.Fields("OQuantity")*rs2.Fields("PPrice")),2)%></font></td>
</tr>
<%
i++;
rs2.MoveNext();
}rs2.Close();
%>
<tr style="padding-top:5px; ">
<td colspan="5" align="right" valign="middle"><font color="darkblue" size="2" face="arial, tahoma, verdana"><strong>Tổng tiền</strong></font></td>
<td align="right" valign="middle" style="padding-right:3px; "><font color="#FF0000" face="Arial, Tahoma, Verdana" size="2">
<strong><%=fixDecimalPlaces(rs.Fields("OTotal"),2)%></strong></font></td>
</tr>
<%
dem2++;
rs.MoveNext();
if((!rs.BOF)||(!rs.EOF))
{
%>
<tr>
<td align="center" valign="middle"> </td>
<td align="center" valign="middle"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
}
}rs.Close();
%>
</table></td>
</tr>
<%
dem++;
rsCust.MoveNext();}rsCust.Close();
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -