📄 orderrsvd.asp
字号:
if (form1.strfield.value!="Status"&&form1.strfield.value!="username"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value=="Status"){
form1.strvalue.value=form1.strvalue2.value;
}
if (form1.strfield.value=="username"){
form1.strvalue.value=form1.strvalue3.value;
}
if (form1.strfield.value=='reservedate'||form1.strfield.value=='createdate1'){
if(form1.strvalue.value==""){
alert("请输入搜索日期!");
return false;
}
if(CheckDate(document.form1.strvalue.value)){
alert("请输入正确格式的日期!");
return false;
}
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="orderrsvd.asp" onsubmit="return GetStrValue();">
<table align=center width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%"><select name="strfield" onchange="relativeinput_onchange();">
<option value=model <%if request("strfield")="model" then Response.Write "selected"%>>型号</option>
<option value=productcode <%if request("strfield")="productcode" then Response.Write "selected"%>>货号</option>
<option value=qty <%if request("strfield")="qty" then Response.Write "selected"%>>保留数量</option>
<option value=reservedate <%if request("strfield")="reservedate" then Response.Write "selected"%>>保留日期</option>
<option value=username <%if request("strfield")="username" then Response.Write "selected"%>>申请人</option>
<option value=createdate1 <%if request("strfield")="createdate1" then Response.Write "selected"%>>申请日期</option>
<option value=ordernum <%if request("strfield")="ordernum" then Response.Write "selected"%>>保留合同</option>
<option value=Status <%if request("strfield")="Status" 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>
</select></td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")<>"Status" and request("strfield")<>"username" 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")="username" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue3" class="stedit">
<option value="">--请选择申请人--</option>
<%getgrouptype selecttablename,"username",request("strvalue3")%>
</select></div>
</td>
<td>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='orderrsvd.asp?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='orderrsvd.asp?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='orderrsvd.asp?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='orderrsvd.asp?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='orderrsvd.asp?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='orderrsvd.asp?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=30%><div id=dateformat <%if request("strfield")="reservedate" or request("strfield")="createdate" 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="4"><strong><font class=title>合同保留</font></strong> </td>
</tr>
<tr >
<td height="16" colspan="4" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan="4"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="7%" align=center height="22">操作</td>
<td width="5%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=productcode&orderby=<%=session("orderby")%>">货号</a></td>
<td align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=model&orderby=<%=session("orderby")%>">型号</a></td>
<td width="10%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=qty&orderby=<%=session("orderby")%>">保留数量</a></td>
<td width="10%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=reservedate&orderby=<%=session("orderby")%>">保留到日期</a></td>
<td width="10%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=creator&orderby=<%=session("orderby")%>">申请人</a></td>
<td width="10%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=createdate&orderby=<%=session("orderby")%>">申请日期</a></td>
<td width="10%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ordernum&orderby=<%=session("orderby")%>">保留合同</a></td>
<td width="10%" align=center><a href="orderrsvd.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=status&orderby=<%=session("orderby")%>">状态</a></td>
</tr>
<%
set productid=rs("productid")
set productcode=rs("productcode")
set model=rs("model")
set qty=rs("qty")
set username=rs("username")
set createdate=rs("createdate")
set ordernum=rs("ordernum")
set orderid=rs("orderid")
set reservedate=rs("reservedate")
set lineid=rs("orderlineid")
set status=rs("status")
i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center nowrap>
<%
'//////////////// Add Menu List Start /////////////////////////
if status<>"发货完成" then
AddPopupMenu1 false,false,false,false,true,true,true,false,_
"", _
"",_
"", _
"",_
"orderreserve.asp?approve=yes&lineid="&lineid&"&qty="&qty&"&productid="&productid&"&orderid=", _
"orderreserve.asp?approve=no&lineid="&lineid&"&orderid=",_
"orderreserve.asp?deletereserve=yes&lineid="&lineid&"&orderid=", _
"menuOrderrsvd"&i
else
AddPopupMenu1 false,false,false,false,false,false,true,false,_
"", _
"",_
"", _
"",_
"", _
"",_
"orderreserve.asp?cancelreserve=yes&lineid="&lineid&"&orderid=", _
"menuOrderrsvd"&i
end if
'/////////////// Menu List End
%>
<img src="../images/edit.gif" border="0" id="Orderrsvd<%=i%>" align=absMiddle height=16 width=16 onMouseOver="ShowMenu('Orderrsvd<%=i%>','menuOrderrsvd<%=i%>','<%=orderid%>')" onMouseOut="HideMenu('menuOrderrsvd<%=i%>')"></td>
<td align=center><a href="javascript:opensubwin3('../product/productdetail.asp?productid=<%=productid%>','产品<%=productid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=productcode%></a></td>
<td align=center><%=model%></td>
<td align=center><%=qty%></td>
<td align=center><%if reservedate-date()<0 then%><font color=red><%=reservedate%></font><%else%><%=reservedate%><%end if%></td>
<td align=center><%=username%></td>
<td align=center><%=formatdatetime(createdate,2)%></td>
<td align=center><a href="javascript:opensubwin3('../order/orderdetail.asp?orderid=<%=orderid%>','合同<%=orderid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=ordernum%></a></td>
<td align=center><%if status="保留同意" then%><font color=18FF84><%=status%></font><%elseif status="保留拒绝" then%><font color=red><%=status%></font><%else%><%=status%><%end if%></td>
<!--
<td align=center>
<%if status="保留申请" or status="保留拒绝" then%>
<a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','orderreserve.asp?approve=yes&orderid=<%=orderid%>&lineid=<%=lineid%>&qty=<%=qty%>&productid=<%=productid%>');">保留审批</a>
<%elseif status="发货完成" then%>
<%else%>
<a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','orderreserve.asp?approve=no&orderid=<%=orderid%>&lineid=<%=lineid%>');">保留拒绝</a>
<%end if%>
<%if status<>"保留同意" and status<>"发货完成" then%>
<a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','orderreserve.asp?cancelreserve=yes&lineid=<%=lineid%>&orderid=<%=orderid%>');">保留删除</a></td>
<%end if%>
-->
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<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
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -