一段通用的分页函数

'从动力3.51分离出来的，可以通用的哦，研究一下。。。 
'**************************************************
'函数名：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

'**************************************************
'过程名：showpage
'作   用：显示“上一页 下一页”等信息
'参   数：sfilename   ----链接地址
'       totalnumber ----总数量
'       records   ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
'       strUnit     ----计数单位
'**************************************************
sub showpage(sfilename,totalnumber,records,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod records=0 then
     n= totalnumber  records
   else
     n= totalnumber  records+1
   end if
   strTemp= "<table align='center'><tr><td>"
if ShowTotal=true then 
   strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
end if
strUrl=JoinChar(sfilename)
   if CurrentPage<2 then
       strTemp=strTemp & "首页 上一页&nbsp;"
   else
       strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a>&nbsp;"
       strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
   end if

   if n-currentpage<1 then
       strTemp=strTemp & "下一页 尾页"
   else
       strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
       strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
   end if
     strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
     strTemp=strTemp & "&nbsp;<b>" & records & "</b>" & strUnit & "/页"
if ShowAllPages=True then
   strTemp=strTemp & "&nbsp;转到：<select name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"   
     for i = 1 to n   
       strTemp=strTemp & "<option value='" & i & "'"
   if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
   strTemp=strTemp & ">第" & i & "页</option>"   
     next
   strTemp=strTemp & "</select>"
end if
strTemp=strTemp & "</td></tr></table>"
response.write strTemp
end sub