<!--#include file="ClassConn.asp"-->
<!--#include file="Inc/page.asp"-->
<%
Sub ShowPort()
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql1="Select * from Port"
rs.open Sql1,conn,1,1
If rs.eof then
Response.Write "<font color='red'>暂时没有任何成员</font>"
Else
url="ClassPort.asp?Action="&Action&""
rs.pagesize=20
PageNo=Cint(request.QueryString("PageNo"))
if PageNo="" or PageNo=0 then PageNo=1
rs.AbsolutePage=PageNo
TSum=rs.pagecount
maxperpage=rs.pagesize
'PageNo=PageNo+1
'PageNo=PageNo-1
if CINT(pageno)>1 then
if CINT(pageno)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
%>
<table width="560" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
<tr>
<td height="25" colspan="3" align="center" bgcolor="#9DCEFF"><strong>身份证列表</strong></td>
</tr>

<tr>
<td height="25" align="center" bgcolor="#9DCEFF" class="a2">姓名</td>
<td align="center" bgcolor="#9DCEFF" class="a2">身份证</td>
<%
IF Session("KEY")="super" THEN
%>
<td align="center" bgcolor="#9DCEFF" class="a2">删除</td>
<%End If%>
</tr>
<%
dim i
i=0
do while not rs.eof and i<rs.pagesize
%>
<tr>
<td height="31" align="center" bgcolor="#9DCEFF" class="a3"><%=rs("PortName")%></td>
<td align="left" bgcolor="#9DCEFF" class="a3"><%=rs("PortNum")%></td>
<%
IF Session("KEY")="super" THEN
%>
<td align="center" bgcolor="#9DCEFF" class="a3"><a href="ClassPort.asp?Action=DelPort&PortID=<%=rs("PortID")%>" onclick="return confirm('确认要删除吗?')">删除</a></td>
<%End If%>
</tr>

<%
i=i+1
rs.movenext
loop
End If
%>
<tr>
<td height="18" colspan="3" align="center" bgcolor="#9DCEFF">
<%
call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"位同学")
%>
</td>
</tr>
</table>
<%
End Sub
rs.close
Set rs=Nothing
%>
</body>
</html>
<%
Call CloseConn()
%>

加上红色部份就效果是：共 3 位同学 首页 上一页 [1] 下一页 尾页 页次：/1页 20位同学/页 转到：
不加上红色部份就效果是：共 3 位同学 首页 上一页 [1] 下一页 尾页 页次：1/1页 20位同学/页 转到：

不知道为什么会这样子！！~~

还是不行~！~

写成函数比较好管理~~

SUB可以不加吧

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

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

用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
这样就取不到..昏迷中~~

原来是这样~~谢谢！！