pagelink.inc

多用户个人主页系统(ASP)

 <%
'******************************
'分页函数
'******************************
function PageLink
	dim pageshowsize,scriptname,pagenextsize,pagetpage,pagecountersize,pagesizeshow,prevpage,pagenext
	PageShowSize	= 20
	if otherinfo	="" then
		Scriptname	= Request.Servervariables("script_name")&"?"
	else 
		Scriptname	= Request.Servervariables("script_name")&"?"&otherinfo
	end if
	PageNextSize=int((page-1)/PageShowSize)+1
	Pagetpage=int((msgtotal-1)/MyPageSize)+1 
if maxpages>3 then response.write "<a href='" & Scriptname & "page=1'>首页</a>　"
if Maxpages>1 then 
'	if PageNextSize>1 then
'		PagePrev=PageShowSize*(PageNextSize-1)
'		Response.write "<a href='" & Scriptname & "page=" & PagePrev & "'>上十页</a>　"
'	end if 
	if page-1>0 then
		Prev_Page = page - 1
		Response.write "<a href='" & Scriptname & "page=" & Prev_Page & "'>上一页</a>　"
	end if 
'	if maxpages>=PageNextSize*PageShowSize then
'		PageSizeShow = PageShowSize
'	else        
'		PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
'	end if
'	for PageCounterSize=1 to PageSizeShow  
'		PageLink = (PageCounterSize+PageNextSize*10)-10 
'		if PageLink <> cint(page) then
'			Response.write "<a href='" & Scriptname & "page=" & PageLink & "'>[" & PageLink & "]</a> "     
'		else
'			Response.Write "<B>[" & PageLink & "]</b>  "       
'		end if
'	next
	if page+1 <=Pagetpage  then   
		Next_Page = page + 1     
		Response.write "<a href='" & Scriptname & "page=" & Next_Page & "'>下一页</a>　"     
	end if 
'	if maxpages > PageShowSize*PageNextSize then   
'		PageNext = PageShowSize * PageNextSize + 1   
'		Response.write "<a href='" & Scriptname & "page=" & PageNext & "'>下十页</a>"
'	end if 
	if maxpages>3 then response.write "<a href='" & Scriptname & "page=" & maxpages & "'>尾页</a>　"
else
	response.write "只有一页"
end if 
	response.write "　 总记录：<font color="&skin(8)&">"&msgtotal&"</font>"&_
			"　总页数：<font color="&skin(8)&">"&maxpages&_
			"</font>　"&_
			"当前页：<font color="&skin(8)&">"&page&"</font>"     
END function%>