ASP：maxperpage代码一页显示多少的代码，请进帮忙，谢谢

来源：百度知道编辑：UC知道时间：2024/06/06 13:55:20

以下为代码，现在的结果是显示20个资源，但是显示20太长，我想改成显示10个资源，不知应该改哪一个代码？谢谢！

'***********************************************
'过程名：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= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
if ShowTotal=true then
strTemp=str

sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)

这里参数 maxperpage 就是每页数目直接输入就好了
10的话可以这样
showpage(,,10,,,) 其他的变量按要求填

在RS.open之前定义RS.CacheSize=每页记录数，在RS.open之后，定义RS.AbsolutePage=你要显示的页码，然后循环输入记录即可。

sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)

这里参数 maxperpage 就是每页数目直接输入就好了
10的话可以这样
showpage(,,10,,,) 其他的变量按要求填
--------------------------------------------------
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) 这个maxperpage到底怎么改啊，我改成(,,10,,,)不行啊

ASP：maxperpage代码一页显示多少的代码，请进帮忙，谢谢 ASP错误代,请高手帮帮忙解决求助代做下载好的源码ASP留言本代？？？？我的IIS出问题了，代开。ASP文件都打不开，咋回事？有没有全面代替代IIS支持PHP,ASP,HTML的软件网页想做个后台,但ASP代吗不行啊,只能用静态的页,谁会用动态告诉一下好吗 asp!!!!!! ASP ASP ASP 代练??????