changepage.asp

来自「本程序是一款比较完善的图书租赁系统」· ASP 代码 · 共 43 行

<%
Sub ChangePage(url)
	Response.Write "<script language=javascript src=JS\inc.js></script>"
	If Request("CurrentPage")="" Or IsNumeric(Request("CurrentPage"))=False Then
		objRS.AbsolutePage=1
	Else
		objRS.AbsolutePage=CLng(Request("CurrentPage"))
	End If

	Response.Write "<form method=Get name=MyForm>"
	If objRS.PageCount=1 then
		Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
	Else
		If objRS.AbsolutePage=1 then
			Response.Write("[第一页] [上一页] ")
			Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") 
			Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") 
		Else 
			If objRS.AbsolutePage=objRS.PageCount then
				Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") 
				Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") 
				Response.Write("[下一页] [最后一页] ")
			Else
				Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") 
				Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") 
				Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") 
				Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") 
			End If
		End If
	End If

	'创建下拉列表框，用于选择浏览页码
	Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent('"&url&"')>")    
	For i=1 to objRS.PageCount 
		If objRS.AbsolutePage=i then
			Response.Write("<option selected>"&i&"</option>")  '当前页码
		Else
			Response.Write("<option>"&i&"</option>")
		End If  
	Next 
	Response.Write("</select>页&nbsp;") 
End Sub
%>