📄 e_cxjhqktj.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%username=getuser()
userclass=tablevisitor("f_tblorder",username)
departid=session("departid")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>交货情况统计分析</title><link href="../cread.css" rel="stylesheet" type="text/css">
<Script Language="VBScript" runat="server">
</Script>
<%
bz=request("bz")
dyear=request("dyear")
dmonth=request("dmonth")
dday=request("dday")
eyear=request("eyear")
emonth=request("emonth")
eday=request("eday")
if dyear<>"" then
ddate=dyear&"-"&dmonth&"-"&dday
edate=eyear&"-"&emonth&"-"&eday
else
ddate=""
edate=""
end if
if request("currentpage")<>"" then
currentpage=cint(request.querystring("currentpage"))
else
currentpage=1
end if
%>
</head>
<script language="vbscript">
sub win()
dyear=document.myform.dyear.value
dmonth=document.myform.dmonth.value
dday=document.myform.dday.value
ddate=dyear+"-"+dmonth+"-"+dday
eyear=document.myform.eyear.value
emonth=document.myform.emonth.value
eday=document.myform.eday.value
edate=eyear+"-"+emonth+"-"+eday
window.location="e_cxjhqktj.asp?currentpage="+document.myform.page1.value+"&dyear="+dyear+"&dmonth="+dmonth+"&dday="+dday+"&eyear="+eyear+"&emonth="+emonth+"&eday="+eday+"&bz="+document.myform.bz.value
end sub
sub win1()
dyear=document.myform.dyear.value
dmonth=document.myform.dmonth.value
dday=document.myform.dday.value
eyear=document.myform.eyear.value
emonth=document.myform.emonth.value
eday=document.myform.eday.value
window.location="e_cxjhqktj.asp?currentpage="+document.myform.page1.value+"&dyear="+dyear+"&dmonth="+dmonth+"&dday="+dday+"&eyear="+eyear+"&emonth="+emonth+"&eday="+eday
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">交货情况统计分析</font></b><hr width="70%" size="1" align="left">
</td>
</tr>
</table>
<br>
<form method="post" action="e_cxjhqktj.asp" name=myform>
<table border="1" cellspacing="0" width="659" height="25">
<tr>
<td width="94" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="25">
<p align="center">
<font size="2">计划服务时间</font>
</td>
<td width="410" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" colspan="4" height="25">
<p align="left">
<%if dyear<>"" then%>
<input type=text name=dyear value=<%=dyear%> class="botton" size="4"><%else%>
<input type=text name=dyear value=<%=year(date())%> class="botton" size="4"><%end if%>年<select name=dmonth >
<%if dmonth<>"" then %>
<option value=<% =dmonth%> selected> <% =dmonth %> </option>
<%end if %>
<% for i=1 to 12
if i<=9 then
i="0"&i
end if%>
<option value=<% =i%>> <% =i %> </option>
<%next%>
</select>月<select name=dday >
<%if dday<>"" then %>
<option value=<% =dday%> selected> <% =dday %> </option>
<%end if%>
<% for i=1 to 31
if i<=9 then
i="0"&i
end if%>
<option value=<% =i %>> <% =i%> </option>
<%next%>
</select>日 至 <%if eyear<>"" then %><input type=text name=eyear value=<%=eyear%> class="botton" size="4"><%else%><input type=text name=eyear value=<%=year(date())%> class="botton" size="4"><%end if%>年
<select name=emonth ><%if emonth<>"" then
emonth=emonth
else
emonth=month(date())
if len(emonth)=1 then
emonth="0"&emonth
end if
end if%>
<option value=<% =emonth%> selected> <% =emonth %> </option>
<% for i=1 to 12
if i<=9 then
i="0"&i
end if%>
<option value=<% =i%>> <% =i %> </option>
<%next%>
</select>月<select name=eday >
<%if eday<>"" then
eday=eday
else
eday=day(date())
if len(eday)=1 then
eday="0"&eday
end if
end if%>
<option value=<% =eday%> selected> <% =eday %> </option>
<% 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="127" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" height="25">
<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>
<input type=hidden name=bz value="1">
<br>
<% set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic %>
<%if bz="1" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -