驾驶证号
出车车辆牌号
出发日期
到达日期
出发时间
到达时间
出发地点
目的地地点
行程距离
消耗费用
备注
<%
Ifselect1="出发日期"orselect1="到达日期"Then
Setconn=Server.CreateObject("ADODB.Connection")
param="driver={MicrosoftAccessDriver(*.mdb)}"
conn.Openparam&";dbq="&Server.MapPath("database\data.mdb;")
Setrs=Server.CreateObject("ADODB.Recordset")
sqlstr="select*from派车单where"&select1&"like'%"&cdate(textfield1)&"%'"
rs.Opensqlstr,conn,3,2
n=rs.recordcount
%>
<%
c=0
dowhilenotrs.eof
%>
<%=rs("司机姓名")%>
<%=rs("驾驶证号")%>
<%=rs("出车车辆牌号")%>
<%=rs("出发日期")%>
<%=rs("到达日期")%>
<%=rs("出发时间")%>
<%=rs("到达日期")%>
<%=rs("出发地点")%>
<%=rs("目的地地点")%>
<%=rs("行程距离")%>
<%=rs("消耗费用")%>
<%=rs("备注")%>
<%
response.Write""
rs.movenext
c=c+1
loop
rs.close
conn.close
Endif
%>
一共<%=c%>记录