📄 expensequery.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
sysid=1
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "report","read"
fromdate=date()-6
if request("fromdate")<>"" then fromdate=request("fromdate")
todate=date()
if request("todate")<>"" then todate=request("todate")
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if Request("strfield")<>"" then
if Request("strfield")<>"SignedDate" then
if Request("strfield")="Account" and request("strvalue")<>"" then
strwhere=" and "&request("strfield")&" like '%"&request("strvalue")&"%'"
else
strwhere=" and ("&request("strfield")&" like '%"&request("strvalue")&"%' or Account is null or account='')"
end if
else
strwhere=" and "&request("strfield")&"='"&request("strvalue")&"'"
end if
end if
if Request.Form("strfield")<>"" then
if Request.Form("strfield")<>"SignedDate" then
if Request.Form("strfield")="Account" and request("strvalue")<>"" then
strwhere=" and "&Request.Form("strfield")&" like '%"&Request.Form("strvalue")&"%'"
else
strwhere=" and ("&Request.Form("strfield")&" like '%"&Request.Form("strvalue")&"%' or Account is null or account='')"
end if
else
strwhere=" and "&Request.Form("strfield")&"='"&request.form("strvalue")&"'"
end if
end if
if Request.QueryString("orderbyfield")<>"" then
'排序字段改变返回第一页
if session("orderbyfield")<>Request.QueryString("orderbyfield") then
tofirstpage=true
else
tofirstpage=false
end if
'翻页时保持排序方式，不翻页循环改变升序/降序
if request("turnpage")="" then
if request("orderby")="" or request("orderby")="desc" then
session("orderby")="asc"
else
session("orderby")="desc"
end if
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
else
if request("orderbyfield")<>"" then
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
end if
end if
'保存当然排序字段
session("orderbyfield")=Request.QueryString("orderbyfield")
else
strwhere=strwhere & " order by linedate desc"
end if
if objcheck.CheckUserFunction2("expense","edit") or objcheck.CheckUserFunction2("payment","edit") then
rs.Open "select * from v_expenseline where linedate>='"&fromdate&"' and linedate<='"&todate&"' and sysaccountid="&sysid&strwhere,conn,1,1
else
rs.Open "select * from v_expenseline where linedate>='"&fromdate&"' and linedate<='"&todate&"' and (owner='"&session("loginid")&"' or owner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid&strwhere,conn,1,1
end if
'response.write "select * from v_expenseline where linedate>='"&fromdate&"' and linedate<='"&todate&"' and (owner='"&session("loginid")&"' or owner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid&strwhere
'搜索时用
if objcheck.CheckUserFunction2("expense","edit") or objcheck.CheckUserFunction2("payment","edit") then
selecttablename="v_expenseline where linedate>='"&fromdate&"' and linedate<='"&todate&"' and sysaccountid="&sysid
else
selecttablename="v_expenseline where linedate>='"&fromdate&"' and linedate<='"&todate&"' and (owner='"&session("loginid")&"' or owner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid
end if
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("PageSize")
Rs.AbsolutePage=CurPage
else
CurPage=0
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>费用查询</title>
<script language=javascript>
window.top.frames (1).document.location='../left.asp?type=stat';
</script>
</head>
<script language=javascript src="../tools/newcalendar.js"></script>
<SCRIPT language=JavaScript>
function relativeinput_onchange()
{
if (form1.strfield.value=='SignedDate'){
dateformat.style.display='block';
}
if (form1.strfield.value!='SignedDate'){
dateformat.style.display='none';
}
if (form1.strfield.value=="expensetype"){
strvalue1.style.display='none';
strvalue2.style.display='block';
strvalue3.style.display='none';
strvalue4.style.display='none';
strvalue5.style.display='none';
form1.strvalue1.value="";
form1.strvalue3.value="";
form1.strvalue4.value="";
form1.strvalue5.value="";
}
if (form1.strfield.value!="expensestat"&&form1.strfield.value!="Ownername"&&form1.strfield.value!="expensetype"){
strvalue1.style.display='block';
strvalue2.style.display='none';
strvalue3.style.display='none';
strvalue4.style.display='none';
strvalue5.style.display='none';
form1.strvalue2.value="";
form1.strvalue3.value="";
form1.strvalue4.value="";
form1.strvalue5.value="";
}
if (form1.strfield.value=="Ownername"){
strvalue1.style.display='none';
strvalue2.style.display='none';
strvalue4.style.display='none';
strvalue3.style.display='block';
strvalue5.style.display='none';
form1.strvalue1.value="";
form1.strvalue2.value="";
form1.strvalue4.value="";
form1.strvalue5.value="";
}
if (form1.strfield.value=="expensestat"){
strvalue1.style.display='none';
strvalue2.style.display='none';
strvalue3.style.display='none';
strvalue4.style.display='block';
strvalue5.style.display='none';
form1.strvalue1.value="";
form1.strvalue2.value="";
form1.strvalue3.value="";
form1.strvalue5.value="";
}
if (form1.strfield.value=="paymenttype"){
strvalue1.style.display='none';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -