zhengqu.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 393 行
ASP
393 行
<%
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=1",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="22" align="center" style="border-top:1 solid #000000"><b>序号</b></td>
<td rowspan="2" class=lt width="91" align="center" style="border-top:1 solid #000000"><b>项目名称</b></td>
<td rowspan="2" class=lt width="50" align="center" style="border-top:1 solid #000000"><b>建设地址</b></td>
<td rowspan="2" class=lt width="38" align="center" style="border-top:1 solid #000000"><b>建设性质</b></td>
<td rowspan="2" class=lt width="71" align="center" style="border-top:1 solid #000000"><b>建设规模</b></td>
<td rowspan="2" class=lt width="31" 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="62" align="center" style="border-top:1 solid #000000"><b>投资来源</b></td>
<td rowspan="2" class=lt width="63" align="center" style="border-top:1 solid #000000"><b>已批总投资</b></td>
<td rowspan="2" class=lt width="67" align="center" style="border-top:1 solid #000000"><b>到上年底累计完成投资</b></td>
<td rowspan="2" class=lt width="106" align="center" style="border-top:1 solid #000000"><b>到上年底完成的前期工作情况</b></td>
<td rowspan="2" class=lt width="54" align="center" style="border-top:1 solid #000000"><b>当年投资计划</b></td>
<td rowspan="2" class=lt width="111" 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="65" 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="85" align="center">
<p align="center"><b>单位名称</b>
</td>
<td class=lt width="53" align="center"><b>责任人 </b> </td>
<td class=lt width="64" align="center"><b>单位名称</b></td>
<td class=lt width="54" align="center"><b>责任人</b></td>
<td class=lt width="55" align="center"><b>联系人</b></td>
<td class=lt width="58" align="center"><b>联系电话</b></td>
<td class=lt width="62" align="center"><b>通信地址</b></td>
<td class=lrt width="54" align="center"><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="50"> </td>
<td class=lt width="38"> </td>
<td class=lt width="71"> </td>
<td class=lt width="31"> </td>
<td class=lt width="62"> </td>
<td class=lt width="62"> </td>
<td class=lt width="63"> </td>
<td class=lt width="67"> </td>
<td class=lt width="106"> </td>
<td class=lt width="54"> </td>
<td class=lt width="111"> </td>
<td class=lt width="85"> </td>
<td class=lt width="53"> </td>
<td class=lt width="64"> </td>
<td class=lt width="54"> </td>
<td class=lt width="65"> </td>
<td class=lt width="55"> </td>
<td class=lt width="58"> </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="50"><%=Address%></td>
<td class=lt width="38"><%=SearEDAtt%></td>
<td class=lt width="71"><%=Neirong%></td>
<td class=lt width="31"><%=Nianxian%></td>
<td class=lt width="62"><%=KaigongTime%></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="63">
<%
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="67"><%=Money%></td>
<td class=lt width="106"><%=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="54"><%=Money%></td>
<td class=lt width="111"><%=Content%></td>
<td class=lt width="85"><%=Yezhu_Unit%></td>
<td class=lt width="53"><%=Yezhu_Zerenren%></td>
<td class=lt width="64"><%=Zhuguan_Unit%></td>
<td class=lt width="54"><%=Zhuguan_Zerenren%></td>
<%
ShangbaoUnit=""
ShangbaoNo=""
rs3.open "select ShangbaoUnit,ShangbaoNo from tblShenpi where Item like '项目建议书' and ProjectID="&ID,conn,1,1
if not rs3.eof then
ShangbaoUnitNo=rs3("ShangbaoUnit")&rs3("ShangbaoNo")
end if
if ShangbaoUnitNo="" then
ShangbaoUnitNo=" "
end if
rs3.close
%>
<td class=lt width="65"><%=ShangbaoUnitNo%></td>
<td class=lt width="55"><%=Yezhu_Lianxiren%></td>
<td class=lt width="58"><%=Yezhu_Tel%></td>
<td class=lt width="62"><%=Yezhu_Add%></td>
<td class=lrt width="54"><%=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 + -
显示快捷键?