非常实用的ASP分页代码.docx

ASP编程：非常实用的ASP分页代码[原创]
【大中小】浏览：252添加日期：2010-6-1510:00:22

/*showpage样式部分*/
#showpage{clear:both;display:block;width:100%;text-align:right;margin-top:10px;height:20px;padding-right:20px;margin-bottom:10px;}
#showpagea{display:inline;background:none;text-decoration:underline;height:20px;font-size:12px;padding:4px4px0px4px;color:#f1efda;margin:0px2px0px2px;}
#showpageinput{width:20px;}
#showpagea:hover,#showpagea.pan{display:inline;background:none;text-decoration:none;height:20px;background-color:#f1efda;color:#66653d;padding:4px4px0px4px;margin:0px2px0px2px;}

/*Showpage封装页面函数*/
"***********************************************
"函数名：PasteURL
"作用：向地址中加入?或&
"参数：strUrl----网址
"返回值：加了?或&的网址
"***********************************************
functionPasteURL(strUrl)
ifstrUrl=""then
PasteURL=""
exitfunction
endif
"如果传入的URL末尾不是"?"，有两种情况：
"1.无“？”，此时需加入一个“？”
"2.有“？”再判断有无“&”
ifInStr(strUrl,"?")ifInStr(strUrl,"?")>1then
ifInStr(strUrl,"&")PasteURL=strUrl&"&"
else
PasteURL=strUrl
endif
else
PasteURL=strUrl&"?"
endif
else
PasteURL=strUrl
endif
endfunction

"***********************************************
"过程名：ShowPage
"作用：显示“上一页下一页”等信息
"参数：sDesURL----链接地址，可以是一个文件名，也可以是一个有一些参数所URL
"nTotalNumber----总数量
"nMaxPerPage----每页数量
"nCurrentPage----当前页
"bShowTotal----是否显示总数量
"bShowCombo---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
"sUnit----计数刻度（如每頁數條或每頁多少個）
"***********************************************
subShowPage(sDesURL,nTotalNumber,nMaxPerPage,nMaxPerLink,nCurrentPage,bShowTotal,bShowCombo,sUnit)
dimn,i,strTemp,strUrl
"计算页数
ifnTotalNumbermodnMaxPerPage=0then
n=nTotalNumber\nMaxPerPage
else
n=nTotalNumber\nMaxPerPage+1
endif
"判断nCurrentPage
ifnCurrentPage<1then
nCurrentPage=1
elseifnCurrentPage>nthen
nCurrentPage=n
endif
response.Write("")
Response.Write""
ifbShowTotal=truethen
Response.Write""&nTotalNumber&"&nbsp;&nbsp;"
endif
"根据输入的sDesURL向它加入?或&
strUrl=PasteURL(sDesURL)
ifnCurrentPage<2then
ifnCurrentPage=1then
Response.Write"首頁"
else
Response.Write"1.."
endif
else
ifnCurrentPage=1then
Resp