<%
   '*************************************************
   '函数名：ShowPage
   '作用：显示“上一页 下一页”等信息
   '参数：LinkURL  ----链接地址
   '      RecordTotal ----查询的数据总数量
   '	  MaxPerPage -----每页显示的数据数量
   '      ShowTotal  -----是否显示总数量
   '      ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
   '      strUnit     ----计数单位   '
   '返回值：“上一页 下一页”等信息的HTML代码
   '编辑时间:由Mr.Yang编辑与2008年1月10号09点
   '*************************************************
   
   Function ShowPages(LinkURL,RecordTotal,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
   		
		dim pagetotal   '定义显示的总页数
   		dim strtemp     '定义存储输出变量
   		dim strurl      '定义下一页链接到的地址
   		dim i           '定义下拉列表转向页变量
		
		if RecordTotal mod MaxPerPage=0 then   '判断数据的总页数
			pagetotal=RecordTotal \ MaxPerPage
		else
			pagetotal=RecordTotal \ MaxPerPage+1
		end if
		
		if pageshow>pagetotal then   '当前显示的页数
			pageshow=pagetotal
		end if
		
			if ShowTotal=true then
				strtemp=strtemp & "共<b>" & RecordTotal & "</b>" & strUnit & "&nbsp;&nbsp;"
			end if	
		strurl=JoinChar(linkURL)	'向地址中加如 '&' 或 '?' 
		
			if pageshow<2 then
				strtemp=strtemp & "首页 上一页&nbsp;"
			else
				strtemp=strtemp & "<a href='" & strurl & "pageshow=1'>首页</a>&nbsp;"
				strtemp=strtemp & "<a href='" & strurl & "pageshow=" & (pageshow-1) &"'>上一页</a>&nbsp;"								
			end if
			
			if pageshow>=pagetotal then
				strtemp=strtemp & "下一页 尾页"
			else
				strtemp=strtemp & "<a href='" & strurl & "pageshow=" & (pageshow+1) &"'>下一页</a>&nbsp;"
				strtemp=strtemp & "<a href='" & strurl & "pageshow=" & pagetotal &"'>尾页</a>"
			end if
			
		strtemp=strtemp & "&nbsp;页次：<strong><font color=red>" & pageshow & "</font>/" & pagetotal & "</strong>页"
		strtemp=strtemp & "&nbsp;<b>" & MaxPerPage & "</b>" & strUnit & "/页"
		
			if ShowAllPages=True then  '判断是否使用直接输入数字转向需要的页
				strtemp=strtemp & "&nbsp;&nbsp;转到第<input type='text' name='pageshow' size='2' maxlength='5' value='" & pageshow & "' onKeyPress=""if(event.keyCode==13) window.location='"&strurl&"pageshow="&"'+this.value;"" onBlur=""window.location='"&strurl&"pageshow="&"'+this.value;"">页 <input name="""" type=""button"" value=""go"" class=""inputs"" />"
			end if
			
			'下拉列表转向第n页	
'			if ShowAllPages=True then
'					strtemp=strtemp & "&nbsp;转到第：<select name=""pageshow"" size=""1"" onchange=""javascript:window.location='" & strurl & "pageshow=" & "'+this.options[this.selectedIndex].value;"">"& vbCrLf
'					for i = 1 to pagetotal   
'						strtemp=strtemp & "<option value=""" & i & """"
'						if cint(pageshow)=cint(i) then strtemp=strtemp & " selected "
'						strtemp=strtemp & ">" & i & "</option>"   
'					next
'					strtemp=strtemp & "</select>页"& vbCrLf
'			end if
		response.write strTemp 
   End Function     

	'**************************************************
	'函数名:JoinChar
	'作用：向地址中加入 ? 或 &
	'参数：strurl --网址
	'返回值： 加了 ? 或 & 的网址
	'**************************************************
	
	Function JoinChar(strurl)
		if strurl="" then
			JoinChar=""
			exit Function
		end if
		if InStr(strurl,"?")<len(strurl) then
			if InStr(strurl,"?")>1 then
				if InStr(strurl,"&")<len(strurl) then
					JoinChar=strurl & "&"
				else
					JoinChar=strurl
				end if
			else
				JoinChar=strurl & "?"
			end if
		else
			JoinChar=strurl
		end if
	End Function
%>