noname5.asp

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

<%
if total1=0 then
	if total2=0 then
		if total3=0 then
			if total4<>0 then
				if page*pagesize<total4 then
					if f4=page then
						%>
						一在建项目
						(一)城市基础设施和交通项目(<%=total4%>)项
						<%
					end if
					for i=1 to (page-1)*pagesize
						rs4.movenext
					next
					for i=1 to 11
						if not rs4.eof then
							%>
							<%=trim(rs4("ProjectName"))%>
							<%
							rs4.movenext
						else
							exit for
						end if
					next
				end if
			end if
		'total3<>0
		else
			if total4=0 then
				if page*pagesize<total3 then
					if f3=page then
						%>
						一在建项目
						(一)农林水利项目(<%=total3%>)项
						<%
					end if
					for i=1 to (page-1)*pagesize
						rs3.movenext
					next
					for i=1 to 11
						if not rs3.eof then
							%>
							<%=trim(rs3("ProjectName"))%>
							<%
							rs3.movenext
						else
							exit for
						end if
					next
				end if
			'total3<>0 and total4<>0
			else
				if page*pagesize<(total3+total4) then
					'如果
					if page*pagesize<total3 then
						if f3=page then
							%>
							一在建项目
							(一)农林水利项目(<%=total3%>)项
							<%
						end if
						for i=1 to (page-1)*pagesize
							rs3.movenext
						next
						tt=0
						for i=1 to 11
							tt=tt+1
							if not rs3.eof then
								%>
								<%=trim(rs3("ProjectName"))%>
								<%
								rs3.movenext
							else
								exit for
							end if
						next
						if tt<11 then
							%>
							(二)城市基础设施和交通项目(<%=total4%>)项
							<%
							for i=1 to 11-tt
								if not rs4.eof then
									%>
									<%=trim(rs4("ProjectName"))%>
									<%
									rs4.movenext
								else
									exit for
								end if
							next
						end if
					end if
				end if
			end if
		end if
	'total2<>0
	else

	end if
'total1<>0
else

end if
%>