📄 report.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<!--#include file="dbconn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>业务统计</title>
</head>
<body>
<%
response.write "<br><br><br>"
Dim A(100),b(100)
set rs=server.CreateObject("adodb.recordset")
sql="select * from class order by id"
rs.open sql,conn,1,1
i=0
reportnumber=rs.recordcount
do while not rs.eof
a(i)=rs("class")
rs.movenext
i=i+1
loop
rs.close
sql="select sum(实收金额) as bcaiwucount from caiwu "
rs.open sql,conn,1,1
bcaiwucount=rs("bcaiwucount")
rs.close
response.write "<b>总计实收金额："&bcaiwucount&"元<br><br><br></b>"
response.write "<table width='630'>"
for j=0 to reportnumber-1
response.write "<tr>"
sql="select sum(实收金额) as caiwucount from caiwu where [项目] like '%"&a(j)&"%'"
rs.open sql,conn,1,1
b(j)=rs("caiwucount")
if isnull(b(j)) then b(j)=0
baifeng=b(j)/bcaiwucount
baifeng=baifeng*100
response.write "<td width='150'><b>"&a(j)&":"&b(j)&"元</b></td>"
response.write "<td width='150'>"&"占总实收金额的：<b>"&formatnumber(baifeng,2,-1)&"%</b></td>"
response.write "<td width='330' align='left' >"&"<hr align='left' width='"&formatnumber(baifeng*2,2,-1)&"' size='10'>"&"</td>"
rs.close
response.write "</tr>"
next
response.write "</table>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -