📄 quote.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	}
}
function GetStrValue()
{
if (form1.strfield.value!="Status"&&form1.strfield.value!="Owner"){
	form1.strvalue.value=form1.strvalue1.value;
	}
if (form1.strfield.value=="Status"){
	form1.strvalue.value=form1.strvalue2.value;
	}
if (form1.strfield.value=="Owner"){
	form1.strvalue.value=form1.strvalue3.value;
	}
	if (form1.strfield.value=='QuoteDate'){
		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="quote.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=QuoteNo <%if request("strfield")="QuoteNo" 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=Status <%if request("strfield")="Status" then Response.Write "selected"%>>状态</option>
          <option value=QuoteDate <%if request("strfield")="QuoteDate" then Response.Write "selected"%>>报价日期</option>
          <option value=Owner <%if request("strfield")="Owner" 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='quote.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>&nbsp;"
		else
		    Response.Write "<a href='quote.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>&nbsp;"
		    Response.Write "<a href='quote.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>&nbsp;"
		end if
   		if CurPage>=RS.PageCount then
			Response.Write "<a href='quote.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='quote.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>&nbsp;"
			Response.Write "<a href='quote.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")="QuoteDate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
    </tr>
    <tr> 
      <td height="25"><strong><font size="2" class="title"><b>报价</b>列表</font></strong> 
        &nbsp;&nbsp;<a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','newquote.asp');"><img src="../images/button_new.gif" border=0></a>&nbsp;&nbsp; 
        <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','relquoteprint.asp');"><img src="../images/button_print.gif" border=0></a></td>
      <td height="25"><div align="right"></div></td>
      <td height="25">&nbsp;</td>
      <td height="25" class="title"><div align="right"><a href="quotedetaillist.asp"><img src="../images/arrow_right.gif" border="0">报价明细</a></div></td>
    </tr>
    <tr > 
      <td height="16" colspan="4" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr> 
      <td height=4 colspan=4</td> </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
    <tr bgcolor="efefef"> 
      <td width="7%" height="22" align=center>操作</td>
      <td width="12%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=quoteno&orderby=<%=session("orderby")%>">报价单号</a></td>
      <td  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=totalamount&orderby=<%=session("orderby")%>">金额</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=status&orderby=<%=session("orderby")%>">状态</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ordernum&orderby=<%=session("orderby")%>">合同号</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=quotedate&orderby=<%=session("orderby")%>">报价日期</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=owner&orderby=<%=session("orderby")%>">报价人</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=approver&orderby=<%=session("orderby")%>">批准人</a></td>
      <td width="8%"  align=center><a href="quote.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=approvedate&orderby=<%=session("orderby")%>">批准日期</a></td>
    </tr>
    <%
  set quoteid=rs("quoteid")
  set quoteno=rs("quoteno")
  set accountid=rs("accountid")
  set account=rs("account")
  set totalamount=rs("totalamount")
  set status=rs("status")
  set quotedate=rs("quotedate")
  set owner=rs("owner")
  set approver=rs("approver")
  set approvedate=rs("approvedate")
  set orderid=rs("orderid")
  set ordernum=rs("ordernum")
  i=1:do while not rs.EOF and i<=session("pagesize")%>
    <tr bgcolor="#FFFFFF"> 
      <td height="22" align=center width="7%" nowrap><table>
          <tr>
            <td> 
              <% 
' Add Payment Menu
if status="通过" or status="同意" then
AddPopupMenu3 true,true,true,true,true,false, _
				"newQuote.asp?id=", _
				"../delete.asp?quoteid=",_
				"convert.asp?id=",_
				"relquoteprint.asp?quoteid=",_
				"duplicate.asp?quoteid=",_
				"menuQuote"&quoteid
elseif status="转换" then
AddPopupMenu3 false,false,false,true,true,false, _
				"newQuote.asp?id=", _
				"../delete.asp?quoteid=",_
				"convert.asp?id=",_
				"relquoteprint.asp?quoteid=",_
				"duplicate.asp?quoteid=",_
				"menuQuote"&quoteid
else
AddPopupMenu3 true,true,false,false,true,false, _
				"newQuote.asp?id=", _
				"../delete.asp?quoteid=",_
				"",_
				"",_
				"duplicate.asp?quoteid=",_
				"menuQuote"&quoteid
end if
'/////////////// Menu List End	
%>
              <img src="../images/edit.gif" border="0" id="Quote<%=quoteid%>" align=absMiddle height=16  width=16 onMouseOver="ShowMenu('Quote<%=quoteid%>','menuQuote<%=quoteid%>','<%=quoteid%>')" onMouseOut="HideMenu('menuQuote<%=quoteid%>')"></td>
          </tr>
        </table></td>
      <td align=center><a href="javascript:opensubwin3('quotedetail.asp?quoteid=<%=quoteid%>','报价<%=i%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=quoteno%></a></td>
      <td align=center><a href="javascript:opensubwin3('../account/accountdetail.asp?accountid=<%=accountid%>','客户<%=i%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=account%></a></td>
      <td align=center>
        <%if totalamount<>"" then Response.write formatnumber(totalamount,2)%>
      </td>
      <td align=center><%=status%></td>
      <td align=center><a href="javascript:opensubwin3('../order/orderdetail.asp?orderid=<%=orderid%>','报价<%=i%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=ordernum%></a></td>
      <td align=center><%=QuoteDate%></td>
      <td align=center><%=owner%></td>
      <td align=center><%=approver%></td>
      <td align=center>
        <%if approvedate<>"" then Response.Write formatdatetime(approvedate,2)%>
      </td>
    </tr>
    <%
  i=i+1
  rs.MoveNext
  loop
%>
  </table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页&nbsp;/&nbsp;共<%=RS.PageCount%>页&nbsp;/&nbsp;记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
</form>
</body>
</html>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -