zaijian.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 '%(3:3)%' and Attribute like '%(9:1)%' 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=ltt width="22" align="center"><b>序号</b></td>
<td rowspan="2" class=ltt width="91" align="center"><b>项目名称</b></td>
<td rowspan="2" class=ltt width="43" align="center"><b>建设地址</b></td>
<td rowspan="2" class=ltt width="45" align="center"><b>建设性质</b></td>
<td rowspan="2" class=ltt width="71" align="center"><b>建设规模</b></td>
<td rowspan="2" class=ltt width="31" align="center"><b>建设年限</b></td>
<td rowspan="2" class=ltt width="62" align="center"><b>投资来源</b></td>
<td rowspan="2" class=ltt width="68" align="center"><b>已批总投资</b></td>
<td rowspan="2" class=ltt width="125" align="center"><b>到上年底预计累计完成投资</b></td>
<td rowspan="2" class=ltt width="139" align="center"><b>到上年底预计达到的工程形象进度</b></td>
<td rowspan="2" class=ltt width="110" align="center"><b>当年建议投资计划</b></td>
<td rowspan="2" class=ltt width="123" align="center"><b>当年考核目标要求达到的主要形象进度</b></td>
<td colspan="2" width="145" align="center" style="border-left:1 solid #000000;border-top:1 solid #000000">
<p align="center"><b>项目业主</b></td>
<td colspan="2" width="108" align="center" style="border-left:1 solid #000000;border-top:1 solid #000000">
<p align="center"><b>行业主管部门</b></td>
<td rowspan="2" class=ltt width="61" align="center"><b>项目批准单位及文号</b></td>
<td colspan="4" width="209" align="center" style="border-left:1 solid #000000;border-top:1 solid #000000;border-right:1 solid #000000">
<p align="center"><b>联系方式</b></td>
</tr>
<tr>
<td class=ltt width="104" align="center">
<p align="center"><b>单位名称</b></td>
<td class=ltt width="40" align="center"><b>责任人 </b>
</td>
<td class=ltt width="57" align="center"><b>单位名称</b></td>
<td class=ltt width="50" align="center"><b>责任人</b></td>
<td class=ltt width="39" align="center"><b>联系人</b></td>
<td class=ltt width="51" align="center"><b>联系电话</b></td>
<td class=ltt width="62" align="center"><b>通信地址</b></td>
<td class=ltt width="54" align="center" style="border-right:1 solid #000000"><b>邮政编码</b></td>
</tr>
<tr>
<td class=lt width="22" align=center> </td>
<td class=lt width="91" align=center><b>合计（<%=total%>项）</b><br>
</td>
<td class=lt width="43"> </td>
<td class=lt width="45"> </td>
<td class=lt width="71"> </td>
<td class=lt width="31"> </td>
<td class=lt width="62"> </td>
<td class=lt width="68"> </td>
<td class=lt width="125"> </td>
<td class=lt width="139"> </td>
<td class=lt width="110"> </td>
<td class=lt width="123"> </td>
<td class=lt width="104"> </td>
<td class=lt width="40"> </td>
<td class=lt width="57"> </td>
<td class=lt width="50"> </td>
<td class=lt width="61"> </td>
<td class=lt width="39"> </td>
<td class=lt width="51"> </td>
<td class=lt width="62"> </td>
<td class=lrt width="54"> </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="22" align=center><%=num%></td>
<td class=lt width="91"><%=Name%></td>
<td class=lt width="43"><%=Address%></td>
<td class=lt width="45"><%=SearEDAtt%></td>
<td class=lt width="71"><%=Neirong%></td>
<td class=lt width="31"><%=Nianxian%></td>
<td class=lt width="62">
<%
rs3.open "select Source 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="68">
<%
rs3.open "select Money1 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="125"><%=Money%></td>
<td class=lt width="139"><%=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="110"><%=Money%></td>
<td class=lt width="123"><%=Content%></td>
<td class=lt width="104"><%=Yezhu_Unit%></td>
<td class=lt width="40"><%=Yezhu_Zerenren%></td>
<td class=lt width="57"><%=Zhuguan_Unit%></td>
<td class=lt width="50"><%=Zhuguan_Zerenren%></td>
<%
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="61"><%=ShenpiUnitNo%></td>
<td class=lt width="39"><%=Zhuguan_Lianxiren%></td>
<td class=lt width="51"><%=Zhuguan_Tel%></td>
<td class=lt width="62"><%=Zhuguan_Add%></td>
<td class=lrt width="54"><%=Zhuguan_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 + -
显示快捷键?