📄 yuebaobiao.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "d"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
LoginName=Session("LoginName")
if trim(request("submit"))="" then
rs.open "select * from tblYuebaoDate where YuebaoDate like '"&Year(Now())&"年"&Month(Now())&"月'",conn,1,2
if rs.eof then
rs.addnew
rs("YuebaoDate")=Year(Now())&"年"&Month(Now())&"月"
rs.update
end if
rs.close
end if
if trim(request("submit"))<>"All" then
sYear=request("sYear")
sMonth=request("sMonth")
else
sYear=""
sMonth=""
end if
Sqlstr="select * from tblYuebaoDate where YuebaoDate like '%"&trim(sYear)&"%年%"&trim(sMonth)&"%月' order by ID"
rs.open Sqlstr,conn,1,1
if not rs.eof then
rs.pagesize=20
pagesize=rs.pagesize
pagecount=rs.pagecount
absolutepage=trim(request("absolutepage"))
if absolutepage=empty then
absolutepage=1
else
rs.absolutepage=absolutepage
end if
total=rs.recordcount
end if
num=cint(absolutepage-1)*pagesize
%>
<HTML>
<HEAD>
<TITLE>投资项目管理月报系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK rel=stylesheet href="../css/main.css" type="text/css">
<style>
select{
border:thin groove;
}
</style>
</HEAD>
<BODY bgColor=#CC9933 leftMargin=0 topMargin=0>
<TABLE cellPadding=0 width=773 align=center bgColor=#FFCC66 border=0 bordercolor="#FFFFFF">
<TR>
<TD
style="BORDER-RIGHT: #996600 1px solid; BORDER-TOP: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-BOTTOM: #996600 1px solid"
vAlign=top align=center width="100%">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 align=center>
<form name=searchform method=post action="Yuebaobiao.asp">
<TR align="center" valign="middle">
<TD
style="BORDER-BOTTOM: #996600 1px solid" colspan="2" align=center><img src="../images/topmore.jpg" width="773" height="80"></TD>
</TR>
<tr bgcolor="#996600">
<TD style="BORDER-BOTTOM: #996600 1px solid;border-top:1 solid #ffffff" align=left valign="top" height="10"> <font color=white>查询条件:</font>
<select name="sYear" style="font-size:9pt;">
<option value=" " <%if sYear=" " then%>Selected<%end if%>> </option>
<%for i=1990 to 2020%>
<option value="<%=i%>" <%if sYear<>" " then%><%if cint(sYear)=cint(i) then%>Selected<%else%><%if Year(now())=i then%>Selected<%end if%><%end if%><%end if%>><%=i%></option>
<%next%>
</select>
<font color=white>年</font>
<select name="sMonth" style="font-size:9pt;">
<option value=" " <%if sMonth=" " then%>Selected<%end if%>> </option>
<%for i=1 to 12%>
<option value="<%=i%>" <%if sMonth<>" " then%><%if cint(sMonth)=cint(i) then%>Selected<%else%><%if Month(now())=i then%>Selected<%end if%><%end if%><%end if%>><%=i%></option>
<%next%>
</select>
<font color=white>月</font>
<input type=submit name=submit value="查询"><input type=button name=all value="全部" onclick="javascript:location.href('Yuebaobiao.asp');"></td>
<TD style="BORDER-BOTTOM: #996600 1px solid;border-top:1 solid #ffffff" valign="top" align=right> <input type="hidden" name=typet value="<%=typet%>">
<font color=white><b>查询结果共：<u><font color=red><%=total%></font></u> 项</font> </TD>
</tr>
</form>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
<TR>
<TD width="100%" align="center">共<%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=1">第一页</a>
<% else %>
<font color=#888888>第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color=#888888>上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color=#888888>下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color=#888888>最后一页</font>
<% end if %></TD>
</TR>
<TR>
<TD vAlign=top align=center width="100%">
<TABLE cellSpacing=0 cellPadding=0 width="740" border=0 style="border-left:1 solid #CC9933;border-top:1 solid #CC9933">
<TR>
<TD class=tdby width=10> </TD>
<td class=tdby align=center width=100><b>月报时间</b></td>
<td class=tdby align=center width=210 style="line-height:12pt;"><b>在建国债项目<br>建设资金到位和工程形象进度月报表</b></td>
<td class=tdby align=center width=210 style="line-height:12pt;"><b>重点建设项目<br>工程形象进度和投资完成情况统计表</b></td>
<td class=tdby align=center width=210 style="line-height:12pt;"><b>重点建设项目<br>建设资金到位情况统计表</b></td>
</TR>
<%
if not rs.eof then
for i=1 to 20
if not rs.eof then
num=num+1
%>
<TR <%if (num mod 2)<>0 then%>bgcolor="FFCC33"<%end if%>>
<TD class=tdby width=10 align=center><font color=red><%=num%></font></td>
<td class=tdby align=center width=100><%=trim(rs("YuebaoDate"))%></TD>
<td class=tdby align=center width=210>
<%
rs1.open "select ID from tblZJYuebaoMoneyJindu where YuebaoDate like '"&trim(rs("YuebaoDate"))&"'",conn,1,1
if not rs1.eof then%>
<a href="tblZJYuebaoMonthJindu.asp" target="ZJYuebaoMonthJindu">浏 览</a>
<%else%>
<%end if
rs1.close
%>
</td>
<td class=tdby align=center width=210>
<%
rs1.open "select ID from tblZDYuebaoMoneyJindu where YuebaoDate like '"&trim(rs("YuebaoDate"))&"'",conn,1,1
if not rs1.eof then%>
<a href="tblZDYuebaoMoneyJindu.asp" target="ZDYuebaoMoneyJindu">浏 览</a>
<%else%>
<%end if
rs1.close
%>
</td>
<td class=tdby align=center width=210>
<%
rs1.open "select ID from tblZDYuebaoMoney where YuebaoDate like '"&trim(rs("YuebaoDate"))&"'",conn,1,1
if not rs1.eof then%>
<a href="tblZDYuebaoMoney.asp" target="ZDYuebaoMoney">浏 览</a>
<%else%>
<%end if
rs1.close
%>
</td>
</TR>
<%
rs.movenext
else
exit for
end if
next
end if
%>
</TABLE>
</TD>
</TR>
<%if total=0 then%>
<tr>
<td height=200 align=center valign=top><br>没有录入项目</td>
</tr>
<%end if%>
<TR>
<TD width="100%" align="center">共<%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=1">第一页</a>
<% else %>
<font color=#888888>第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color=#888888>上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color=#888888>下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Yuebaobiao.asp?syear=<%=syear%>&sMonth=<%=sMonth%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color=#888888>最后一页</font>
<% end if
rs.close
set rs=nothing
set rs1=nothing%></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD bgcolor="#996600"> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<!-- #include file="../inc/close.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -