新手，求各位高手帮忙！想增加两个时间段之间查询的功能

以下代码，可以实现查询某一天单位的统计情况（比如：2017-06－01），现在想增加一个功能：查询两个时间段之间单位的所有统计情况(比如：2017-06-01至2017-06-08之间的统计数据)。
cwtj 数据库名  wbmc 时间字段  tel 单位名称字段

现在的：统计日期<input type="text" name="searchkeys" onFocus="CalendarWebControl.show(this,false,this.value);" size="12" /> 单位名称<input name="searchkeya" type="text" id="tel" size="15" /><input type="submit" name="Submit" value="查询" /></form>

想增加这个功能：开始统计日期<input type="text" name="searchkeys" onFocus="CalendarWebControl.show(this,false,this.value);" size="12" />至截至统计日期<input type="text" name="searchkeys" onFocus="CalendarWebControl.show(this,false,this.value);" size="12" /> 单位名称<input name="searchkeya" type="text" id="tel" size="15" /><input type="submit" name="Submit" value="查询" /></form>
怎么修改，才能达到这个要求........

<!--#include file="conn.asp"-->
<!--#include file="Select_date.asp"-->
<form id="form1" name="form1" method="post" action="search.asp">
  统计日期<input type="text" name="searchkeys" onFocus="CalendarWebControl.show(this,false,this.value);" size="12" />
  单位名称<input name="searchkeya" type="text" id="tel" size="15" />
  <input type="submit" name="Submit" value="查询" /></form>
<table width="850" border="1" cellpadding="0" cellspacing="0" align="center">
  <tr align="center">
      <td><b>序号</b></td>
      <td><b>统计日期</b></td>
      <td><b>单位名称</b></td>
      <td><b>错误次数</b></td>
      <td><b>签到学习情况</b></td>
      <td><b>统计情况</b></td>
  </tr>

  <%
    searchkeys=request("searchkeys")
    searchkeya=request("searchkeya")
    if searchkeys<>"" then
    sql="select * from [cwtj] where wbmc like  '%" & searchkeys & "%'and tel like  '%" & searchkeya & "%' order by id desc"
    else
    sql="select * from [cwtj]  where tel order by id desc"
    end if
    Set rs=Server.CreateObject("ADODB.RecordSet")
    rs.Open sql,conn,1,1
    if rs.eof and rs.bof then
      response.Write("<tr><td colspan='6'><div align='center'>没有记录</div> </td></tr>")'记录为空提示
    else
    rs.PageSize=10'每页记录数
    iPageSize=rs.PageSize
    maxpage=rs.PageCount
    page=request("page")
    If Not IsNumeric(page) or page="" then
    page=1
    Else
    page=cint(page)
    End If
    If page<1 then
        page=1
        ElseIf  page>maxpage then
        page=maxpage
    End If
    rs.AbsolutePage=Page
    If page=maxpage then
        x=iCount-(maxpage-1)*iPageSize
    Else
        x=iPageSize
    End If
   
    i=1
    for j=1 to rs.pagesize
    %>

[此贴子已经被作者于2017-6-10 10:13编辑过]