📄 order.asp
字号:
alert("请输入正确格式的日期!");
return false;
}
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="order.asp" onsubmit="return GetStrValue();">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%"> <select name="strfield" onchange="relativeinput_onchange();">
<option value=orderNum <%if request("strfield")="OrderNum" then Response.Write "selected"%>>合同号</option>
<option value=Account <%if request("strfield")="Account" then Response.Write "selected"%>>客户</option>
<option value=siccode <%if request("strfield")="siccode" then Response.Write "selected"%>>客户代码</option>
<option value=CustomerPO <%if request("strfield")="CustomerPO" then Response.Write "selected"%>>客户采购单号</option>
<option value=totalamount <%if request("strfield")="totalamount" then Response.Write "selected"%>>金额</option>
<option value=Status <%if request("strfield")="Status" then Response.Write "selected"%>>合同状态</option>
<option value=SignedDate <%if request("strfield")="SignedDate" then Response.Write "selected"%>>签订日期</option>
<option value=Owner <%if request("strfield")="Owner" then Response.Write "selected"%>>销售员</option>
<option value=apply <%if request("strfield")="apply" then Response.Write "selected"%>>可预定</option>
<option value=noapply <%if request("strfield")="noapply" then Response.Write "selected"%>>未预定</option>
<option value=applyed <%if request("strfield")="applyed" then Response.Write "selected"%>>已预定</option>
</select></td>
<td width="18%"> <div id=strvalue1 <%if request("strfield")<>"Status" and request("strfield")<>"Owner" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="Status" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择合同状态--</option>
<%getgrouptype selecttablename,"Status",request("strvalue2")%>
</select>
</div>
<div id=strvalue3 <%if request("strfield")="Owner" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue3" class="stedit">
<option value="">--请选择销售员--</option>
<%getgrouptype selecttablename,"Owner",request("strvalue3")%>
</select>
</div></td>
<td> <input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<select name="status">
<option value="nc">未完成</option>
<option value="all" <%if request("status")="all" then response.Write("selected")%>>所有</option>
</select>
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='order.asp?status="&request("status")&"&turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='order.asp?status="&request("status")&"&turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='order.asp?status="&request("status")&"&turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='order.asp?status="&request("status")&"&turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='order.asp?status="&request("status")&"&turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='order.asp?status="&request("status")&"&turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td>
<td width="120">
<div id=dateformat <%if request("strfield")="SignedDate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期格式：YYYY-MM-DD</div>
</td>
</tr>
<tr>
<td height="25" colspan="3"><strong><font class=title><b>合同列表</b></font></strong>
<a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','neworder.asp');"><img src="../images/button_new.gif" border=0></a>
<a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','relorderprint.asp?type=order');"><img src="../images/button_print.gif" border=0></a>
</td>
<td height="25" colspan="2" align="right" class="title"><a href="orderdetaillist.asp"><img src="../images/arrow_right.gif" border="0">合同明细</a></td>
</tr>
<tr >
<td height="16" colspan="5" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan=5></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="7%" align=center height="22">操作</td>
<td width="15%" align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ordernum&orderby=<%=session("orderby")%>">合同号</a></td>
<td align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
<td width="10%" align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=totalamount&orderby=<%=session("orderby")%>">金额</a></td>
<td width="8%" align=center>预定申请</td>
<td width="8%" align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=status&orderby=<%=session("orderby")%>">状态</a></td>
<td width="8%" align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=confirmed&orderby=<%=session("orderby")%>">审核</a></td>
<td width="8%" align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=signeddate&orderby=<%=session("orderby")%>">签订日期</a></td>
<td width="8%" align=center><a href="order.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=owner&orderby=<%=session("orderby")%>">销售员</a></td>
</tr>
<%
set orderid=rs("orderid")
set ordernum=rs("ordernum")
set account=rs("account")
set accountid=rs("accountid")
set totalamount=rs("totalamount")
set status=rs("status")
set signeddate=rs("signeddate")
set owner=rs("owner")
set totalpoqty=rs("totalpoqty")
set confirmed=rs("confirmed")
i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center height="22" nowrap>
<%
'//////////////// Add Menu List Start /////////////////////////
if status="初始" then
AddPopupMenu5 true,true,true,true,true,true,false,false,_
"neworder.asp?id=",_
"duplicate.asp?orderid=",_
"../delete.asp?orderid=",_
"newdelivery.asp?orderid=", _
"orderprint.asp?orderid=",_
"confirm.asp?orderid=",_
"confirm.asp?orderid=",_
"menuOrder"&orderid
elseif status="部分发货" or status="保留中" then
AddPopupMenu5 false,true,false,true,true,true,false,false,_
"neworder.asp?id=",_
"duplicate.asp?orderid=",_
"../delete.asp?orderid=",_
"newdelivery.asp?orderid=", _
"orderprint.asp?orderid=",_
"confirm.asp?orderid=",_
"confirm.asp?orderid=",_
"menuOrder"&orderid
elseif status="发货完成" then
AddPopupMenu5 false,true,false,false,true,false,false,false,_
"neworder.asp?id=",_
"duplicate.asp?orderid=",_
"../delete.asp?orderid=",_
"newdelivery.asp?orderid=", _
"orderprint.asp?orderid=",_
"",_
"",_
"menuOrder"&orderid
else
AddPopupMenu5 false,true,false,true,true,false,false,false,_
"neworder.asp?id=",_
"duplicate.asp?orderid=",_
"../delete.asp?orderid=",_
"newdelivery.asp?orderid=", _
"orderprint.asp?orderid=",_
"",_
"",_
"menuOrder"&orderid
end if
'/////////////// Menu List End
%>
<img src="../images/edit.gif" border="0" id="Order<%=orderid%>" align=absMiddle height=16 width=16 onMouseOver="ShowMenu('Order<%=orderid%>','menuOrder<%=orderid%>','<%=orderid%>')" onMouseOut="HideMenu('menuOrder<%=orderid%>')"></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','orderdetail.asp?orderid=<%=orderid%>');"><%=OrderNum%></a></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=600, height=480','../account/accountdetail.asp?accountid=<%=accountid%>');"><%=account%></a></td>
<td align=center><%if totalamount<>"" then
Response.write formatnumber(totalamount,2)
else
Response.write 0
end if
%></td>
<td align=center>
<%
if totalpoqty<>"" then
%>
<a href="javascript:opensubwin('resizable=no, scrollbars=yes, menubar=no, location=no, toolbar=no ,width=580,height=400,top=180,left=220','../poapply/selectorderproduct.asp?orderid=<%=orderid%>');"><img src="../images/applyed.gif" border=0 title="查看已经预定的<%=totalpoqty%>个产品"></a>
<%
else
if trim(confirmed)="已审核" and status<>"发货完成" then
%>
<a href="javascript:opensubwin('resizable=no, scrollbars=yes, menubar=no, location=no, toolbar=no ,width=580,height=400,top=180,left=220','../poapply/selectorderproduct.asp?orderid=<%=orderid%>');"><img src="../images/apply1.gif" border=0 title="产品预定申请"></a>
<%
else
%>
<!--<img src="../images/apply2.gif" border=0>-->
<%response.write "--"%>
<%
end if
end if
%>
</td>
<td align=center><%=status%></td>
<td align=center><%=confirmed%></td>
<td align=center><%=SignedDate%></td>
<td align=center><%=owner%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<BR>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -