📄 checklist.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "payment","read"

sysid=1
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")<>"lastmoddate" then
		strwhere=" and "&request("strfield")&" like '%"&request("strvalue")&"%'"
	else
		strwhere=" and "&request("strfield")&"='"&request("strvalue")&"'"
	end if
end if

if Request.Form("strfield")<>"" then
	if Request.Form("strfield")<>"lastmoddate" then
		strwhere=" and "&request("strfield")&" like '%"&request.form("strvalue")&"%'"
	else
		strwhere=" and "&request("strfield")&"='"&request.form("strvalue")&"'"
	end if
end if
if Request("collectionamount")<>"" then
	if Request("collectionamount")="0" then
		strwhere=strwhere&" and paymentamount=0"
	else
		strwhere=strwhere&" and paymentamount<>0"
	end if
elseif Request.Form("collectionamount")<>"" then
	if Request.Form("collectionamount")="0" then
		strwhere=strwhere&" and paymentamount=0"
	else
		strwhere=strwhere&" and paymentamount<>0"
	end if
end if
if Request("invoiceamount")<>"" then
	if Request("invoiceamount")="0" then
		strwhere=strwhere&" and invoiceamount=0"
	else
		strwhere=strwhere&" and invoiceamount<>0"
	end if
elseif Request.Form("invoiceamount")<>"" then
	if Request.Form("invoiceamount")="0" then
		strwhere=strwhere&" and invoiceamount=0"
	else
		strwhere=strwhere&" and invoiceamount<>0"
	end if
end if
if Request("dueamount")<>"" then
	if Request("dueamount")="0" then
		strwhere=strwhere&" and dueamount=0"
	else
		strwhere=strwhere&" and dueamount<>0"
	end if
elseif Request.Form("dueamount")<>"" then
	if Request.Form("dueamount")="0" then
		strwhere=strwhere&" and dueamount=0"
	else
		strwhere=strwhere&" and dueamount<>0"
	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 lastmoddate desc,accountlevel desc"
end if

if objcheck.CheckUserFunction2("payment","edit") then
	'sql="SELECT * FROM v_AccountPaymentAndInoviceCheckResult where sysaccountid="&sysid&" "&strwhere
	'Response.Write sql
	rs.Open "SELECT * FROM v_AccountPaymentAndInoviceCheckResult where sysaccountid="&sysid&" "&strwhere,conn,1,1
	'搜索时用
	selecttablename="v_AccountPaymentAndInoviceCheckResult where sysaccountid="&sysid
else
	rs.Open "SELECT * FROM v_AccountPaymentAndInoviceCheckResult where (AccountOwner='"&session("loginid")&"' or AccountOwner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid&" "&strwhere,conn,1,1
	'搜索时用
	selecttablename="v_AccountPaymentAndInoviceCheckResult where (AccountOwner='"&session("loginid")&"' or AccountOwner in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid
end if

if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 or tofirstpage=true 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>
<LINK href="../tools/menu.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Script LANGUAGE="javascript" src="../tools/menuView.js"></script>
<title>对帐余额列表</title>
</head>

<script language=javascript>
var   g_UrlParams ;
function  JustShowMenu(src)
{
    document.all(src).style.visibility = "visible";
}

function   HideMenu(src)
{
  document.all(src).style.visibility = "hidden";
}

function  MenuItem_onclick(url,attrstr)
{
	//var tempwin=window.open(url,null,attrstr);
	//tempwin.location.href=url + g_UrlParams;
	  var tempwin;
     window.location.href = url + g_UrlParams;
}

function  LocateMenu(src,MenuName)
{
   var left; 
   var top ;
   var parent ;
   parent = document.all(src).offsetParent;
   left =  parent.offsetLeft + document.all(src).offsetLeft + document.all(src).offsetWidth/2;
   top  =  parent.offsetTop  + document.all(src).offsetTop +document.all(src).offsetHeight/2;
   
   while(true)
   {
        parent = parent.offsetParent ;
        if  ( "BODY"==parent.tagName)  break;
        left += parent.offsetLeft ;
        top  += parent.offsetTop;
   }
   document.all(MenuName).style.left =left ;
   document.all(MenuName).style.top = top ;
}

function   ShowMenu(src,MenuName,iUrlParams)
{
   var  i ;
   var  parent = new Array(20) ;
   var  left ;
   var  top  ;
   
   g_UrlParams = iUrlParams ;

   LocateMenu(src,MenuName);
   document.all(MenuName).style.visibility = "visible";
}
</script>

<SCRIPT language=JavaScript>
function showit(objname,imgn){
		if (eval(objname+'.style.display=="block"') == true)
		{
			eval(objname+'.style.display="none";');
			eval('IMG'+objname+'.style.display="block";');			
			eval('IMG1'+objname+'.style.display="none";');			
			//alert('IMG'+objname+'.src = "../images/button2.gif";');
			//eval('IMG'+objname+'.src = "../images/button2.gif";');
12 下一页
⌨️ 快捷键说明

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