📄 e_cxjhqktj1.asp
字号:
<% for i=1 to 31
if i<=9 then
i="0"&i
end if%>
<option value=<% =i %>> <% =i%> </option>
<%next%>
</select>日</p>
</td>
<td width="100" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="50">
<p align="center">
<input type="submit" name=cxbtn value="查询" style="background-color: #D1D1D1; text-align: -5; border-style: solid; border-width: 1" class="hand">
</p>
</td>
</tr>
</table>
<br>
<input type=hidden name=bz value="1">
<% set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic %>
<%if bz="1" then
'查询
%>
<%
qsql="select id,BillID,ClientName,AskTime,PlanTime,givetime from ES_server_build where departid like '"&departid&"%'"
if ddbh<>"" then
qsql=qsql&"and billid like '"&ddbh&"%'"
end if
if khmc<>"" then
qsql=qsql&"and clientname like '"&khmc&"%'"
end if
if jhqk<>"" then
if jhqk="提前" then
qsql=qsql&"and not givetime is null and givetime<askTime "
elseif jhqk="按时" then
qsql=qsql&"and givetime=askTime and not givetime is null "
elseif jhqk="延期" then
qsql=qsql&"and givetime>askTime and not givetime is null"
elseif jhqk="未交" then
qsql=qsql&" and givetime is null "
end if
end if
if ddate<>"" and edate<>"" then
qsql=qsql&" and PlanTime>='"&ddate&"' and PlanTime<='"&edate&"'"
end if
%>
<%else
'初始
%>
最近三天单据情况如下:
<% qsql="select id,BillID,ClientName,AskTime,PlanTime,givetime from ES_server_build where departid like '"&departid&"%' and cdate(plantime)>=(date()-3) and cdate(plantime)<=date()"
%>
<%end if
'response.write qsql
'response.end
rs.open qsql,pubconn,1,3
if rs.recordcount>=1 then
rs.pagesize=10
if currentpage>=rs.pagecount then
currentpage=rs.pagecount
else
if currentpage<1 then
currentpage=1
end if
end if
rs.absolutepage=currentpage
pagenum=rs.pagecount
if pagenum<1 then
pagenum=1
end if
%>
<table border="1" cellspacing="0" width="100%" height="38">
<tr>
<td width="4%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">单据编号</font></td>
<td width="10%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">客户名称</font></td>
<td width="5%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">要求服务时间</font></td>
<td width="3%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">计划服务时间</font></td>
<td width="4%" height="1" align="center" bgcolor="#DDD2C4"><font size="2">实际服务时间</font></td>
<td width="4%" align="center" bgcolor="#DDD2C4"><font size="2">交货情况</font></td>
</tr>
<%for i=1 to rs.pagesize
' sql="select * from f_tblorder where ordernum='"&rs("ordernum")&"'"
' set rs1=pubconn.execute(sql)
%>
<%
if i mod 2=1 then%>
<tr bgcolor="#f7f7f7" >
<%else%>
<tr bgcolor="#EDEBEC" >
<%end if%>
<td width="4%" height="1" align="center" >
<a href="e_serverSubFrm.asp?ID=<%=rs("id")%>&Mode=OnlyScanMode&ParentPage=<%=currentpage%>&bz=<%=bz%>&ddbh=<%=ddbh%>&khmc=<%=khmc%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&jhqk=<%=jhqk%>"> <%=rs("billid")%> </a></td>
<td width="10%" height="1" align="center" ><%=rs("clientname")%> </td>
<%strAskTime=rs("asktime")%>
<td width="4%" height="1" align="center"><%= strAskTime %> </td>
<td width="5%" height="1" align="center" ><%=rs("plantime")%> </td>
<%strGiveTime=rs("givetime")%>
<td width="5%" height="1" align="center" ><%= strGiveTime %> </td>
<%
'根据要求时间和交货时间得到交货情况
if strGiveTime<>"" then
if strGiveTime=strAskTime then
strProvidestatus="按时"
elseif strGiveTime<strAskTime then
strProvidestatus="提前"
elseif strGiveTime>strAskTime then
strProvidestatus="延期"
end if
else
strProvidestatus ="未交"
end if
%>
<td width="4%" align="center"><%= strProvidestatus %>
</td>
</tr>
<%
rs.MoveNext
if rs.eof then exit for
next %>
</table>
<br>
<font size="2">
共<%=rs.pagecount%>页
<a href="e_cxjhqktj1.asp?currentPage=1&bz=<%=bz%>&ddbh=<%=ddbh%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&khmc=<%=khmc%>&jhqk=<%=jhqk%>">首 页</a>
<%if pagenum<>0 then
if currentPage<pagenum then%> <a href="e_cxjhqktj1.asp?currentPage=<%=currentpage+1%>&bz=<%=bz%>&ddbh=<%=ddbh%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>;&khmc=<%=khmc%>&jhqk=<%=jhqk%>">下一页</a>
<% else%>
下一页 <%
end if
if currentPage>1 then
%> <a href="e_cxjhqktj1.asp?currentPage=<%=currentpage-1%>&bz=<%=bz%>&ddbh=<%=ddbh%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&khmc=<%=khmc%>&jhqk=<%=jhqk%>">上一页</a>
<% else%>
上一页 <%
end if
end if %>
<a href="e_cxjhqktj1.asp?currentPage=<%=rs.pagecount%>&bz=<%=bz%>&ddbh=<%=ddbh%>&dyear=<%=dyear%>&dmonth=<%=dmonth%>&dday=<%=dday%>&eyear=<%=eyear%>&emonth=<%=emonth%>&eday=<%=eday%>&khmc=<%=khmc%>&jhqk=<%=jhqk%>">尾 页</a>
<select name="page1" >
<%
for j=1 to rs.pagecount%>
<option value=<%=j%>><%=j%>
<%next%>
</select>
<%if bz="" then%>
<input type="button" value="Go" name="page" onclick="win1()" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%else%>
<input type="button" value="Go" name="page" onclick="win()" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
<%else%></font>
<p align="center">
<font size="2">经查询，没有记录!<br>
<%end if%></font><br> <br>
</form>
<a href="e_cxMain.asp">返回</a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -