<!--#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位同学/页 转到：

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

还是不行~！~

写成函数比较好管理~~

应该是你在那个page.asp中定义了一个什么变量而写进函数就引用不了了，建议你检查一下，然后把变量定义成公共变量 public的看看行不行