buyer_report.asp
来自「非常有商业价值的软件」· ASP 代码 · 共 141 行
ASP
141 行
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<!--#include file="../my_lib/pages.asp"-->
<html>
<head>
<title>购物图表</title>
<LINK href="style.css" rel=stylesheet type=text/css>
</head>
<body>
<div align="center">
<table width="760" cellspacing="1">
<tr>
<td align="center" height="20" colspan="2"> </td>
<td align="center" height="20" width="159"> </td>
<td align="center" height="20" width="123"> </td>
<td align="right" height="20" width="281"><a href="#" onClick="window.print();return false">>>打印该页报表</a>
</td>
</tr>
<tr>
<td align="center" bgcolor="#EFEFEF" height="20" width="51">ID </td>
<td align="center" bgcolor="#EFEFEF" height="20" width="130">会员账号</td>
<td align="center" bgcolor="#EFEFEF" height="20" width="159">注册日期</td>
<td align="center" bgcolor="#EFEFEF" height="20" width="123">累计购物总额</td>
<td align="center" bgcolor="#EFEFEF" height="20" width="281">直方图</td>
</tr>
<%
sql="select yqj_money from buyer"
set rs=server.createobject ("adodb.recordset")
rs.open sql,conn,1,1
For ii = 1 To rs.RecordCount
Amount = Amount + rs("yqj_money")
rs.MoveNext
Next
rs.close
set rs=nothing
Set rs= Server.CreateObject("ADODB.Recordset")
sql = "Select * From user_info_list"
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<tr>"
response.write "<td width=500 colspan=4><font color=#FF0000>没有相应的数据</font></td>"
response.write "</tr>"
else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
end if
i=1
while not rs.eof and i<=rs.pagesize
userid=rs("txt_login_name")
id=rs("id")
dat_regtime=rs("dat_regtime")
Set rss= Server.CreateObject("ADODB.Recordset")
ssql="select userid from buyer where userid='"&userid&"'"
rss.open ssql,conn,1,1
if rss.eof then
num=0
rss.close
set rss=nothing
else
sssql="select sum(product_price) as num from buyer where userid='"&userid&"'"
set rsss=conn.execute (sssql)
num=rsss("num")
rsss.close
set rsss=nothing
end if
Percent = Round((num/Amount)*100,2)
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="20" width="51"><%=(page-1)*19+i%></td>
<td align="center" bgcolor="#FFFFFF" height="20" width="130"><%response.write "<a href='memeber_info.asp?id="&id&"'>"&userid&"</a>"%></td>
<td align="left" bgcolor="#FFFFFF" height="20" width="159"><%=dat_regtime%></td>
<td align="center" bgcolor="#FFFFFF" height="20" width="123">
￥<%=num%>元</td>
<td bgcolor="#FFFFFF" height="20" width="281"><img src="image/poll.gif" width="<%= Percent * 2.5 %>" height="10">
<% = Percent %>
%</td>
</tr>
<%
rs.movenext
i=i+1
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr>
<td colspan="5" bgcolor="#FFFFFF" height="20">
<div align="right">总购物金额：<font color="#FF3333">￥<% = formatNumber(Amount,0)%>元
</font></div></td>
</tr>
<tr>
<td colspan="5" align="center" bgcolor="#FFFFFF" height="20"><%call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=center>")%></td>
</tr>
</table>
</div>
<div align="center">
<table border="1" width="760" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F3F3F3">
<tr>
<td>
<ul>
<font color="#FF0000"><li>特别说明</li></font>
<li>直方图的来源：(单个用户累计购物总额÷全部用户的购物总额)×100%</li>
<li>累计购物总额为整数(四舍五入)</li>
</ul>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?