back.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 465 行

ASP
465 行
字号 
<%
response.expires=-1
dim ThisKey
ThisKey = "d"
%>
<!--#include file="inc/permission.asp"-->
<!--#include file="inc/conn.inc"-->
<%
total=0
total11=0
total12=0
total21=0
total22=0
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
set rs4=server.createobject("adodb.recordset")

rs.open "select * from tblProjectBase where Attribute like '%t%' and Attribute like '%u%'",conn,1,1
if not rs.eof then
	total11=rs.recordcount
end if

rs2.open "select * from tblProjectBase where Attribute like '%t%' and Attribute like '%r%' or Attribute like '%t%' and Attribute like '%s%'",conn,1,1
if not rs2.eof then
	total12=rs2.recordcount
end if

rs3.open "select * from tblProjectBase where Attribute like '%a%' and Attribute like '%u%'",conn,1,1
if not rs3.eof then
	total21=rs3.recordcount
end if

rs4.open "select * from tblProjectBase where Attribute like '%a%' and Attribute like '%r%' or Attribute like '%a%' and Attribute like '%s%'",conn,1,1
if not rs4.eof then
	total22=rs4.recordcount
end if

pagesize=11

page=trim(request("page"))

if page="" then
	page=1
end if

total=total11+total12
total2=total21+total22

if total11=0 then
	f1=0
	if total12=0 then
		f2=0
		if total21=0 then
			f3=0
			if total22=0 then
				f4=0
			else
				f4=1
			end if
		else
			f3=1
			if total22=0 then
				f4=0
			else
				if (total21\pagesize)*pagesize<=total21 then
					f4=(total21\pagesize)+1
				else
					f4=total21\pagesize
				end if
			end if
		end if
	else
		f2=1
		if total21=0 then
			f3=0
			if total22=0 then
				f4=0
			else
				if (total12\pagesize)*pagesize<=total12 then
					f4=(total12\pagesize)+1
				else
					f4=(total12\pagesize)
				end if
			end if
		else
			if (total12\pagesize)*pagesize<=total12 then
				f3=(total12\pagesize)+1
			else
				f3=total12\pagesize
			end if
			if total22=0 then
				f4=0
			else
				if ((total12+total21)\pagesize)*pagesize<=(total12+total21) then
					f4=((total12+total21)\pagesize)+1
				else
					f4=(total12+total21)\pagesize
				end if
			end if
		end if
	end if
else
	f1=1
	if total12=0 then
		f2=0
		if total21=0 then
			f3=0
			if total22=0 then
				f4=0
			else
				if (total11\pagesize)*pagesize<=total11 then
					f4=(total11\pagesize)+1
				else
					f4=total11\pagesize
				end if
			end if
		else
			if (total11\pagesize)*pagesize<=total11 then
				f3=(total11\pagesize)+1
			else
				f3=total11\pagesize
			end if
			if total22=0 then
				f4=0
			else
				if ((total11+total21)\pagesize)*pagesize<=total11+total21 then
					f4=((total11+total21)\pagesize)+1
				else
					f4=(total11+total21)\pagesize
				end if
			end if
		end if
	else
		if (total11\pagesize)*pagesize<=total11 then
			f2=(total11\pagesize)+1
		else
			f2=total11\pagesize
		end if
		if total21=0 then
			f3=0
			if total22=0 then
				f4=0
			else
				if ((total11+total12)\pagesize)*pagesize<=total11+total12 then
					f4=((total11+total12)\pagesize)+1
				else
					f4=(total11+total12)\pagesize
				end if
			end if
		else
			if ((total11+total12)\pagesize)*pagesize<=total11+total12 then
				f3=((total11+total12)\pagesize)+1
			else
				f3=(total11+total12)\pagesize
			end if
			if total22=0 then
				f4=0
			else
				if ((total11+total12+total21)\pagesize)*pagesize<=total11+total12+total21 then
					f4=((total11+total12+total21)\pagesize)+1
				else
					f4=(total11+total12+total21)\pagesize
				end if
			end if
		end if
	end if
end if

pagecount=(total+total2)\pagesize
if pagesize*pagecount<total then
	pagecount=pagecount+1
end if
%>
<html>
<head>
<title>1998年至2001年8月成都市国债项目建设情况统计表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="css/lrtb.css" type="text/css">
<style type="text/css">
 td 
{ 
  height:20pt;
  font-size:9pt;
  FONT-FAMILY: 宋体;  
}
A
{
    COLOR: #000033;
    FONT-SIZE: 9pt;
    TEXT-DECORATION: none
}
A:hover
{
    COLOR: #ff0000;
    FONT-SIZE: 9pt;
    TEXT-DECORATION: underline
}
A:active
{
    COLOR: #ff0000;
    FONT-SIZE: 9pt;
    TEXT-DECORATION: none
}
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="1450" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td  align=center colspan="2"><font size="5">1998年至2001年8月成都市国债项目建设情况统计表</font></td>
  </tr>
  <tr> 
    <td width="1169" >填表单位：成都市发展计划委员会</td>
    <td width="209" >单位：万元</td>
  </tr>
</table>
<table width="1450" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td class=lt align=center rowspan="3" width="40" style="border-top:1 solid #000000"><b>序号</b></td>
    <td class=lt align=center rowspan="3" width="111" style="border-top:1 solid #000000"><b>项目名称</b></td>
    <td class=lt align=center colspan="10" style="border-top:1 solid #000000"><b>投 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;资&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;总&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;量</b></td>
    <td class=lt align=center colspan="3" style="border-top:1 solid #000000"><b>年月日累计投资完成情况</b></td>
    <td class=lt align=center colspan="4" style="border-top:1 solid #000000"><b>年月日形象进度完成情况</b></td>
    <td class=lt align=center rowspan="3" width="65" style="border-top:1 solid #000000"><b>项目业主</b></td>
    <td class=lrt align=center rowspan="3" width="89" style="border-top:1 solid #000000"><b>备注</b></td>
  </tr>
  <tr> 
    <td class=lt align=center colspan="2"><b>合计</b></td>
    <td class=lt align=center colspan="2"><b>地方财政预算拨款</b></td>
    <td class=lt align=center colspan="2"><b>国债拨款资金</b></td>
    <td class=lt align=center colspan="2"><b>银行贷款</b></td>
    <td class=lt align=center colspan="2"><b>其他投资和自筹资金</b></td>
    <td class=lt align=center rowspan="2" width="61"><b>计划完成</b></td>
    <td class=lt align=center colspan="2"><b>实际完成</b></td>
    <td class=lt align=center colspan="2"><b>按投资完成额</b></td>
    <td class=lt align=center colspan="2"><b>按工程量</b></td>
  </tr>
  <tr> 
    <td class=lt align=center width="62"><b>概算投资</b></td>
    <td class=lt align=center width="73"><b>至2001年8月31日资金到位</b></td>
    <td class=lt align=center width="62"><b>概算投资</b></td>
    <td class=lt align=center width="73"><b>至2001年8月31日资金到位</b></td>
    <td class=lt align=center width="62"><b>概算投资</b></td>
    <td class=lt align=center width="73"><b>至2001年8月31日资金到位</b></td>
    <td class=lt align=center width="62"><b>概算投资</b></td>
    <td class=lt align=center width="73"><b>至2001年8月31日资金到位</b></td>
    <td class=lt align=center width="62"><b>概算投资</b></td>
    <td class=lt align=center width="73"><b>至2001年8月31日资金到位</b></td>
    <td class=lt align=center width="51"><b>合计</b></td>
    <td class=lt align=center width="91"><b>其中：国债专项资金</b></td>
    <td class=lt align=center width="53"><b>计划（%）</b></td>
    <td class=lt align=center width="53"><b>实际（%）</b></td>
    <td class=lt align=center width="48"><b>计划（%）</b></td>
    <td class=lt align=center width="48"><b>实际（%）</b></td>
  </tr>
  <tr> 
    <td class=lt align=center width="40">&nbsp;</td>
    <td class=lt align=center width="111">合计</td>
    <td class=lt width="49">&nbsp;</td>
    <td class=lt width="75">&nbsp;</td>
    <td class=lt width="63">&nbsp;</td>
    <td class=lt width="73">&nbsp;</td>
    <td class=lt width="61">&nbsp;</td>
    <td class=lt width="82">&nbsp;</td>
    <td class=lt width="62">&nbsp;</td>
    <td class=lt width="72">&nbsp;</td>
    <td class=lt width="57">&nbsp;</td>
    <td class=lt width="74">&nbsp;</td>
    <td class=lt width="61">&nbsp;</td>
    <td class=lt width="51">&nbsp;</td>
    <td class=lt width="91">&nbsp;</td>
    <td class=lt width="53">&nbsp;</td>
    <td class=lt width="53">&nbsp;</td>
    <td class=lt width="48">&nbsp;</td>
    <td class=lt width="48">&nbsp;</td>
    <td class=lt width="65">&nbsp;</td>
    <td class=lrt width="89">&nbsp;</td>
  </tr>
  <%
  if cint(f1)=cint(page) then
  %>
  <tr> 
    <td class=lt width="40" align=center>一</td>
    <td class=lt width="111">已竣工项目（<%=total%>项）</td>
    <td class=lt width="49">&nbsp;</td>
    <td class=lt width="75">&nbsp;</td>
    <td class=lt width="63">&nbsp;</td>
    <td class=lt width="73">&nbsp;</td>
    <td class=lt width="61">&nbsp;</td>
    <td class=lt width="82">&nbsp;</td>
    <td class=lt width="62">&nbsp;</td>
    <td class=lt width="72">&nbsp;</td>
    <td class=lt width="57">&nbsp;</td>
    <td class=lt width="74">&nbsp;</td>
    <td class=lt width="61">&nbsp;</td>
    <td class=lt width="51">&nbsp;</td>
    <td class=lt width="91">&nbsp;</td>
    <td class=lt width="53">&nbsp;</td>
    <td class=lt width="53">&nbsp;</td>
    <td class=lt width="48">&nbsp;</td>
    <td class=lt width="48">&nbsp;</td>
    <td class=lt width="65">&nbsp;</td>
    <td class=lrt width="89">&nbsp;</td>
  </tr>
  <tr> 
    <td class=lt width="40" align=center>(一)</td>
    <td class=lt width="111">农林水利项目(<%=total11%>项)</td>
    <td class=lt width="49">&nbsp;</td>
    <td class=lt width="75">&nbsp;</td>
    <td class=lt width="63">&nbsp;</td>
    <td class=lt width="73">&nbsp;</td>
    <td class=lt width="61">&nbsp;</td>
    <td class=lt width="82">&nbsp;</td>
    <td class=lt width="62">&nbsp;</td>
    <td class=lt width="72">&nbsp;</td>
    <td class=lt width="57">&nbsp;</td>
    <td class=lt width="74">&nbsp;</td>
    <td class=lt width="61">&nbsp;</td>
    <td class=lt width="51">&nbsp;</td>
    <td class=lt width="91">&nbsp;</td>
    <td class=lt width="53">&nbsp;</td>
    <td class=lt width="53">&nbsp;</td>
    <td class=lt width="48">&nbsp;</td>
    <td class=lt width="48">&nbsp;</td>
    <td class=lt width="65">&nbsp;</td>
    <td class=lrt width="89">&nbsp;</td>
  </tr>
<%
end if
num=0
if pagesize*(page-1)<total11 then
	for i=1 to pagesize*(page-1)
		num=num+1
		rs.movenext
	next
		t=0
		for l=1 to 11			
			if not rs.eof then
			num=num+1
			t=t+1
  %>
			 <tr> 
				<td class=lt width="40" align=center><%=num%></td>
				<!--#include file="inc/item11.asp"-->
			</tr>
			<%
				rs.movenext
			else
				if cint(f2)=cint(page) then
				%>
				 <tr> 
					<td class=lt width="40" align=center>(二)</td>
					<td class=lt width="111">城市基础设施和交通项目(<%=total12%>项)</td>
					<td class=lt width="49">&nbsp;</td>
					<td class=lt width="75">&nbsp;</td>
					<td class=lt width="63">&nbsp;</td>
					<td class=lt width="73">&nbsp;</td>
					<td class=lt width="61">&nbsp;</td>
					<td class=lt width="82">&nbsp;</td>
					<td class=lt width="62">&nbsp;</td>
					<td class=lt width="72">&nbsp;</td>
					<td class=lt width="57">&nbsp;</td>
					<td class=lt width="74">&nbsp;</td>
					<td class=lt width="61">&nbsp;</td>
					<td class=lt width="51">&nbsp;</td>
					<td class=lt width="91">&nbsp;</td>
					<td class=lt width="53">&nbsp;</td>
					<td class=lt width="53">&nbsp;</td>
					<td class=lt width="48">&nbsp;</td>
					<td class=lt width="48">&nbsp;</td>
					<td class=lt width="65">&nbsp;</td>
					<td class=lrt width="89">&nbsp;</td>
				</tr>
				<%
				end if
				num2=0
				for j=1 to 11-t
					if not rs2.eof then
					num2=num2+1
						%>
						<tr> 
							<td class=lt width="40" align=center><%=num2%></td>
							<!--#include file="inc/item12.asp"-->
						</tr>
						<%
						rs2.movenext
					else
						exit for
					end if
				next
				exit for
			end if
		next
	else
		if cint(f2)=cint(page) then
		%>
			<tr> 
				<td class=lt width="40" align=center>(一)</td>
				<td class=lt width="111">城市基础设施和交通项目(<%=total12%>项)</td>
				<td class=lt width="49">&nbsp;</td>
				<td class=lt width="75">&nbsp;</td>
				<td class=lt width="63">&nbsp;</td>
				<td class=lt width="73">&nbsp;</td>
				<td class=lt width="61">&nbsp;</td>
				<td class=lt width="82">&nbsp;</td>
				<td class=lt width="62">&nbsp;</td>
				<td class=lt width="72">&nbsp;</td>
				<td class=lt width="57">&nbsp;</td>
				<td class=lt width="74">&nbsp;</td>
				<td class=lt width="61">&nbsp;</td>
				<td class=lt width="51">&nbsp;</td>
				<td class=lt width="91">&nbsp;</td>
				<td class=lt width="53">&nbsp;</td>
				<td class=lt width="53">&nbsp;</td>
				<td class=lt width="48">&nbsp;</td>
				<td class=lt width="48">&nbsp;</td>
				<td class=lt width="65">&nbsp;</td>
				<td class=lrt width="89">&nbsp;</td>
			</tr>
		<%
		tt=1
		end if
		num2=0
		for i=1 to pagesize*(page-1)-total11
			num2=num2+1
			rs2.movenext
		next
		for i=1 to 11
			num2=num2+1
			if not rs2.eof then
				%>
				<tr> 
					<td class=lt width="40" align=center><%=num2%></td>
					<!--#include file="inc/item12.asp"-->
				</tr>
				<%
				rs2.movenext
			else
				exit for
			end if
		next
	end if
	rs.close
	set rs=nothing
	rs2.close
	set rs2=nothing
  %>
</table>
<table border=0 cellpadding=0 cellspacing=0>
 <tr>
  <td>
<%
for k=1 to pagecount
%>
<a href="guozhai_jianshe.asp?page=<%=k%>">[<%=k%>]</a>&nbsp;&nbsp;
<%
next
%>
  </td>
 </tr>
</table>
</body>
</html>
<!--#include file="inc/close.inc"-->

back.asp - 源码说明

本页面展示了「投资管理系统, asp+ mssql server」中的 back.asp 源码文件，采用 ASP 编程语言编写，共 465 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与投资管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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