我的分页是这样的,不知要加什么参数才可以实现时间范围查询的分页:
--------包含文件 showlist.asp-------
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_jumpMenuGo(selName,targ,restore){ //v3.0
var selObj = MM_findObj(selName); if (selObj) MM_jumpMenu(targ,selObj,restore);
}
//-->
</script>
<%
sub showlist(rs)
if not rs.eof then
page=clng(request.QueryString("page"))
rs.pagesize=15
if page=empty then page=1
pc=rs.pagecount
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=cint(page)
if Purl=empty then
Purl=request.ServerVariables("PATH_INFO")
end if
for i = 1 to rs.fields.count-14
if RS.fields(i).name="peoidname" then
view="姓名"
end if
if rs.fields(i).name="peono" then
view="编号"
end if
if rs.Fields(i).name="peosex" then
view="性别"
end if
if rs.fields(i).name="peoaddr" then
view="户籍所在地"
end if
if rs.fields(i).name="peoidno" then
view="身份证号码"
end if
if rs.fields(i).name="peounit" then
view="来访单位"
end if
if rs.fields(i).name="peoReason" then
view="访问原因"
end if
if rs.fields(i).name="intervieweeDept" then
view="访问部门"
end if
if rs.fields(i).name="Indate" then
view="进时间"
end if
response.Write("<td align=center>"&view&"</td>")
next
response.Write("</tr>")
For i =1 to rs.pagesize
ino=(page-1)*rs.pagesize+i+1
response.Write "<tr bgcolor=#0099cc>"
for j = 1 to rs.fields.count-14
if rs(j)="" then
response.Write "<td align=center> </td>"
else
response.Write "<td align=center>"&rs(j)&"</td>"
end if
next
response.Write("</tr>")
rs.movenext
if rs.eof then exit For
Next
response.Write("</table>")
%>
<form name=showlist id=showlist method=get>
<center>
<%
session("ispage")=true
if page<>1 then
%>
<a href="<%=Purl%>?page=1">第一页</a>
<a href="<%=Purl%>?page=<%=page-1%>">上一页</a>
<%
else
%>
<a href="#">第一页</a>
<a href="#">上一页</a>
<%
end if
if page <>rs.pagecount then
%>
<a href="<%=Purl%>?page=<%=page+1%>">下一页</a>
<a href="<%=Purl%>?page=<%=rs.pagecount%>">最末页</a>
<%
else
%>
<a href="#">下一页</a>
<a href="#">最末页</a>
<%
end if
response.Write " <font style='font-size: 12px;' color=red>第"&page&"页/共"&rs.pagecount&"页 </font><font color=>共</font><font color=red >"&rs.recordcount&"</font><font color=>条记录</font></font>"
response.Write " <span class=style1>跳到</span>"
%>
<select name=page onChange="MM_jumpMenu('parent',this,1)">
<%
for i = 1 to rs.pagecount