sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
if totalnumber>0 then
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp=strTemp & "共 <font color=blue><b>" & totalnumber & "</b></font> " & strUnit & "&nbsp;&nbsp;&nbsp;"
strUrl=JoinChar(sfilename)
if PageNo<2 then
strTemp=strTemp & "首页 上一页&nbsp;"
else
strTemp=strTemp & "<a href='" & strUrl & "PageNo=1'>首页</a>&nbsp;"
strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & (PageNo-1) & "'>上一页</a>&nbsp;"
end if

dim p,pp,pno
pp=PageNo-3
if pp<1 then
pp=1
end if
for pno=pp to n
p=p+1
if pno=PageNo then
strTemp=strTemp& "<b><font color=#FF0000>["&pno&"]</font></b>&nbsp;"
else
strTemp=strTemp& "<b><a href='" & strUrl & "PageNo="&pno&"'>["&pno&"]</a></b>&nbsp;"
end if
if p>=6 then exit for
next

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

if int(pno)=int(PageNo) then
strTemp=strTemp& "<b><font color=#FF0000>["&pno&"]</font></b>&nbsp;"
else
strTemp=strTemp& "<b><a href='" & strUrl & "PageNo="&pno&"'>["&pno&"]</a></b>&nbsp;"
end if

我也遇到过同样的问题，后来解决了，就是好像上面那样

试了，还是不行~~
如果不写成Sub就没问题~~

把pno和PageNo都输出，看看相等不？

call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"位同学")

这里错

sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
if totalnumber>0 then
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp=strTemp & "共 <font color=blue><b>" & totalnumber & "</b></font> " & strUnit & "&nbsp;&nbsp;&nbsp;"
strUrl=JoinChar(sfilename)
if PageNo<2 then

PageNo在哪赋值的？

用Sub
call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"名同学")取不到PageNo
End Sub

直接写可以取到PageNo
不知道什么原因

要通过参数传啊！

但是这样不传,能取得到啊:
PageNo=Cint(request("PageNo"))
call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"张照片")
这样在page.asp可以得到PageNo


Sub ShowPort()
PageNo=Cint(request("PageNo"))
call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"张照片")
End Sub
这样就取不到..昏迷中~~

因为在
PageNo=Cint(request("PageNo"))
call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"张照片")
这里，PageNo是全局的

在
Sub ShowPort()
PageNo=Cint(request("PageNo"))
call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"张照片")
End Sub
这里，PageNo只是属于Sub ShowPort的局部变量