waizi.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 160 行

ASP
160 行
字号 
<%
response.expires=-1
dim ThisKey
ThisKey = "d"
%>
<!--#include file="inc/permission.asp"-->
<!--#include file="inc/conn.inc"-->
<%
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
rs.open "select * from tblProjectBase where Attribute like '%h%' and Attribute like '%b%'",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="10"><font size="5">成都市借用国外贷款项目表</font></td>
  </tr>
  <tr> 
    <td class=lt align=center rowspan="2" width="23" style="border-top:1 solid #000000">序号</td>
    <td class=lt align=center rowspan="2" width="181" style="border-top:1 solid #000000">项目名称</td>
    <td class=lt align=center rowspan="2" width="135" style="border-top:1 solid #000000">建设性质</td>
    <td class=lt align=center rowspan="2" width="102" style="border-top:1 solid #000000">总投资</td>
    <td class=lt align=center colspan="2" style="border-top:1 solid #000000">项目基本情况</td>
    <td class=lt align=center rowspan="2" width="300" style="border-top:1 solid #000000">利用国外贷款批准数</td>
    <td class=lt align=center rowspan="2" width="135" style="border-top:1 solid #000000">执行情况</td>
    <td class=lt align=center rowspan="2" width="135" style="border-top:1 solid #000000">外资来源</td>
    <td class=lrt align=center rowspan="2" width="75" style="border-top:1 solid #000000">备注</td>
  </tr>
  <tr> 
    <td class=lt align=center width="135">建设内容</td>
    <td class=lt align=center width="135">起止年限</td>
  </tr>
  <%
if not rs.eof then
	for i=1 to 10
		if not rs.eof then
			num=num+1
			ID=rs("ID")
			ProjectName=trim(rs("ProjectName"))
			if ProjectName="" then
				ProjectName="&nbsp;"
			end if

			BuildNature=trim(rs("BuildNature"))
			if BuildNature="" then
				BuildNature="&nbsp;"
			end if

			BuildScale=trim(rs("BuildScale"))
			if BuildScale="" then
				BuildScale="&nbsp;"
			end if

			BuildDate=trim(rs("BuildDate"))
			if BuildDate="" then
				BuildDate="&nbsp;"
			end if

			BuildContent=trim(rs("BuildContent"))
			if BuildContent="" then
				BuildContent="&nbsp;"
			end if

			Attribute=trim(rs("Attribute"))
				rs2.open "select * from tblProjectOverseasLoan where ProjectID="&ID,conn,1,1
				TotalLoan=0
				Perform="&nbsp;"
				Source="&nbsp;"
				Comment="&nbsp;"				
				if not rs2.eof then
					TotalLoan=trim(rs2("TotalLoan"))
					if TotalLoan="" then
						TotalLoan=0
					end if
					Perform=trim(rs2("Perform"))
					if Perform="" then
						Perform=0
					end if
					Source=trim(rs2("Source"))
					if Source="" then
						Source="&nbsp;"
					end if
					Comment=trim(rs2("Comment"))
					if Comment="" then
						Comment="&nbsp;"
					end if
				end if
				rs2.close
  %>
  <tr> 
    <td class=lt width="23"><%=num%></td>
    <td class=lt width="181"><%=ProjectName%></td>
    <td class=lt width="135"><%=BuildNature%></td>
    <td class=lt width="102">
	<%
	rs3.open "select * from tblProjectFinance2 where ProjectID="&ID,conn,1,1
	totalFinance=0
	if not rs3.eof then
		totalFinance=int(trim(rs3("Finance")))
		response.write trim(rs3("Finance"))
		rs3.movenext
			do while not rs3.eof
				totalFinance=totalFinance+int(trim(rs3("Finance")))
				'response.write "<br>"&trim(rs3("Finance"))
				rs3.movenext
			loop
	end if
	response.write totalFinance
	rs3.close
	%>	
	</td>
    <td class=lt width="135"><%=BuildContent%></td>
    <td class=lt width="135"><%=BuildDate%></td>
    <td class=lt width="300"><%=TotalLoan%></td>
    <td class=lt width="135"><%=Perform%></td>
    <td class=lt width="135"><%=Source%></td>
    <td class=lrt width="75"><%=Comment%></td>
  </tr>
 <%
			rs.movenext
		else
				exit for
			end if
		next
	else
%>
   <TR> 
	<TD colspan=21>&nbsp;</TD>
   </TR>
<%
	end if
rs.close
%>
</table>
</body>
</html>
<!--#include file="inc/close.inc"-->

waizi.asp - 源码说明

本页面展示了「投资管理系统, asp+ mssql server」中的 waizi.asp 源码文件，采用 ASP 编程语言编写，共 160 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?