📄 expensequery.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	strvalue2.style.display='none';
	strvalue3.style.display='none';
	strvalue4.style.display='none';
	strvalue5.style.display='block';
	form1.strvalue1.value="";
	form1.strvalue2.value="";
	form1.strvalue3.value="";
	form1.strvalue4.value="";
	}
}
function GetStrValue()
{
if (form1.strfield.value!="expensestat"&&form1.strfield.value!="Ownername"&&form1.strfield.value!="expensetype"&&form1.strfield.value!="paymenttype"){
	form1.strvalue.value=form1.strvalue1.value;
	}
if (form1.strfield.value=="expensetype"){
	form1.strvalue.value=form1.strvalue2.value;
	}
if (form1.strfield.value=="Ownername"){
	form1.strvalue.value=form1.strvalue3.value;
	}
if (form1.strfield.value=="expensestat"){
	form1.strvalue.value=form1.strvalue4.value;
	}
if (form1.strfield.value=="paymenttype"){
	form1.strvalue.value=form1.strvalue5.value;
	}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="expensequery.asp"  onsubmit="return GetStrValue();">
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width="9%"> <select name="strfield" onchange="relativeinput_onchange();">
          <option value=Account <%if request("strfield")="Account" then Response.Write "selected"%>>客户</option>
          <option value=expensetype <%if request("strfield")="expensetype" then Response.Write "selected"%>>费用类型</option>
          <option value=paymenttype <%if request("strfield")="paymenttype" then Response.Write "selected"%>>付款类型</option>
          <option value=amount <%if request("strfield")="amount" then Response.Write "selected"%>>金额</option>
          <option value=expensestat <%if request("strfield")="expensestat" then Response.Write "selected"%>>状态</option>
          <option value=Ownername <%if request("strfield")="Ownername" then Response.Write "selected"%>>所有者</option>
        </select></td>
      <td width="17%">
	  <div id=strvalue1 <%if (request("strfield")<>"expensetype" and request("strfield")<>"paymenttype" and request("strfield")<>"Ownername" and request("strfield")<>"expensestat") 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")="expensetype" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue2" class="stedit">
                  <option value="">--费用类型--</option>
                  <%getgrouptype selecttablename,"expensetype",request("strvalue2")%>
            </select></div>
	  <div id=strvalue3 <%if request("strfield")="Ownername" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue3" class="stedit">
                  <option value="">--请选择销售员--</option>
                  <%getgrouptype selecttablename,"Ownername",request("strvalue3")%>
            </select></div>
		<div id=strvalue4 <%if request("strfield")="expensestat" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue4" class="stedit">
                  <option value="">--请选择状态--</option>
                  <%getgrouptype selecttablename,"expensestat",request("strvalue4")%>
            </select></div>
       <div id=strvalue5 <%if request("strfield")="paymenttype" then response.write "style=display:block" else response.write "style=display:none" end if%>>
	  		<select name="strvalue5" class="stedit">
                  <option value="">--请选择付款类型--</option>
                  <%getgrouptype selecttablename,"paymenttype",request("strvalue5")%>
            </select></div>
		</td>
      <td width="53%"> 从 
        <input type="text" name="fromdate" size="9" language=javascript id="dupdatetimefrom" value="<%=fromdate%>" readonly>
        <% call AddImg("datefrom")%>
        - 
        <input type="text" name="todate" size="9" language=javascript id="dupdatetimeto" value="<%=todate%>" readonly> 
        <% call AddImg("dateto")%>
        <input type = hidden name=clicksource> <input type = hidden name=clickresult > 
        <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='Expensequery.asp?todate="&request("todate")&"&fromdate="&request("fromdate")&"&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='Expensequery.asp?todate="&request("todate")&"&fromdate="&request("fromdate")&"&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='Expensequery.asp?todate="&request("todate")&"&fromdate="&request("fromdate")&"&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='Expensequery.asp?todate="&request("todate")&"&fromdate="&request("fromdate")&"&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='Expensequery.asp?todate="&request("todate")&"&fromdate="&request("fromdate")&"&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='Expensequery.asp?todate="&request("todate")&"&fromdate="&request("fromdate")&"&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=21%><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="4"><strong><font class=title><b>费用查询</b></font></strong></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="6%" height=15 align=center>序号</td>
      <td width="12%" height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=expensetype&orderby=<%=session("orderby")%>">费用类型</a></td>
      <td width="12%" height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=linedate&orderby=<%=session("orderby")%>">日期</a></td>
      <td width="12%" height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=amount&orderby=<%=session("orderby")%>">金额</a></td>
      <td width="12%" height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=paymenttype&orderby=<%=session("orderby")%>">付款类型</a></td>
      <td   height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
      <td width="12%" height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=expensestat&orderby=<%=session("orderby")%>">状态</a></td>
      <td width="12%" height=15 align=center><a href="expensequery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=contact&orderby=<%=session("orderby")%>">所有者</a></td>
    </tr>
    <%
  set expensetype=rs("expensetype")
  set linedate=rs("linedate")
  set amount=rs("amount")
  set paymenttype=rs("paymenttype")
  set account=rs("account")
  set expensestat=rs("expensestat")
  set ownername=rs("ownername")
  set description=rs("description")
  i=1
  i=1:do while not rs.EOF and i<=session("pagesize")%>
  <tr bgcolor="#FFFFFF"> 
	<td align=center><%=i%></td>
    <td align=center height=18><%=expensetype%></a></td>
    <td align=center><%=linedate%></td>
    <td align=center><%=formatnumber(amount,2)%></td>
    <td align=center><%=paymenttype%></td>
    <td align=center><%=account%></td>
    <td align=center><%=expensestat%></td>
    <td align=center><%=ownername%></td>
    <td align=center><%=description%></td>
  </tr>
    <%
  i=i+1
  totalamount=totalamount+csng(rs("amount"))
  rs.MoveNext
  loop
%>
  </table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="30"><td>金额：<%=formatnumber(totalamount,2)%>&nbsp;&nbsp;</td></tr>
<tr height="20"><td>第<%=CurPage%>页&nbsp;/&nbsp;共<%=RS.PageCount%>页&nbsp;/&nbsp;记录数:<%=Rs.RecordCount%>条</td></tr>
</table>
<%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
上一页 12
⌨️ 快捷键说明

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