waizi_qianqi.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 260 行
ASP
260 行
<%
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")
rs.open "select * from tblBase where Attribute like '%(10:8)%' or Attribute like '%(10:9)%' or Attribute like '%(10:10)%'",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="1450" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align=center colspan="9"><font size="5">成都市利用外资前期工作项目表</font></td>
</tr>
<tr>
<td class=lt align=center width="48" style="border-top:1 solid #000000">序号</td>
<td class=lt align=center width="161" style="border-top:1 solid #000000">项目名称</td>
<td class=lt align=center width="139" style="border-top:1 solid #000000">建设性质</td>
<td class=lt align=center width="105" style="border-top:1 solid #000000">建设规模</td>
<td class=lt align=center width="139" style="border-top:1 solid #000000">总投资（万元）</td>
<td class=lt align=center width="197" style="border-top:1 solid #000000">借用国外贷款和外商投资（万美元）</td>
<td class=lt align=center width="308" style="border-top:1 solid #000000">借用国外贷款和外商投资来源</td>
<td class=lt align=center width="139" style="border-top:1 solid #000000">前期工作进度</td>
<td class=lrt align=center width="142" style="border-top:1 solid #000000">备注</td>
</tr>
<%
if not rs.eof then
for i=1 to 10
if not rs.eof then
num=num+1
ID=rs("ID")
rs2.open "select Source,Money1 from tblMoney where (Source like '外商直接投资' or Source like '国外政府贷款' or Source like '国外商业贷款') and ProjectID="&ID,conn,1,1
TMoney=0
Source=""
if not rs2.eof then
do while not rs2.eof
TMoney=TMoney+rs2("Money1")
Source=Source&"<br>"&trim(rs2("Source"))
rs2.movenext
loop
end if
rs2.close
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="(1:"
%>
<!--#include file="inc/SearAtt2.asp"-->
<%
if SearEDAtt="" or SearEDAtt="0" then
SearEDAtt=" "
else
set rs3=server.createobject("adodb.recordset")
rs3.open "select Attribute from tblAttribute2 where AttributeID=1 and Daihao="&cint(SearEDAtt),conn,1,1
if not rs3.eof then
SearEDAtt=trim(rs3("Attribute"))
else
SearEDAtt=" "
end if
rs3.close
set rs3=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 align=center class=lt width="48"><%=num%></td>
<td class=lt width="161" title="ID:<%=rs("ID")%>"> <%=Name%></td>
<td class=lt width="139"> <%=SearEDAtt%></td>
<td class=lt width="105"> <%=Neirong%></td>
<td class=lt width="139"> <%=Money%></td>
<td class=lt width="197"> <%=TMoney%></td>
<td class=lt width="308"> <%=Source%></td>
<%
Advance=" "
Comment=" "
%>
<td class=lt width="139"> <%=Advance%></td>
<td class=lrt width="142"> <%=Comment%></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 + -
显示快捷键?