新手,求各位高手帮忙!想增加两个时间段之间查询的功能
以下代码,可以实现查询某一天单位的统计情况(比如: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编辑过]