📄 ri.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<!--#include file=inc/yan.asp-->
<%
call case5
%>
<%
if request("del")<>"" and (ps("huibao")=1 or ps("chaoji")=1)then
call del
end if
function del
sql3="delete from ri where id="&request("del")
conn.Execute(sql3)
end function
%>
<%
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">
<!--
.style1 {
font-size: 16px;
font-weight: bold;
color: #000000;
}
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}
-->
</style>
</head>
<body>
<table width="585" height="175" border="0" align="center" cellspacing="1" bgcolor="#336699">
<tr bgcolor="BC82D6">
<td height="77" colspan="6"><div align="center" class="style1 style4">锅炉生产运行日报表</div></td>
</tr> <tr>
<td width="116" height="33" background="images/tile_sub.gif"><div align="center" class="style3">日期 </div></td>
<td width="140" background="images/tile_sub.gif"><div align="center" class="style3">消耗（煤，单位：吨）</div></td>
<td width="156" background="images/tile_sub.gif"><div align="center" class="style3">生产（钢材，单位：吨）</div></td>
<td width="76" background="images/tile_sub.gif"><div align="center" class="style3">运行情况</div>
<div align="center" class="style3"></div></td>
<td colspan="2" background="images/tile_sub.gif"><div align="center" class="style3">管理</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" bgcolor="#FFFFFF"><div align="center"><%=rs("date")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%= rs("mei") %> </div></td>
<td bgcolor="#FFFFFF"><div align="center"><%= rs("gang") %></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%= rs("yun") %></div></td>
<td width="58" bgcolor="#FFFFFF"><div align="center"><a href="riup.asp?id=<%=rs("id")%>">修改</a></div></td>
<% If ps("chaoji")=1 Then %>
<td width="62" bgcolor="#FFFFFF"><div align="center"><a href="ri.asp?del=<%=rs("id")%>">删除</a></div></td>
<% End If %>
</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="15%"> 【<a href=javascript:window.print();>打印</a>】</td>
<td width="85%"><div align="right">【<a href=ri.asp?p=1&year=<%=request("year")%>&month=<%=request("month")%>>第一页</a>】 【<a href=ri.asp?p=<%=requestpage-1%>&year=<%=request("year")%>&month=<%=request("month")%>>上一页</a>】 【<a href=ri.asp?p=<%=requestpage+1%>&year=<%=request("year")%>&month=<%=request("month")%>>下一页</a>】 【<a href=ri.asp?p=<%=maxpage%>&year=<%=request("year")%>&month=<%=request("month")%>>最后一页</a>】</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -