📄 ri1.asp

📁 一款用ASP写的办公自动化软件
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from ri where year='"&request("year")&"' and month='"&request("month")&"' order by date desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	color: #000000;
	text-decoration: none;
}
a:hover {
	color: #CCCCCC;
	text-decoration: none;
}
a:active {
	color: #CCCCCC;
	text-decoration: none;
}
body {
	background-color: #ffffff;
}
.style3 {
	color: #000000;
	font-size: 16px;
	font-weight: bold;
}
.style4 {color: #000000}
.style5 {color: #FFFFFF}
-->
</style>
</head>

<body>
<table width="540" height="174" border="0" align="center" cellspacing="1" bgcolor="#336699">
  <tr bgcolor="BC82D6">
    <td height="77" colspan="6"><div align="center" class="style3 style5">锅炉生产运行日报表</div></td>
  </tr>  <tr bgcolor="#FFFF00">
    <td width="116" height="32" background="images/tile_sub.gif" bgcolor="#FFFF00"><div align="center" class="style4">日期 </div></td>
    <td width="140" background="images/tile_sub.gif"><div align="center" class="style4">消耗（煤，单位：吨）</div></td>
    <td width="156" background="images/tile_sub.gif" bgcolor="#FFFF00"><div align="center" class="style4">生产（钢材，单位：吨）</div></td>
    <td width="76" background="images/tile_sub.gif" bgcolor="#FFFF00"><div align="center" class="style4">运行情况</div>      
    <div align="center" class="style4"></div></td>
   
  </tr>
	<%
	if not rs.eof then
	zong=rs.recordcount
	
	for i=1 to zong
	
	%>
  <tr>
    <td height="30" bgcolor="#FFFFFF"><div align="center"><%=rs("date")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("mei") %>&nbsp;</div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("gang") %></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%= rs("yun") %></div></td>
  
  </tr>
  <%
  rs.movenext
  if rs.eof then exit for 
  next
  else 
 response.Write("暂无信息")
 end if 
  %>
   <tr bgcolor="#FFFFFF">
    <td height="30" colspan="6"><table width="100%" border="0">
      <tr>
        <td width="16%"> 　　【<a href=javascript:window.print();>打印</a>】</td>
        <td width="84%"><div align="right"></div></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -