📄 opration_count.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<!--#include file="conn.asp" -->
<%
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>业务纪录</title>
<link href="../oMyGod.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../js/icon.js"></script>
<script language="JavaScript" src="../js/table.js"></script>
<script language="JavaScript" src="opration.js"></script>
</head>
<body style="overflow: scrolling;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5" background="../images/bg_D4D0C8.gif"><img src="../images/null5.gif" width="5" height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="../images/bg_D4D0C8.gif">
<tr>
<td align="left" background='../images/tab_top_background_runner.gif'>
<table border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="../images/tab_on_left.gif" width="16" height="24"></td>
<td background="../images/tab_on_middle.gif">区域统计</td>
<td><img src="../images/tab_on_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onclick="window.location.replace('opration_countTime.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="../images/tab_off_left.gif" height="24" width="16"></td>
<td background="../images/tab_off_middle.gif">时间统计</td>
<td><img src="../images/tab_off_right.gif" height="24" width="16"></td>
</tr>
</table>
<table onclick="window.location.replace('opration_countContent.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr >
<td><img src="../images/tab_off_left.gif" width="16" height="24"></td>
<td background="../images/tab_off_middle.gif">业务种类统计</td>
<td><img src="../images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" background="../images/bg_DBD8D1.gif">
<tr>
<td height="20" colspan="3" class="upBorder"> </td>
</tr>
<tr>
<td width="220" valign="top" bgcolor="#FFFFFF">
<%
Response.Write(" <table width=" & Chr(34) & "100%" & Chr(34) & " border=" & Chr(34) & "0" & Chr(34) & " cellpadding=" & Chr(34) & "5" & Chr(34) & " cellspacing=" & Chr(34) & "0" & Chr(34) & ">" & VBCrlf)
Response.Write(" <tr>" & VBCrlf)
Response.Write(" <td height=" & Chr(34) & "220" & Chr(34) & " align=" & Chr(34) & "center" & Chr(34) & " valign=" & Chr(34) & "middle" & Chr(34) & ">" & VBCrlf)
''首先获得区域数组
Dim rs
Dim arrArea(),arrAreaName,intArrNum
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From userArea",conn,3,1
intArrNum = rs.RecordCount
Redim arrArea(intArrNum)
Redim arrAreaName(intArrNum)
Dim i
i = 0
Do While Not rs.EOF
arrArea(i) = rs("areaId")
arrAreaName(i) = rs("areaName")
''Response.Write(arrArea(i) & arrAreaName(i))
i = i + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Dim strUser,curMoney,arrMoney,intArea
Redim arrMoney(intArrNum)
For i = 0 To intArrNum - 1
arrMoney(i) = 0
Next
Dim yyyy,mm
yyyy = Request.Form("YYYY")
mm = Request.Form("MM")
If yyyy = "" Then yyyy = Year(Date())
If mm = "" Then mm = Month(Date())
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From opration Where Year(oDate) = " & yyyy & " And Month(oDate) = " & mm,conn,3,1
Do While Not rs.EOF
''获取用户名和业务额
strUser = rs("oUser")
curMoney = rs("oMoney")
''Response.Write(strUser & curMoney)
''intArea = CInt(getArea(strUser))
''判断用户区域
''Dim rss,intUserArea
''Set rss = Server.CreateObject("ADODB.Recordset")
''rss.Open "Select * From userInfo Where userAccount = '" & strUser & "'",conn,3,1
''If Not rss.EOF Then
'' intUserArea = rss("userArea")
''End If
''rss.Close
''Set rss = Nothing
intArea = rs("oArea")
''intArea = intUserArea
''累计金额
For i = 0 To intArrNum - 1
If intArea = arrArea(i) Then
arrMoney(i) = arrMoney(i) + curMoney
Exit For
End If
Next
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
''生成参数
Dim strCake
strCake = ""
For i = 0 To intArrNum - 1
If i = 0 Then
strCake = arrMoney(i)
Else
strCake = strCake & "," & arrMoney(i)
End If
Next
''Response.Write(strCake)
strCake = strCake & "," & 1
''Response.Write(strCake)
''Response.End()
Response.Write("<div align=center><strong>" & yyyy & "年" & mm & "月 业务统计</strong></div><br>")
Response.Write("<script>drawcake(" & strCake & ")</script>")
''设置文字显示
Dim strColor
strColor = "Red,Green,Blue,Aqua,Fuchsia,Gray,Lime,Maroon,Navy,Olive,Purple,Silver,Teal,Cyan,Magenta,Yellow,Black,White"
Dim arrColor
arrColor = Split(strColor,",")
Response.Write(" </td>" & Chr(13))
Response.Write(" </tr>" & Chr(13))
Response.Write(" <tr>" & Chr(13))
Response.Write(" <td valign=" & Chr(34) & "top" & Chr(34) & ">" & Chr(13))
Dim curTotalMoney
curTotalMoney = 0
For i = 0 To intArrNum - 1
Response.Write(" <FONT color=" & arrColor(i) & ">■</FONT>" & arrAreaName(i) & "业务部：￥" & arrMoney(i) & "<BR>" & Chr(13))
curTotalMoney = curTotalMoney + arrMoney(i)
Next
Response.Write("<br><strong>共计业务额：￥" & curTotalMoney & "</strong><br><br>")
Response.Write(" </td>" & Chr(13))
Response.Write(" </tr>" & Chr(13))
Response.Write(" </table>" & VBCrlf)
Response.Write(" <table width=" & Chr(34) & "100%" & Chr(34) & " border=" & Chr(34) & "0" & Chr(34) & " cellspacing=" & Chr(34) & "0" & Chr(34) & " cellpadding=" & Chr(34) & "0" & Chr(34) & ">" & VBCrlf)
Response.Write(" <form action=" & Chr(34) & "opration_count.asp" & Chr(34) & " method=" & Chr(34) & "post" & Chr(34) & ">" & VBCrlf)
Response.Write(" <tr>" & VBCrlf)
Response.Write(" <td align=" & Chr(34) & "center" & Chr(34) & ">" & VBCrlf)
Response.Write(" <select name=" & Chr(34) & "YYYY" & Chr(34) & ">" & VBCrlf)
For i = Year(Date()) To 2000 Step -1
Response.Write(" <option value=" & Chr(34) & i & Chr(34) & ">" & i & "</option>" & VBCrlf)
Next
Response.Write(" </select>" & VBCrlf)
Response.Write(" 年" & VBCrlf)
Response.Write(" <select name=" & Chr(34) & "MM" & Chr(34) & ">" & VBCrlf)
For i = 1 To 12
Response.Write(" <option value=" & Chr(34) & i & Chr(34) & ">" & i & "</option>" & VBCrlf)
Next
Response.Write(" </select>" & VBCrlf)
Response.Write(" 月" & VBCrlf)
Response.Write(" <input type=" & Chr(34) & "submit" & Chr(34) & " name=" & Chr(34) & "Submit" & Chr(34) & " value=" & Chr(34) & "统计" & Chr(34) & ">" & VBCrlf)
Response.Write(" </td>" & VBCrlf)
Response.Write(" </tr>" & VBCrlf)
Response.Write(" </form>" & VBCrlf)
Response.Write(" </table>" & VBCrlf)
''列表
Dim strUrl
strUrl = "opration_count0.asp?yyyy=" & yyyy & "&mm=" & mm
%>
</td>
<td width="3" class="upBorder"><img src="../images/bg_DBD8D1.gif" width="1" height="1"></td>
<td bgcolor="#FFFFFF"><iframe name="listFrame" frameborder="0" height="100%" width="100%" src="<% = strUrl %>"></iframe></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -