pages.asp

程序功能: /// 多人即时聊天 新信息声音提示 用户自主选择表情和颜色 管理员删除信息/踢出用户 高强度管理密码

<%
'-------------------------------------------------------
'getpages() 简单分页函数
'allrecord 总记录数
'nowpage 当前页
'allpage 总页数
'url 页面地址(包含?)
'-------------------------------------------------------

function getpages(allrecord,nowpage,allpage,url)
dim tempStr:tempStr=""
tempStr="共有 "&allrecord&" 条记录,分 "&allpage&" 页,当前在第 "&nowpage&" 页 "
if nowpage=1 and allpage=1 then
  tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首页"">首页</a>] "
  tempStr=tempStr&"[上一页] "
  tempStr=tempStr&"[下一页] "
  tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾页"">尾页</a>]"
elseif nowpage=1 and allpage>1 then 
  tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首页"">首页</a>] "
  tempStr=tempStr&"[上一页] "
  tempStr=tempStr&"[<a href="""&url&"page="&nowpage+1&""" title=""下一页"">下一页</a>] "
  tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾页"">尾页</a>]"
elseif cint(nowpage) > 1 and cint(nowpage) < cint(allpage) then
  tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首页"">首页</a>] "
  tempStr=tempStr&"[<a href="""&url&"page="&nowpage-1&""" title=""上一页"">上一页</a>] "
  tempStr=tempStr&"[<a href="""&url&"page="&nowpage+1&""" title=""下一页"">下一页</a>] "
  tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾页"">尾页</a>]"
elseif cint(nowpage)=cint(allpage) then
  tempStr=tempStr&"[<a href="""&url&"page=1"" title=""首页"">首页</a>] "
  tempStr=tempStr&"[<a href="""&url&"page="&nowpage-1&""" title=""上一页"">上一页</a>] "
  tempStr=tempStr&"[下一页] "
  tempStr=tempStr&"[<a href="""&url&"page="&allpage&""" title=""尾页"">尾页</a>]"
end if
getpages=tempStr
end function
%>