qianqi.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 377 行
ASP
377 行
<%
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>
<td align=center colspan="2"><font size=5>成都市前期重点建设项目表</font></td>
</tr>
<tr>
<td width="1271" class=title> </td>
<td width="107" class=title>单位：万元</td>
</tr>
</table>
<table width="1378" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>序号</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>项目名称</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>建设地址</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>建设性质</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>建设规模</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>建设工期</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>预计争取开工时间</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>投资来源</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>项目总投资</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>到上年底完成的前期工作情况</b></td>
<td class=lt align=center rowspan="2" style="border-top:1 solid #000000"><b>当年前期工作计划目标</b></td>
<td class=lt align=center colspan="2" style="border-top:1 solid #000000"><b>项目业主<br>
</b></td>
<td class=lt align=center colspan="2" style="border-top:1 solid #000000"><b>行业主管部门<br>
</b></td>
<td class=lt align=center rowspan="2" width="91" style="border-top:1 solid #000000"><b>项目上报单位及文号</b></td>
<td class=lt align=center rowspan="2" width="93" style="border-top:1 solid #000000"><b>项目批准单位及文号</b></td>
<td class=lrt align=center colspan="4" style="border-top:1 solid #000000"><b>联系方式<br>
</b></td>
</tr>
<tr>
<td class=lt align=center width="54"><b>单位名称<br>
</b></td>
<td class=lt align=center width="45"><b>责任人</b></td>
<td class=lt align=center width="52"><b>单位名称</b></td>
<td class=lt align=center width="47"><b>责任人</b></td>
<td class=lt align=center width="56"><b>联系人</b></td>
<td class=lt align=center width="56"><b>联系电话</b></td>
<td class=lt align=center width="55"><b>通信地址</b></td>
<td class=lrt align=center width="58"><b>邮政编码</b></td>
</tr>
<tr>
<td class=lt align=center width="16"> </td>
<td class=lt align=center width="87"><b>合 计(<%=total%>项)</b></td>
<td class=lt width="54"> </td>
<td class=lt width="43"> </td>
<td class=lt width="105"> </td>
<td class=lt width="40"> </td>
<td class=lt width="53"> </td>
<td class=lt width="56"> </td>
<td class=lt width="55"> </td>
<td class=lt width="145"> </td>
<td class=lt width="117"> </td>
<td class=lt width="54"> </td>
<td class=lt width="45"> </td>
<td class=lt width="52"> </td>
<td class=lt width="47"> </td>
<td class=lt width="91"> </td>
<td class=lt width="93"> </td>
<td class=lt width="56"> </td>
<td class=lt width="56"> </td>
<td class=lt width="55"> </td>
<td class=lrt width="58"> </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
rs2.open "select Money from tblJindu where CountDate like '"&year(now())&"%' and ProjectID="&ID,conn,1,1
Money1=" "
Money2=" "
if not rs2.eof then
Money1=trim(rs2("Money"))
if Money1="" then
Money1=0
end if
Money2=trim(rs2("Money"))
if Money2="" then
Money2=0
end if
end if
rs2.close
%>
<tr>
<td class=lt align=center width="16"><%=num%></td>
<td class=lt width="87"><%=Name%></td>
<td class=lt width="54"><%=Address%></td>
<td class=lt width="43"><%=SearEDAtt%></td>
<td class=lt width="105"><%=Neirong%></td>
<td class=lt width="40"><%=Nianxian%></td>
<td class=lt width="53"><%=KaigongTime%></td>
<td class=lt width="56">
<%
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="55"><%=Money%></td>
<%
Content=""
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="145"><%=Content%></td>
<%
Content=""
rs3.open "select Content from tblPlan where ThisYear 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="117"><%=Content%></td>
<td class=lt width="54"><%=Yezhu_Unit%></td>
<td class=lt width="45"><%=Yezhu_Zerenren%></td>
<td class=lt width="52"><%=Zhuguan_Unit%></td>
<td class=lt width="47"><%=Zhuguan_Zerenren%></td>
<%
ShangbaoUnitNo=""
ShangbaoUnit=""
ShangbaoNo=""
ShenpiUnitNo=""
ShenpiUnit=""
ShenpiNo=""
rs3.open "select ShangbaoUnit,ShangbaoNo,ShenpiUnit,ShenpiNo from tblShenpi where Item like '项目建议书' and ProjectID="&ID,conn,1,1
if not rs3.eof then
ShangbaoUnitNo=rs3("ShangbaoUnit")&rs3("ShangbaoNo")
ShenpiUnitNo=rs3("ShenpiUnit")&rs3("ShenpiNo")
end if
if ShangbaoUnitNo="" then
ShangbaoUnitNo=" "
end if
if ShenpiUnitNo="" then
ShenpiUnitNo=" "
end if
rs3.close
%>
<td class=lt width="91"><%=ShangbaoUnitNo%></td>
<td class=lt width="93"><%=ShenpiUnitNo%></td>
<td class=lt width="56"><%=Yezhu_Lianxiren%></td>
<td class=lt width="56"><%=Yezhu_Tel%></td>
<td class=lt width="55"><%=Yezhu_Add%></td>
<td class=lrt width="58"><%=Yezhu_PostCode%></td>
</tr>
<%
rs.movenext
else
exit for
end if
next
else
%>
<TR>
<TD colspan=22> </TD>
</TR>
<%
end if
rs.close
%>
</table>
</body>
</html>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?