<%
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=adUseClient
rs.PageSize=10
sql="select * from member"
rs.open sql,conn,1,1
%>







<%
sub pageno()
''指定当前页码
If Request("CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
End If

''创建表单MyForm,方法为Get
'Response.Write("")
'Response.Write("

")
''设置翻页超链接
if rs.PageCount=1 then
Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一页] [上一页] ")
Response.Write("[下一页] ")
Response.Write("[最后一页] ")
else
if rs.AbsolutePage=rs.PageCount then
Response.Write("[第一页] ")
Response.Write("[上一页] ")
Response.Write("[下一页] [最后一页] ")
else
Response.Write("[第一页] ")
Response.Write("[上一页] ")
Response.Write("[下一页] ")
Response.Write("[最后一页] ")
end if
end if
end if
''创建下拉列表框，用于选择浏览页码
Response.Write("第")
For i=1 to rs.PageCount
if rs.AbsolutePage=i then
Response.Write(""&i&"") ''当前页码
else
Response.Write(""&i&"")
end if
Next
Response.Write("页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录

")
'Response.Write("")
end sub
%>

    
    
        

返 回   　用户管理 //（1）<%call pageno()%> ‘------>而把它放到这，不放到下边去，就一切正常！ <%For i=1 to rs.PageSize%> <% response.Write i rs.movenext if rs.EOF then exit for Next %>                         　用户列表 用户名 注册时间 用户信息 >  <%=rs("idname")%> <%=rs("usertime")%> &ad=2">编辑   //（2）<%call pageno()%> ‘------>问提在这，吧这句话放在这，分页就不好用 ‘------>主要是页面没有变化，不翻！但页号是动的 '------>可是就需要在这里放啊？怎么半？

我把整个网页的代码都发上来了，主要是分页显示的问题，在（1）与（2）两个地方呢。需要在（2）处放置“<%call pageno()%>“这句话，但不好用，只能放在（1）处或（1）以上的位置才好用，但这样一来页面就有变化了，所以只能在（2）处放置，大家帮我看看，应该怎么改才可以？
Text :mad:

恩？谁可以帮帮忙吗？

ok~!
谢谢了！