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

	Response.Write "<form method=Get name=MyForm>"
	If rs_search.PageCount=1 then
		Response.Write("[第一頁]  &nbsp;  &nbsp;  &nbsp; [上一頁] &nbsp; &nbsp;   &nbsp;   [下一頁]  &nbsp;  &nbsp; &nbsp;   [最后一頁] ")
	Else
		If rs_search.AbsolutePage=1 then
			Response.Write("[第一頁] [上一頁] ")
			Response.Write("[<a href=javascript:PageNext()>下一頁</a>] ") 
			Response.Write("[<a href=javascript:PageLast()>最后一頁</a>] ") 
		Else 
			If rs_search.AbsolutePage=rs_search.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 rs_search.PageCount 
		If rs_search.AbsolutePage=i then
			Response.Write("<option selected>"&i&"</option>")  '當前頁碼
		Else
			Response.Write("<option>"&i&"</option>")
		End If  
	Next 
	Response.Write("</select>頁&nbsp;") 
End Sub
%>