按时间段查询的问题！
（1）asp+access，一个按时间段查询的问题！（2）表名是lyb，其中有一个字段名是lysj，是时间日期格式，如2011-4-5.
（3）要求是在两个文本框里分别输入起止时间，然后输出在这两个时间段内的所有记录。
（4）两个文本框的id分别是data1和data2，
（5）代码是
<!--#include file="..\aspcon.asp"-->
<html>
<head>
<title>耗材领用情况</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000">
<center>
<h1>耗材领用情况汇总</h1>
<p><a href="fxcx.htm">(分项查询)</a><a href="sum.asp">(统计输出)</a><a href="time.asp">(分时段查询)</a></p>
<a href="..\dlcg.asp">返回前页</a>
</center>
<table border=1 cellspacing=0 cellpadding=0 bordercolor=#000000 align=center>
<tr>
<td><font size="+2">编号</font></td>
<td><font size="+2">材料名称</font></td>
<td><font size="+2">型号品牌</font></td>
<td><font size="+2">单位</font></td>
<td><font size="+2">数量</font></td>
<td><font size="+2">用途</font></td>
<td><font size="+2">领用人</font></td>
<td><font size="+2">保管人</font></td>
<td><font size="+2">领用时间</font></td>
<td><font size="+2">操作1</font></td>
<td><font size="+2">操作2</font></td>
</tr>
<%
data1=CDate(request.Form("data1"))
data=CDate(request.Form("data2"))
set rs=server.createobject("adodb.recordset")
sql="select * from lyb where lysj between #"&data1&"# and #"&data2&"#"
rs.open sql,conn,1,1
if rs.eof then
response.write "暂无记录！"
response.end
end if
%>
<%
page=1 ' 设置变量PAGE=1
rs.PageSize = 20 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("name")%></td>
<td><%=rs("xh")%></td>
<td><%=rs("dw")%></td>
<td><%=rs("sl")%></td>
<td><%=rs("yt")%></td>
<td><%=rs("lyr")%></td>
<td><%=rs("bgr")%></td>
<td><%=rs("lysj")%></td>
<td><a href="lyedit.asp?id=<%=rs("id")%>">修改</a></td>
<td><a href="javascript:if (confirm('确定要删除该记录?')) {location.href='lydelet.asp?id=<%=rs("id")%>'}">
删除</a></td>
</tr>
<%
rs.MoveNext
next
%>
</table>
<center>
<%if request("page")>1 then%>
<a Href="lingyonglist.asp?Page=<% = 1%>">首页</a>
<a Href="lingyonglist.asp?Page=<% =request("page") -1 %>">上一页</a>
<%end if %>
<%if request("page")<>rs.pagecount then %>
<a Href="lingyonglist.asp?Page=<% =request("page") + 1%>">下一页</a>
<a Href="lingyonglist.asp?Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
</center>
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
<p> </p>
</body>
</html>
（6）没有提示出错，但总是显示“暂无记录！”
按照论坛里相关的帖子提示做了尝试，但一直没成功，希望各位指教，谢谢！
[ 本帖最后由 wwm123456789 于 2011-5-8 12:54 编辑 ]
