page_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 111 行

<%
	'用法定义DataName,PageNum,PageEnd,i为数据个数  
	'循环
	'if Cint(Page*PageNum-1)<Cint(i-1) then
		'PageEnd = Page*PageNum-1
	'else
		'PageEnd = i-1
	'end if	
	'for j = (Page-1)*PageNum to PageEnd

	dim Page,PageTrueUrl,MaxPage,PageUrl,PageQuery,LeftPageUrl,RightPageUrl
	
	'初始化
	Page=sqlCheck(Request.QueryString("Page"))
	
	if Page <= 0 or Page = "" then
		Page = 1
	end if
	
	
	sub PageTable()
	
	'判断页面最大值
	if i mod PageNum = 0 then
		MaxPage=int(i/PageNum)
	else
		MaxPage=int(i/PageNum)+1
	end if
	'读取该执行文件
	PageUrl=Request.ServerVariables("URL") 
	PageUrl=split(PageUrl,"/")
	LeftPageUrl=PageUrl(Ubound(PageUrl))
	
	'读取字符串
	PageQuery=Request.ServerVariables("QUERY_STRING") 
	
	if instr(PageQuery,"&") then
	'多字符
		if instr(PageQuery,"&page=") then
		'非头一次读
			PageQuery=split(PageQuery,"&page=")
			RightPageUrl="?"&PageQuery(0)&"&"
		else
		'头次读
			RightPageUrl="?"&PageQuery&"&"
		end if
	else
	'单字符或者无字符
		if PageQuery<>"" then
		'单字符
			if instr(PageQuery,"page=") then
				RightPageUrl="?"
			else
				RightPageUrl="?"&PageQuery&"&"
			end if
		else
		'无字符
			RightPageUrl="?"
		end if
	end if
	
	'页面地址OK
	PageTrueUrl = LeftPageUrl&RightPageUrl
	
%>
		<table width="100%" border="0" cellpadding="0" cellspacing="0" style="clear:right;" align="right" height="30">
		  <tr>
			<td align="center">
				（共有<%=i%><%=DataName%>，分<%=MaxPage%>页，当前为第<%=Page%>页）
				<a href="<%=PageTrueUrl%>page=1">首页</a>
<%
	if Cint(Page) <> 1 then
%>
				<a href="<%=PageTrueUrl%>page=<%=Page-1%>">上一页</a> 
<%
	else
%>
				上一页
<%
	end if
%>
<%
	if Cint(MaxPage)>Cint(Page) then
%>			
				<a href="<%=PageTrueUrl%>page=<%=Page+1%>">下一页</a>
<%
	else
%>
				下一页
<%
	end if	
%>				
				<a href="<%=PageTrueUrl%>page=<%=MaxPage%>">尾页</a>
				
				转到第
				<select onchange="window.open(options[selectedIndex].value,'_self')">
<%
	for PageNum = 1 to MaxPage
%>	
					<option value="<%=PageTrueUrl%>page=<%=PageNum%>" <%if Cint(PageNum) = Cint(Page) then%>selected<%end if%>><%=PageNum%></option>
<%
	next
%>	
				</select>页
				
			</td> 
		  </tr>
</table>
<%
	end sub
%>