centerzaijian.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 387 行
ASP
387 行
<%
response.expires=-1
dim ThisKey
ThisKey = "d"
%>
<!--#include file="inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
rs.open "select * from tblBase where Attribute like '%(9:1)%' and (Attribute like '%(3:1)%' or Attribute like '%(3:2),%') and State=3",conn,1,1
if not rs.eof then
rs.pagesize=10
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/lrtb.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<TABLE width="1378" border=0 cellspacing="0" cellpadding="0">
<TR height=20>
<TD colspan=2 align="center" height=20><font size="5">中央及省在蓉在建重点建设项目表 </font></TD>
</TR>
<TR>
<TD class=title> </TD>
<TD width=10% class=title>单位：万元</TD>
</TR>
</TABLE>
<table width="1378" border="0" cellspacing="0" cellpadding="0" bordercolor=#000000>
<tr>
<td rowspan="2" class=lt width="20" align="center" style="border-top:1 solid #000000"><b>序号</b></td>
<td rowspan="2" class=lt width="99" align="center" style="border-top:1 solid #000000"><b>项目名称</b></td>
<td rowspan="2" class=lt width="45" align="center" style="border-top:1 solid #000000"><b>建设地址</b></td>
<td rowspan="2" class=lt width="29" align="center" style="border-top:1 solid #000000"><b>建设性质</b></td>
<td rowspan="2" class=lt width="100" align="center" style="border-top:1 solid #000000"><b>建设规模</b></td>
<td rowspan="2" class=lt width="32" align="center" style="border-top:1 solid #000000"><b>建设年限</b></td>
<td rowspan="2" class=lt width="60" align="center" style="border-top:1 solid #000000"><b>投资来源</b></td>
<td rowspan="2" class=lt width="44" align="center" style="border-top:1 solid #000000"><b>已批总投资</b></td>
<td rowspan="2" class=lt width="62" align="center" style="border-top:1 solid #000000"><b>到上年底预计累计完成投资</b></td>
<td rowspan="2" class=lt width="105" align="center" style="border-top:1 solid #000000"><b>到上年底预计达到的工程形象进度</b></td>
<td rowspan="2" class=lt width="75" align="center" style="border-top:1 solid #000000"><b>当年建议投资计划</b></td>
<td rowspan="2" class=lt width="117" align="center" style="border-top:1 solid #000000"><b>当年考核目标要求达到的主要形象进度</b></td>
<td colspan="2" class=lt align="center" style="border-top:1 solid #000000">
<p align="center"><b>项目业主</b></td>
<td colspan="2" class=lt align="center" style="border-top:1 solid #000000">
<p align="center"><b>行业主管部门</b></td>
<td rowspan="2" class=lt width="59" align="center" style="border-top:1 solid #000000"><b>项目批准单位及文号</b></td>
<td colspan="4" class=lrt align="center" style="border-top:1 solid #000000">
<p align="center"><b>联系方式</b></td>
</tr>
<tr>
<td class=lt width="102" align="center">
<p align="center"><b>单位名称</b></td>
<td class=lt width="50" align="center"><b>责任人 </b> </td>
<td class=lt width="67" align="center"><b>单位名称</b></td>
<td class=lt width="56" align="center"><b>责任人</b></td>
<td class=lt width="56" align="center"><b>联系人</b></td>
<td class=lt width="66" align="center"><b>联系电话</b></td>
<td class=lt width="60" align="center"><b>通信地址</b></td>
<td class=lrt width="74" align="center"><b>邮政编码</b></td>
</tr>
<tr>
<td class=lt width="20" align=center> </td>
<td class=lt width="99" align=center><b>合计（<%=total%>项）</b><br>
</td>
<td class=lt width="45"> </td>
<td class=lt width="29"> </td>
<td class=lt width="100"> </td>
<td class=lt width="32"> </td>
<td class=lt width="60"> </td>
<td class=lt width="44"> </td>
<td class=lt width="62"> </td>
<td class=lt width="105"> </td>
<td class=lt width="75"> </td>
<td class=lt width="117"> </td>
<td class=lt width="102"> </td>
<td class=lt width="50"> </td>
<td class=lt width="67"> </td>
<td class=lt width="56"> </td>
<td class=lt width="59"> </td>
<td class=lt width="56"> </td>
<td class=lt width="66"> </td>
<td class=lt width="60"> </td>
<td class=lrt width="74"> </td>
</tr>
<%
if not rs.eof then
for i=1 to 10
if not rs.eof then
num=num+1
ID=rs("ID")
Name=""
Name=trim(rs("Name"))
if Name="" then
Name=" "
end if
Address=""
Address=trim(rs("Address"))
if Address="" then
Address=" "
end if
Attribute=""
Attribute=trim(rs("Attribute"))
Att=Attribute
SearAtt="建设性质"
%>
<!--#include file="inc/SearAtt2.asp"-->
<%
if SearEDAtt="" or SearEDAtt="0" then
SearEDAtt=" "
else
set rs4=server.createobject("adodb.recordset")
rs4.open "select Attribute from tblAttribute2 where AttributeID=1 and Daihao="&cint(SearEDAtt),conn,1,1
if not rs4.eof then
SearEDAtt=trim(rs4("Attribute"))
else
SearEDAtt=" "
end if
rs4.close
set rs4=nothing
end if
Money=""
Money=trim(rs("Money"))
if Money="" then
Money=" "
end if
Neirong=""
Neirong=trim(rs("Neirong"))
if Neirong="" then
Neirong=" "
end if
Nianxian=""
Nianxian=trim(rs("Nianxian"))
if Nianxian="" then
Nianxian=" "
end if
KaigongTime=""
KaigongTime=trim(rs("KaigongTime"))
if KaigongTime="" then
KaigongTime=" "
end if
Yezhu_Unit=""
Yezhu_Zerenren=""
Yezhu_Lianxiren=""
Yezhu_Tel=""
Yezhu_Add=""
Yezhu_PostCode=""
Yezhu_Fax=""
Yezhu_Email=""
Zhuguan_Unit=""
Zhuguan_Zerenren=""
Zhuguan_Lianxiren=""
Zhuguan_Add=""
Zhuguan_Tel=""
Zhuguan_PostCode=""
Zhuguan_Fax=""
Zhuguan_Email=""
rs2.open "select * from tblYezhu where ProjectID="&ID,conn,1,1
if not rs2.eof then
Yezhu_Unit=trim(rs2("Yezhu_Unit"))
Yezhu_Zerenren=trim(rs2("Yezhu_Zerenren"))
Yezhu_Lianxiren=trim(rs2("Yezhu_lianxiren"))
Yezhu_Tel=trim(rs2("Yezhu_Tel"))
Yezhu_Add=trim(rs2("Yezhu_Add"))
Yezhu_PostCode=trim(rs2("Yezhu_PostCode"))
Yezhu_Fax=trim(rs2("Yezhu_Fax"))
Yezhu_Email=trim(rs2("Yezhu_Email"))
Zhuguan_Unit=trim(rs2("Zhuguan_Unit"))
Zhuguan_Zerenren=trim(rs2("Zhuguan_Zerenren"))
Zhuguan_Lianxiren=trim(rs2("Zhuguan_lianxiren"))
Zhuguan_Tel=trim(rs2("Zhuguan_Tel"))
Zhuguan_Add=trim(rs2("Zhuguan_Add"))
Zhuguan_PostCode=trim(rs2("Zhuguan_PostCode"))
Zhuguan_Fax=trim(rs2("Zhuguan_Fax"))
Zhuguan_Email=trim(rs2("Zhuguan_Email"))
end if
rs2.close
if Yezhu_Unit="" then
Yezhu_Unit=" "
end if
if Yezhu_Zerenren="" then
Yezhu_Zerenren=" "
end if
if Yezhu_Lianxiren="" then
Yezhu_Lianxiren=" "
end if
if Yezhu_Tel="" then
Yezhu_Tel=" "
end if
if Yezhu_Add="" then
Yezhu_Add=" "
end if
if Yezhu_PostCode="" then
Yezhu_PostCode=" "
end if
if Yezhu_Fax="" then
Yezhu_Fax=" "
end if
if Yezhu_Email="" then
Yezhu_Email=" "
end if
if Zhuguan_Unit="" then
Zhuguan_Unit=" "
end if
if Zhuguan_Zerenren="" then
Zhuguan_Zerenren=" "
end if
if Zhuguan_Lianxiren="" then
Zhuguan_Lianxiren=" "
end if
if Zhuguan_Tel="" then
Zhuguan_Tel=" "
end if
if Zhuguan_Add="" then
Zhuguan_Add=" "
end if
if Zhuguan_PostCode="" then
Zhuguan_PostCode=" "
end if
if Zhuguan_Fax="" then
Zhuguan_Fax=" "
end if
if Zhuguan_Email="" then
Zhuguan_Email=" "
end if
%>
<tr>
<td class=lt width="20" align=center><%=num%></td>
<td class=lt width="99"><%=Name%></td>
<td class=lt width="45"><%=Address%></td>
<td class=lt width="29"><%=SearEDAtt%></td>
<td class=lt width="100"><%=Neirong%></td>
<td class=lt width="32"><%=Nianxian%></td>
<td class=lt width="60">
<%
rs3.open "select * from tblMoney where ProjectID="&ID,conn,1,1
if not rs3.eof then
response.write trim(rs3("Source"))
rs3.movenext
do while not rs3.eof
response.write "<br>"&trim(rs3("Source"))
rs3.movenext
loop
end if
response.write "<br>合计"
rs3.close
%>
</td>
<td class=lt width="44">
<%
rs3.open "select * from tblMoney where ProjectID="&ID,conn,1,1
totalFinance=0
if not rs3.eof then
totalFinance=int(trim(rs3("Money1")))
response.write trim(rs3("Money1"))
rs3.movenext
do while not rs3.eof
totalFinance=totalFinance+int(trim(rs3("Money1")))
response.write "<br>"&trim(rs3("Money1"))
rs3.movenext
loop
end if
response.write "<br>"&totalFinance
rs3.close
%>
</td>
<%
Money=""
Content=""
rs3.open "select Money from tblJindu where Item like '到去年底累计投资完成' and CountDate like '"&year(now())&"%' and ProjectID="&ID,conn,1,1
if not rs3.eof then
Money=rs3("Money")
end if
if Money="" then
Money=" "
end if
rs3.close
rs3.open "select Content from tblJindu where Item like '到去年底累计形象进度' and CountDate like '"&year(now())&"%' and ProjectID="&ID,conn,1,1
if not rs3.eof then
Content=rs3("Content")
end if
if Content="" then
Content=" "
end if
rs3.close
%>
<td class=lt width="62"><%=Money%></td>
<td class=lt width="105"><%=Content%></td>
<%
Money=""
Content=""
rs3.open "select Money,Content from tblPlan where ThisYear like '"&year(now)&"' and ProjectID="&ID,conn,1,1
if not rs3.eof then
Money=rs3("Money")
Content=rs3("Content")
end if
if Money="" then
Money=" "
end if
if Content="" then
Content=" "
end if
rs3.close
%>
<td class=lt width="75"><%=Money%></td>
<td class=lt width="117"><%=Content%></td>
<td class=lt width="102"><%=Yezhu_Unit%></td>
<td class=lt width="50"><%=Yezhu_Lianxiren%></td>
<td class=lt width="67"><%=Zhuguan_Unit%></td>
<td class=lt width="56"><%=Zhuguan_Zerenren%></td>
<%
ShenpiUnit=""
ShenpiNo=""
ShenpiUnitNo=""
rs3.open "select ShenpiUnit,ShenpiNo from tblShenpi where Item like '项目建议书' and ProjectID="&ID,conn,1,1
if not rs3.eof then
ShenpiUnitNo=rs3("ShenpiUnit")&rs3("ShenpiNo")
end if
if ShenpiUnitNo="" then
ShenpiUnitNo=" "
end if
rs3.close
%>
<td class=lt width="59"><%=ShenpiUnitNo%></td>
<td class=lt width="56"><%=Yezhu_Lianxiren%></td>
<td class=lt width="66"><%=Yezhu_Tel%></td>
<td class=lt width="60"><%=Yezhu_Add%></td>
<td class=lrt width="74"><%=Yezhu_PostCode%></td>
</tr>
<%
rs.movenext
else
exit for
end if
next
else
%>
<TR>
<TD colspan=21> </TD>
</TR>
<%
end if
rs.close
%>
</table>
</body>
</html>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?