level 3
jianlao1
楼主
我现在在下面的代码中加个 所有用户的余额 合计，请问统计代码怎样写啊？
---------------------------------------------------------------------------------------------------------------
<!--#include file="conn.asp" -->
<!--#include file="inc/function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webtitle%></title>
<link href="inc/main.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="../suggest.js"></script>
</head>
<body leftmargin="8" topmargin="0" onclick="hide_suggest();">
<br>
<table width="817" border="0" cellpadding="0" cel
lsp
acing="1" height="34">
<tr>
<td width="60" valign="top"><p>输入姓名:</p></td>
<form action="?" method="post" name="form" id="form" autocomplete="off">
<td><input type="text" name="users" id="keyword" onClick="keyupdeal(event);" onKeyDown="keydowndeal(event);" onKeyUp="keyupdeal(event);" value="<%=
request("users") %>"/>
<input type="submit" name="Submit3" value="查询"><div id="suggest" style="position:absolute;"> </div></td></form>
</tr>
</table>
<table width="817" border="0" cellpadding="0" cellspacing="1" bgcolor="#0080C0">
<tr>
<td height="25" colspan="12" align="center" background="images/bj.gif" bgcolor="#FFFFFF"><strong>注册会员列表 </strong><a href="?">所有会员</a> <a
href="?shopid=<%= name1 %>"><%= name1 %></a> <a href="?shopid=<%= name2 %>"><%= name2 %></a></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#97D2FF" width="127">会员名</a></td>
<td align="center" bgcolor="#97D2FF" width="110"><font color="#FF0000"><b>余额</b></font></td>
<td align="center" bgcolor="#97D2FF" width="73">类型</td>
<td align="center" bgcolor="#97D2FF" width="130">电话</td>
<td align="center" bgcolor="#97D2FF" width="142">注册时间</td>
<td align="center" bgcolor="#97D2FF" width="113">查看日志</td>
</tr>
<%users=request("users")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [User] Order By ID Desc"
if users<>"" then Sql = "Select * From [User] where user like '%"&users&"%' Order By ID Desc"
if request("shopid")<>"" then Sql="Select * From [User] where type='"&request("shopid")&"' Order By ID Desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.Bof Then
Response.Write "<tr><td height=40 colspan=7 align=center bgcolor=#FFFFFF>暂无"&request("shopid")&"注册会员</td></tr>"
Else
Page = Request("Page")
If Page="" Then Page=1
Rs.PageSize = 20
PageSize = Rs.PageSize
Rs.AbsolutePage = Page
Do While Not Rs.EofAnd PageSize>0
%>
<tr <% if Rs("shenhe")<>"1" and isshenhe="yes" then Response.Write "bgcolor=#cccccc" Else Response.Write "bgcolor=#ffffff" End If %>>
<td height="25" align="center" width="127"><%=Rs("User")%></td>
<td align="center" width="110"><font color="#FF0000"><b><%=Rs("money")%></b></td>
<td align="center" width="73"><%=Rs("type")%></td>
<td align="center" width="130"><%=Rs("tel")%></td>
<td align="center" width="142"><%=Rs("RegTime")%></td>
<td align="center" width="113">
<% if isshenhe="yes" then
if Rs("shenhe")<>"1" then
Response.Write ""
else
Response.Write ""
end if
end if %><a href="?users=<%= request("users") %>&shopid=<%=request("shopid")%>&page=<%=request("page")%>&action=log&uid=<%=Rs("ID")%>#log">日志
</a></td>
</tr>
<%PageSize = PageSize-1
Rs.MoveNext
Loop
%>
<tr>
<td height="25" colspan="12" align="right" bgcolor="#E6E6E6">
<%
Response.Write "每页" &Rs.PageSize& "条/共" &Rs.RecordCount& "条 第" &Page& "页/共" &Rs.PageCount& "页 "
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page=1>首页</a> "
If CInt(Page)>1 then
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page="&Page-1&">上一页</a> "
Else
Response.Write "上一页 "
End If
If CInt(Page)<Rs.PageCount then
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page="&Page+1&">下一页</a> "
Else
Response.Write "下一页 "
End If
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page="&Rs.PageCount&">末页</a> "
%></td>
</tr>
<%
End If
Rs.Close
Set Rs=nothing
%>
</table>
<br>
<%
select case request("action")
case "cz"
%>
<% case "log" %>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [User] Where ID="&cint(request("uid"))
Rs.Open Sql,Conn,1,1
If Not Rs.Eof And Not Rs.Bof Then
%>
<table width="817" border="0" cellpadding="3" cellspacing="1" bgcolor="#0080C0">
<tr>
<td height="35" colspan="4" align="center" bgcolor="#0099FF"><a name=log>会 员 日 志</a></td>
</tr>
<tr>
<td width="67" height="30" align="right" bgcolor="#FFFFFF"><font color="#FF0000">*</font>用户名：</td>
<td width="156" bgcolor="#FFFFFF"><%=Rs("User")%></td>
<td width="144" bgcolor="#FFFFFF">当前余额：<%=Rs("money")%></td>
<td width="359" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="30" align="right" valign="top" bgcolor="#FFFFFF">操作日志：</td>
<td colspan="3" bgcolor="#FFFFFF"><%= left(Rs("log"),30000) %></td>
</tr>
</table>
<%
End If
Rs.Close
Set Rs=nothing
%>
<% case "xg" %>
<% end select %>
</body>
</html>
2014年05月08日 01点05分
1
---------------------------------------------------------------------------------------------------------------
<!--#include file="conn.asp" -->
<!--#include file="inc/function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webtitle%></title>
<link href="inc/main.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="../suggest.js"></script>
</head>
<body leftmargin="8" topmargin="0" onclick="hide_suggest();">
<br>
<table width="817" border="0" cellpadding="0" cel
lsp
acing="1" height="34">
<tr>
<td width="60" valign="top"><p>输入姓名:</p></td>
<form action="?" method="post" name="form" id="form" autocomplete="off">
<td><input type="text" name="users" id="keyword" onClick="keyupdeal(event);" onKeyDown="keydowndeal(event);" onKeyUp="keyupdeal(event);" value="<%=
request("users") %>"/>
<input type="submit" name="Submit3" value="查询"><div id="suggest" style="position:absolute;"> </div></td></form>
</tr>
</table>
<table width="817" border="0" cellpadding="0" cellspacing="1" bgcolor="#0080C0">
<tr>
<td height="25" colspan="12" align="center" background="images/bj.gif" bgcolor="#FFFFFF"><strong>注册会员列表 </strong><a href="?">所有会员</a> <a
href="?shopid=<%= name1 %>"><%= name1 %></a> <a href="?shopid=<%= name2 %>"><%= name2 %></a></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#97D2FF" width="127">会员名</a></td>
<td align="center" bgcolor="#97D2FF" width="110"><font color="#FF0000"><b>余额</b></font></td>
<td align="center" bgcolor="#97D2FF" width="73">类型</td>
<td align="center" bgcolor="#97D2FF" width="130">电话</td>
<td align="center" bgcolor="#97D2FF" width="142">注册时间</td>
<td align="center" bgcolor="#97D2FF" width="113">查看日志</td>
</tr>
<%users=request("users")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [User] Order By ID Desc"
if users<>"" then Sql = "Select * From [User] where user like '%"&users&"%' Order By ID Desc"
if request("shopid")<>"" then Sql="Select * From [User] where type='"&request("shopid")&"' Order By ID Desc"
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.Bof Then
Response.Write "<tr><td height=40 colspan=7 align=center bgcolor=#FFFFFF>暂无"&request("shopid")&"注册会员</td></tr>"
Else
Page = Request("Page")
If Page="" Then Page=1
Rs.PageSize = 20
PageSize = Rs.PageSize
Rs.AbsolutePage = Page
Do While Not Rs.EofAnd PageSize>0
%>
<tr <% if Rs("shenhe")<>"1" and isshenhe="yes" then Response.Write "bgcolor=#cccccc" Else Response.Write "bgcolor=#ffffff" End If %>>
<td height="25" align="center" width="127"><%=Rs("User")%></td>
<td align="center" width="110"><font color="#FF0000"><b><%=Rs("money")%></b></td>
<td align="center" width="73"><%=Rs("type")%></td>
<td align="center" width="130"><%=Rs("tel")%></td>
<td align="center" width="142"><%=Rs("RegTime")%></td>
<td align="center" width="113">
<% if isshenhe="yes" then
if Rs("shenhe")<>"1" then
Response.Write ""
else
Response.Write ""
end if
end if %><a href="?users=<%= request("users") %>&shopid=<%=request("shopid")%>&page=<%=request("page")%>&action=log&uid=<%=Rs("ID")%>#log">日志
</a></td>
</tr>
<%PageSize = PageSize-1
Rs.MoveNext
Loop
%>
<tr>
<td height="25" colspan="12" align="right" bgcolor="#E6E6E6">
<%
Response.Write "每页" &Rs.PageSize& "条/共" &Rs.RecordCount& "条 第" &Page& "页/共" &Rs.PageCount& "页 "
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page=1>首页</a> "
If CInt(Page)>1 then
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page="&Page-1&">上一页</a> "
Else
Response.Write "上一页 "
End If
If CInt(Page)<Rs.PageCount then
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page="&Page+1&">下一页</a> "
Else
Response.Write "下一页 "
End If
Response.Write "<a href=?users="&request("users")&"&shopid="&request("shopid")&"&Page="&Rs.PageCount&">末页</a> "
%></td>
</tr>
<%
End If
Rs.Close
Set Rs=nothing
%>
</table>
<br>
<%
select case request("action")
case "cz"
%>
<% case "log" %>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [User] Where ID="&cint(request("uid"))
Rs.Open Sql,Conn,1,1
If Not Rs.Eof And Not Rs.Bof Then
%>
<table width="817" border="0" cellpadding="3" cellspacing="1" bgcolor="#0080C0">
<tr>
<td height="35" colspan="4" align="center" bgcolor="#0099FF"><a name=log>会 员 日 志</a></td>
</tr>
<tr>
<td width="67" height="30" align="right" bgcolor="#FFFFFF"><font color="#FF0000">*</font>用户名：</td>
<td width="156" bgcolor="#FFFFFF"><%=Rs("User")%></td>
<td width="144" bgcolor="#FFFFFF">当前余额：<%=Rs("money")%></td>
<td width="359" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="30" align="right" valign="top" bgcolor="#FFFFFF">操作日志：</td>
<td colspan="3" bgcolor="#FFFFFF"><%= left(Rs("log"),30000) %></td>
</tr>
</table>
<%
End If
Rs.Close
Set Rs=nothing
%>
<% case "xg" %>
<% end select %>
</body>
</html>
![[狂汗]](/static/emoticons/u72c2u6c57.png)
往事已成烟~~~