asp 分页程序

'过程名：showpage
'作 用：显示“上一页 下一页”等信息
'参 数：sfilename ----链接地址
' totalnumber ----总数量
' maxperpage ----每页数量
' ShowTotal ----是否显示总数量
' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
' strUnit ----计数单位
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage+1
end if
strTemp= "

" if ShowTotal=true then strTemp=strTemp & "共 " & totalnumber & " " & strUnit & " " end if strUrl=JoinChar(sfilename) if CurrentPage strTemp=strTemp & "首页 上一页 " else strTemp=strTemp & " " strTemp=strTemp & " " end if if n-currentpage strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & " " strTemp=strTemp & "" end if strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 " strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & " 转到：" for i = 1 to n strTemp=strTemp & " if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected " strTemp=strTemp & ">第" & i & "页" next strTemp=strTemp & "" end if strTemp=strTemp & "

"
response.write strTemp
end sub