分页显示函数(VBscript版本)

来自网站开发ASP|PHP|JSP群,群号码:17322384

Function pageCode(allpage,page,num)

	Dim max,min,i

	min=page-CInt(num/2)

	If min<1 Then min=1

	max=min+num-1

	If max>allpage Then max=allpage

	For i=min To max

		If i=page Then

		pageCode=pageCode&"["&i&"]"

		Else

		pageCode=pageCode&" "&i&" "

		End If

	Next

End Function



MsgBox(pageCode(20,15,5))

提示:若想看演示效果,将以上代码保存为后缀名为vbs的文件,双击即可运行.其它语言自己改就是了,方法就是这样的方法