📄 zhou.asp

📁 企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/auto.asp" -->
<%
	set rs=server.CreateObject("adodb.recordset")
	'sql="select * from ri where week='1'"
	sql="select * from ri "
	rs.open sql,CN,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/MainBorder.css" rel="stylesheet" type="text/css">
<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}
.style4 {color: #FFFFFF}
.style5 {font-size: 16px}
.STYLE6 {
	font-size: 16px;
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<table width="200" border="0">
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="538" height="173" border="0" align="center" cellspacing="0" bgcolor="#336699">
  <tr bgcolor="#FF9900">
    <td height="77" colspan="4" bgcolor="#6666FF" ><div align="center" class="STYLE6" >计算机配件生产运行周报表</div></td>
  </tr>  <tr>
    <td width="169" height="31"   class="but01" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><div align="center" class="style3 style4">日期 </div></td>
    <td width="184"  class="but01" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><div align="center" class="style3 style4">主板（单位：件）</div></td>
    <td width="175"   class="but01" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><div align="center" class="style3 style4">鼠标（单位：件）</div></td>
    
    </tr>
	<%
	if not rs.eof then
	zong=rs.recordcount
	shownum=15
	rs.pagesize=shownum
	maxpage=rs.pagecount
	requestpage=clng(request("p"))
	if requestpage="" or requestpage=0 then
	requestpage=1
	end if
	if requestpage>maxpage then
	requestpage=maxpage 
	end if
	if requestpage<>1 then
	rs.move (requestpage-1)*rs.pagesize
	end if
	for i=1 to rs.pagesize and not rs.eof
	
	%>
  <tr>
    <td height="30" class="but1" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but1'""><div align="center"><%= rs("date") %>至<%= rs("date")+6 %>
</div></td>
    <td class="but1" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but1'"><div align="center">
	 <% 
	   set rs1=server.CreateObject("adodb.recordset")
       sql1="select sum(mainboard) as mm from ri where ji between '"&rs("ji")&"' and '"&rs("ji")+6&"'"
       rs1.open sql1,CN,1,3
	 %>
	<%= rs1("mm") %>&nbsp;</div></td>
    <td class="but1" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but1'">
    <div align="center"><% 
	   set rs2=server.CreateObject("adodb.recordset")
       sql2="select sum(mouse) as gg from ri where ji between '"&rs("ji")&"' and '"&rs("ji")+6&"' "
       rs2.open sql2,CN,1,3
	 %><%= rs2("gg") %></div></td></tr>
  <%
  rs.movenext
  if rs.eof then exit for 
  next
  else 
 response.Write("暂无信息")
 end if 
  %>
   <tr bgcolor="#FFFFFF">
    <td height="30" colspan="4"><table width="100%" border="0">
      <tr>
        <td width="16%"> 　　【<a href=javascript:window.print();>打印</a>】</td>
        <td width="84%"><div align="right">【<a href=zhou.asp?p=1>第一页</a>】　【<a href=zhou.asp?p=<%=requestpage-1%>>上一页</a>】　【<a href=zhou.asp?p=<%=requestpage+1%>>下一页</a>】　【<a href=zhou.asp?p=<%=maxpage%>>最后一页</a>】</div></td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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