numberminutepage.asp

asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内不带任何广告代码 弥补了ASP相对与PHP的功能缺陷

<%

FunCtion NumberMinutePage(PageSizes,RecordCounts,PageAfterText,PageNumber,CountNumber,PageBeforeText,TrueFalse)

	PageNumber1=PageNumber-5
	If PageNumber1<1 Then
	PageNumber1=1
	End If
	For iiii=PageNumber1 To PageNumber-1
	PageNumber1=PageNumber1&" <a href="&PageAfterText&iiii&PageBeforeText&">"&iiii&"</a> "
	Next
	
	PageNumber2=PageNumber+5
	If PageNumber2<10 Then
	PageNumber2=10
	End If
	If PageNumber2>CountNumber Then
	PageNumber2=CountNumber
	End If
	For iiii=PageNumber+1 To PageNumber2

	PageNumber2=PageNumber2&" <a href="&PageAfterText&iiii&PageBeforeText&">"&iiii&"</a> "

	Next
	
	For iiii=1 To CountNumber
	If iiii=PageNumber Then
	selected=" selected"
	Else
	selected=""
	End If
If TrueFalse = False Then
	PageOption=PageOption&"<option value="&PageAfterText&iiii&PageBeforeText&selected&">第"&iiii&"页</option>"
Else
	PageOption=PageOption&"<option value="&PageAfterText&iiii&PageBeforeText&selected&">No"&iiii&"Page</option>"
End If
	Next

	If PageNumber-1>0 Then
	PreviousPage=PageNumber-1
	Else
	PreviousPage=1
	End If
	
	If PageNumber+1>CountNumber Then
	NextPage=CountNumber
	Else
	NextPage=PageNumber+1
	End If
	If PageNumber1 = "1" Or PageNumber1 = "0" Then
	PageNumber1 = ""
	End If
	If PageNumber2 = "1" Or PageNumber2 = "0" Then
	PageNumber2 = ""
	End If
	NumberPage=PageNumber1&" <span style='color:#FF0000;'>"&PageNumber&"</span> "&PageNumber2
	PageNumber1=""
	PageNumber2=""
If TrueFalse = False Then
	NumberMinutePage = "<table border=0 width=100% cellspacing=0 cellpadding=0><tr><td align=right>"&PageNumber&"/"&CountNumber&"页&nbsp;"&PageSizes&"/"&RecordCounts&"篇&nbsp;<a href="&PageAfterText&"1"&PageBeforeText&">首页</a> <a href="&PageAfterText&PreviousPage&PageBeforeText&">上一页</a>  "&NumberPage&" <a href="&PageAfterText&NextPage&PageBeforeText&">下一页</a> <a href="&PageAfterText&CountNumber&PageBeforeText&">尾页</a><select class=PageInput onChange=javascript:window.location=this.options[this.selectedIndex].value; name=page>"&PageOption&"</select></td></tr><tr><td height=3></td></tr></table>"
Else	
	NumberMinutePage = "<table border=0 width=100% cellspacing=0 cellpadding=0><tr><td align=right>"&PageNumber&"/"&CountNumber&"Page&nbsp;"&PageSizes&"/"&RecordCounts&"Articles&nbsp;<a href="&PageAfterText&"1"&PageBeforeText&">HomePage</a> <a href="&PageAfterText&PreviousPage&PageBeforeText&">PreviousPage</a>  "&NumberPage&" <a href="&PageAfterText&NextPage&PageBeforeText&">NextPage</a> <a href="&PageAfterText&CountNumber&PageBeforeText&">MeiPage</a><select class=PageInput onChange=javascript:window.location=this.options[this.selectedIndex].value; name=page>"&PageOption&"</select></td></tr><tr><td height=3></td></tr></table>"
End If	
End FunCtion

%>