很简单的问题，希望大家能帮我~

cbxmir 2003-09-15 11:56:46

这是个查询的页面。当翻页到第2页的时候数据就是空的了。
怎样把上一页提交的USERID在翻页的时候也把他传递过去呢？

<%'开始分页
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs1=server.CreateObject("adodb.recordset")
conn.ConnectionString = "driver={SQL Server};server=KUITUN;database=vstardb;UID=BX;pwd=123"
conn.Open
UserID=trim(request("userid"))
rs1.Open "Select * from gamer_records where callerid='"&userid&"'",Conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if
if rs1.eof And rs1.bof then
Response.Write "<p align='center'>对不起，目前没有记录！</p>"
else
totalPut=rs1.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"caller.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs1.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs1.bookmark
showContent
showpage totalput,MaxPerPage,"caller.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"caller.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>

===============================================================================
<%i=i+1
if i>=MaxPerPage then Exit Do
rs1.movenext
loop
rs1.close
set rs=nothing%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center' class='mnu'> "
If CurrentPage<2 Then
Response.Write "<font class='mnu'>首页上一页</font> "
Else
Response.Write "<a href="&filename&"?page=1 class='mnu'>首页</a> "
Response.Write "<a href="&filename&"?page="¤tPage-1&" class='mnu'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='mnu'>下一页尾页</font>"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&" class='mnu'>"
Response.Write "下一页</a> <a href="&filename&"?page="&n&" class='mnu'>尾页</a>"
End If
Response.Write "<font class='mnu'> 页次：</font><font

class='contents'>"¤tPage&"</font><font class='mnu'>/"&n&"页</font> "
Response.Write "<font class='mnu'> 共有"&totalnumber&"条记录 "&maxperpage&"条记录/页

</font> "
Response.Write "<font class='mnu'>转到：</font><input type='text' name='page' size=2

maxlength=10 class=fr2 value="¤tpage&">"
Response.Write " <input type='submit' class=fr2 value='GO' name='cndok'></form>"

End Function
%>

...全文