📄 pcstat.asp
字号:
<!--#include file="pcdb.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from 设备资源 "
rs.open sql,conn,1,1
macnum=rs.Recordcount
rs.close
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select 部门 , count(*) as num1 from 设备资源 Group by 部门"
rs.open sql,conn,1,1
alls=rs.Recordcount
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY {
font-family: "宋体";
font-size: 9pt; }
p { font-family: "宋体", "Arial", "Times New Roman"; font-size: 9pt; font-weight: normal}
A:hover {text-decoration:none;color: #FF8040;}
A{text-decoration:none;color: #006ad5;}
-->
</style>
<title>统计报告:综合分析</title>
</head>
<BODY bgcolor="White" text="#000000" style="margin-left:3px;margin-top: 3px" topmargin="0" leftmargin="0" marginheight="0" marginwidth="0" link="#0072E3" vlink="#0072E3" >
<table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<tr>
<th NOWRAP BGCOLOR="Silver" BACKGROUND="images/navtop.jpg"><font SIZE="6"> 固定资产汇总管理 </font>
</th>
<td ALIGN="Right" BGCOLOR="Silver" VALIGN="MIDDLE" WIDTH="100%" BACKGROUND="images/navtop.jpg"></td>
</tr>
<tr>
<td BGCOLOR="#FFFFCC" COLSPAN="2"><font SIZE="-1"> </font></td>
</tr>
<tr>
<td COLSPAN="2"><font SIZE="-1"> </font></td>
</tr>
</table>
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="544">
<tr>
<td width="494" valign="bottom" bgcolor="#E2EABF"></td>
<td width="50"></td>
</tr>
<tr>
<td bgcolor="#E2EABF"><p align="center"><span class="sureyeah"><span class="sureyeah"><br>
</span></span></p>
<p align="center"></p>
<div align="center"><div align="center"><div align="center"><center><table border="0%" cellspaccing="2" cellpadding="2" width="80%">
<tr>
<td><table width="100%" bordercolor="#336600" border="1" cellspacing="0" cellpadding="0" bordercolordark="#666666" bordercolorlight="#CCCCCC">
<tr>
<td><table border="0" cellspacing="0" cellpadding="3">
<tr bgcolor="#336600">
<td colspan="4" align="CENTER" bgcolor="#336600"><font color="#FFFFFF">数 据 统 计 分 析</font></td>
</tr>
<tr bgcolor="#cccccc">
<td align="LEFT" width="30%"><p class="sureyeah" align="center">部门 </td>
<td align="LEFT" width="20%"><p align="center">机器数量 </td>
<td align="right" width="10%"><p align="right">比率 </td>
<td align="right" width="40%"><p align="center">图示 </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="LEFT" width="30%"><p align="center">合计 </td>
<td align="LEFT" width="20%"><p align="center"><% =macnum%></td>
<td align="right" width="10%"><p align="center">100%</td>
<td align="right" width="40%" bgcolor="#FFFFFF"><p align="left"><img src="images/redvert.gif" height="10" width="150" > </td>
</tr>
<%
for i=1 to alls
if RS.EOF then exit for
%>
<tr bgcolor="#FFFFFF">
<td align="LEFT" width="30%"><p align="center"><% =rs("部门")%> </td>
<td align="LEFT" width="20%"><p align="center"><% =rs("num1")%></td>
<td align="right" width="10%"><p align="center"><% =int((rs("num1")/macnum)*1000)/10%>%</td>
<td align="right" width="40%" bgcolor="#FFFFFF"><p align="left"><img src="images/redvert.gif" height="10" width="<% =int((rs("num1")/macnum)*150)%>" > </td>
</tr>
<%
RS.MoveNext
next
RS.close
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center></div><p align="center"><a href="pc.asp">返回</a> </p>
</div><p align="center"> </p>
</div></td>
<td width="50" valign="top"><br clear="all">
</td>
</tr>
<tr>
<td valign="bottom" class="paper" bgcolor="#E2EABF" height="2"></td>
</tr>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -