multipage_func.asp

这是ASP的OA

<%
'Response.write(MultiPage(page,20,14560,"&id=2"))
Function MultiPage(CurPage,EachPageNum,TotalNum,OtherPara)
	Dim PageString1,TotalPages1
	TotalPages1=cint(TotalNum\EachPageNum)
	If (TotalNum Mod EachPageNum)<>0 Then TotalPages1=TotalPages1+1
	If CurPage>TotalPages1 Then CurPage=TotalPages1
	PageString1="<table width=100% border=0 cellspacing=0 cellpadding=0>"
	PageString1=PageString1&"<form name=form1 method=post action=""?"&OtherPara&""">"
	PageString1=PageString1&"<tr><td width=28% nowrap>"
	PageString1=PageString1&"页次：<b>"&CurPage&"</b>/<b>"&TotalPages1&"</b>页 每页<b>"&EachPageNum&"</b> 总数<b>"&TotalNum&"</b>"
	PageString1=PageString1&"</td><td width=72% nowrap align=right>"
	PageString1=PageString1&"分页："&MultiPage_(CurPage,TotalPages1,OtherPara)&""
	PageString1=PageString1&"&nbsp;&nbsp;转到：<input class=input1 name=page type=text id=page size=2 maxlength=5>&nbsp;"
	PageString1=PageString1&"<input class=input1 type=submit name=Submit value=GO>&nbsp;"
	PageString1=PageString1&"</td></tr></form></table>"
	MultiPage=PageString1
End Function
Function MultiPage_(CurPage,TotalPages,OtherPara)
	Dim MP_i,MP_StartPage,MP_EndPage,PageString,MP_N
	MP_N=3
	PageString=""
	MP_StartPage=CurPage-MP_N
	If MP_StartPage<1 Then MP_StartPage=1
	MP_EndPage=MP_StartPage+2*MP_N
	If MP_EndPage>TotalPages Then
		MP_EndPage=TotalPages
		MP_StartPage=MP_EndPage-2*MP_N
		If MP_StartPage<1 Then MP_StartPage=1
	End If
	If MP_StartPage=2 Then MP_StartPage=1
	If MP_EndPage=TotalPages-1 Then MP_EndPage=TotalPages
	If MP_StartPage>2 Then PageString=PageString&"<a href=""?page=1"&OtherPara&""">1</a>&nbsp;&nbsp;<a href=""?page=2"&OtherPara&""">2</a>&nbsp;&nbsp;"
	If MP_StartPage>3 Then PageString=PageString&"....&nbsp;&nbsp;"
	For MP_i=MP_StartPage To MP_EndPage
		If MP_i>TotalPages Then Exit For
		If MP_i=CurPage Then
			PageString=PageString&"[<font color=red>"&MP_i&"</font>]&nbsp;&nbsp;"
		Else
			PageString=PageString&"<a href=""?page="&MP_i&OtherPara&""">"&MP_i&"</a>&nbsp;&nbsp;"
		End If
	Next
	If MP_EndPage<TotalPages-2 Then PageString=PageString&"....&nbsp;&nbsp;"
	If MP_EndPage<TotalPages-1 Then PageString=PageString&"<a href=""?page="&TotalPages-1&OtherPara&""">"&TotalPages-1&"</a>&nbsp;&nbsp;<a href=""?page="&TotalPages&OtherPara&""">"&TotalPages&"</a>&nbsp;&nbsp;"
	MultiPage_=PageString&""
End Function
%>