page.asp

投资管理系统, asp+ mssql server

<%
total=0
total1=0
total2=0
total3=0
total4=0
set rs=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
set rs4=server.createobject("adodb.recordset")

rs.open "select * from tblProjectBase where Attribute like '%t%' and Attribute like '%u%'",conn,1,1
if not rs.eof then
	total1=rs.recordcount
end if

rs2.open "select * from tblProjectBase where Attribute like '%t%' and Attribute like '%r%' or Attribute like '%t%' and Attribute like '%s%'",conn,1,1
if not rs2.eof then
	total2=rs2.recordcount
end if

rs3.open "select * from tblProjectBase where Attribute like '%a%' and Attribute like '%u%'",conn,1,1
if not rs3.eof then
	total3=rs3.recordcount
end if

rs4.open "select * from tblProjectBase where Attribute like '%a%' and Attribute like '%r%' or Attribute like '%a%' and Attribute like '%s%'",conn,1,1
if not rs4.eof then
	total4=rs4.recordcount
end if

pagesize=11

page=trim(request("page"))

if page="" then
	page=1
end if

if total1=0 then
	f1=0
	if total2=0 then
		f2=0
		if total3=0 then
			f3=0
			if total4=0 then
				f4=0
			else
				f4=1
			end if
		else
			f3=1
			if total4=0 then
				f4=0
			else
				if (total3\pagesize)*pagesize<=total3 then
					f4=(total3\pagesize)+1
				else
					f4=total3\pagesize
				end if
			end if
		end if
	else
		f2=1
		if total3=0 then
			f3=0
			if total4=0 then
				f4=0
			else
				if (total2\pagesize)*pagesize<=total2 then
					f4=(total2\pagesize)+1
				else
					f4=(total2\pagesize)
				end if
			end if
		else
			if (total2\pagesize)*pagesize<=total2 then
				f3=(total2\pagesize)+1
			else
				f3=total2\pagesize
			end if
			if total4=0 then
				f4=0
			else
				if ((total2+total3)\pagesize)*pagesize<=(total2+total3) then
					f4=((total2+total3)\pagesize)+1
				else
					f4=(total2+total3)\pagesize
				end if
			end if
		end if
	end if
else
	f1=1
	if total2=0 then
		f2=0
		if total3=0 then
			f3=0
			if total4=0 then
				f4=0
			else
				if (total1\pagesize)*pagesize<=total1 then
					f4=(total1\pagesize)+1
				else
					f4=total1\pagesize
				end if
			end if
		else
			if (total1\pagesize)*pagesize<=total1 then
				f3=(total1\pagesize)+1
			else
				f3=total1\pagesize
			end if
			if total4=0 then
				f4=0
			else
				if ((total1+total3)\pagesize)*pagesize<=total1+total3 then
					f4=((total1+total3)\pagesize)+1
				else
					f4=(total1+total3)\pagesize
				end if
			end if
		end if
	else
		if (total1\pagesize)*pagesize<=total1 then
			f2=(total1\pagesize)+1
		else
			f2=total1\pagesize
		end if
		if total3=0 then
			f3=0
			if total4=0 then
				f4=0
			else
				if ((total1+total2)\pagesize)*pagesize<=total1+total2 then
					f4=((total1+total2)\pagesize)+1
				else
					f4=(total1+total2)\pagesize
				end if
			end if
		else
			if ((total1+total2)\pagesize)*pagesize<=total1+total2 then
				f3=((total1+total2)\pagesize)+1
			else
				f3=(total1+total2)\pagesize
			end if
			if total4=0 then
				f4=0
			else
				if ((total1+total2+total3)\pagesize)*pagesize<=total1+total2+total3 then
					f4=((total1+total2+total3)\pagesize)+1
				else
					f4=(total1+total2+total3)\pagesize
				end if
			end if
		end if
	end if
end if

pagecount=(total1+total2+total3+total4)\pagesize
if pagesize*pagecount<(total1+total2+total3+total4) then
	pagecount=pagecount+1
end if
%>