一个老问题 asp 查询结果分页显示所有数据

大家好，新学ASP。因为以前学C的，ASP的书一点也没看就开始写代码了，所以基础很不扎实。还请不吝赐教。
现在这个网页主要实现这么个功能，根据人名、部门、时间起、时间止这四个条件来进行查询，其中“人名”和“部门”占用的是同一个关键字。我的查询，分页这两个功能都实现了，但是结合起来的“查询之后分页”就出错了，第一页能正常显示查询结果，第二页就是所有数据的页面了。我知道是关键字没有保存的原因，还请大家叫我一下我这个程序的关键字怎么保存。谢谢

----------------------分割线-----------------------------

<!--#include file="../conn.asp"-->


<%

dim key,cwcrq_q,cwcrq_z
key=request("key")          ‘这里我不知道request，request.form，request.querystring的区别，但是网上有人特意说用request
cwcrq_q=request("cwcrq_q")
cwcrq_z=request("cwcrq_z")

%>


 <%
                                                                                          
dim conn
morefilename="wcdj_list.asp"

       -----------根据输入条件的不同设置了相应的sql--------------
sql="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ  order by WCRQ_Q desc"
sql1="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where YHM like '%"&key&"%' or DW_MC like '%"&key&"%' order by WCRQ_Q desc" 
sql2="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where CONVERT(VARCHAR(10),WCRQ_Q,120)>='"&cwcrq_q&"' order by WCRQ_Q desc"
sql3="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where CONVERT(VARCHAR(10),WCRQ_Z,120)<='"&cwcrq_z&"' order by WCRQ_Q desc"
sql4="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where (YHM like '%"&key&"%' or DW_MC like '%"&key&"%') and CONVERT(VARCHAR(10),WCRQ_Q,120)>='"&cwcrq_q&"' order by WCRQ_Q desc"
    sql5="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where (YHM like '%"&key&"%' or DW_MC like '%"&key&"%') and CONVERT(VARCHAR(10),WCRQ_Z,120)<='"&cwcrq_z&"' order by WCRQ_Q desc"
sql6="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where CONVERT(VARCHAR(10),WCRQ_Q,120)>='"&cwcrq_q&"' and CONVERT(VARCHAR(10),WCRQ_Z,120)<='"&cwcrq_z&"' order by WCRQ_Q desc"
sql7="SELECT   DW_MC, YHM, WCRQ_Q, WCRQ_Z, WCSY FROM  WCDJ where (YHM like '%"&key&"%' or DW_MC like '%"&key&"%') and CONVERT(VARCHAR(10),WCRQ_Q,120)>='"&cwcrq_q&"' and CONVERT(VARCHAR(10),WCRQ_Z,120)<='"&cwcrq_z&"' order by WCRQ_Q desc" 

----------------条件的判断---------------------
   if key="" then
  if cwcrq_q="" then
    if cwcrq_z="" then
    sql=sql
    else  sql=sql3
end if
  else 'if cwcrq_q<>"" then
    if cwcrq_z="" then
sql=sql2
else sql=sql6
end if
  end if

else 'if key<>"" then
   if cwcrq_q="" then
     if cwcrq_z="" then
   sql=sql1
   else sql=sql5
   end if
   else 'if cwcrq_q<>"" then
 if cwcrq_z="" then
 sql=sql4
 else sql=sql7
 end if
end if
end if     
                         
rs.open sql,conn,1,3
                                                                                                                          
                                                                                                     
'start
    if rs.eof then
response.Write "没有查找到相关信息。</td></table>"
else  

    dim totalPut   '获取记录总数目
    dim currentPage   '当前页面
    dim totalPages   '获取分页数目
dim i                      

i=0 
rs.pagesize=5
totalPut=rs.recordcount
totalPages=rs.pagecount
rs.movefirst
currentpage=request("page")  '用request获取当前页数

if currentpage&"x"="x" then   '处理页码为空时的情况 
          currentpage=1
  else                    
      currentpage=cint(currentpage)
end if

if currentpage<1 then 
      currentpage=1                     
    end if 

if currentpage>totalpages then                      
          currentpage=totalpages                      
    end if
rs.absolutepage=currentpage

   response.write "<p align='center'>&nbsp;"           
  filenameB=morefilename                            
  response.write "<font color='#000080'><a href="&filenameB&">全部信息</a>&nbsp;"       
  if CurrentPage<2 then                            
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;"                            
  else                            
    filenameB=morefilename & "?page=1"  & "&YHM=" & request("key") & " or DW_MC="& request("key") & "&WCRQ_Q=" & request("cwcrq_q") & "&WCRQ_Z=" & request("cwcrq_z")     ’这里应该是关键了，我不知道怎么在这里保存关键字                         
    response.write "<a href="&filenameB&">首页</a>&nbsp;"                            
    filenameB=morefilename  & "?page=" & CurrentPage-1 & "&YHM=" & request("key") & " or DW_MC="& request("key") & "&WCRQ_Q=" & request("cwcrq_q") & "&WCRQ_Z=" & request("cwcrq_z")  
    response.write "<a href="&filenameB&">上一页</a>&nbsp;"                            
  end if                            
  if totalPages-currentpage<1 then                            
    response.write "<font color='#000080'>下一页 尾页</font>"                            
  else   
filenameB=morefilename   & "?page=" & CurrentPage+1 & "&YHM=" & request("key") & " or DW_MC="& request("key") & "&WCRQ_Q=" & request("cwcrq_q") & "&WCRQ_Z=" & request("cwcrq_z")   
    response.write "<a href="&filenameB&">下一页</a>&nbsp;"                            
    filenameB=morefilename & "?page=" & totalPages & "&YHM=" & request("key") & " or DW_MC="& request("key") & "&WCRQ_Q=" & request("cwcrq_q") & "&WCRQ_Z=" & request("cwcrq_z")                          
    response.write "<a href="&filenameB&">尾页</a>"                            
  end if                            
   response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&totalpages&"</strong>页</font> "                            
   response.write "<font color='#000080'>&nbsp;共<b>"&totalput&"</b>个信息 <b>"&rs.pagesize&"</b>个信息/页</font> "                            
                                   
  end if
  
 %>