payment.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->

<%
sysid=1
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "payment","read"

dim conn
dim rs 
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if Request.QueryString("strfield")<>"" then
	if Request.QueryString("strfield")<>"paymentdate" then
		strwhere=" and "&request.QueryString("strfield")&" like '%"&request.QueryString("strvalue")&"%'"
	else
		strwhere=" and "&request.QueryString("strfield")&"='"&request.QueryString("strvalue")&"'"
	end if
end if
if Request.Form("strfield")<>"" then
	if Request.Form("strfield")<>"paymentdate" then
		strwhere=" and "&request.Form("strfield")&" like '%"&request.form("strvalue")&"%'"
	else
		strwhere=" and "&request.Form("strfield")&"='"&request.form("strvalue")&"'"
	end if
end if

if request.Form("complete")="" then
	if Request.QueryString("complete")<>"" then
		if Request.QueryString("complete")=3 then
		elseif Request.QueryString("complete")=1 then
			strwhere=strwhere&" and totalreceive<>amount and Collectionstatus='未销' "
		elseif Request.QueryString("complete")=2 then
			strwhere=strwhere&" and totalreceive<>amount and Collectionstatus='未销' and datediff(d,expiredate,'"&date()&"')>0"
		end if
	else
		strwhere=strwhere&" and totalreceive<>amount and Collectionstatus='未销' "
	end if
else
	if request.Form("complete")<>"" then
		if Request.form("complete")=3 then
		elseif Request.form("complete")=1 then
			strwhere=strwhere&" and totalreceive<>amount and Collectionstatus='未销'"
		elseif Request.form("complete")=2 then
			strwhere=strwhere&" and totalreceive<>amount and Collectionstatus='未销' and datediff(d,expiredate,'"&date()&"')>0"
		end if
	else
		strwhere=strwhere&" and totalreceive<>amount and Collectionstatus='未销' "
	end if
end if
if Request.QueryString("FdateSearch")<>"" then
	strFdate=Request.QueryString("FdateSearch")
end if
if Request.Form("FdateSearch")<>"" then
	strFdate=Request.Form("FdateSearch")
end if
if strFdate<>"" then strwhere=strwhere&" and paymentdate>='"&cdate(strFdate)&"'"
if  Request.Form("EdateSearch")<>"" then
	strEdate=Request.Form("EdateSearch")
end if
if  Request.QueryString("EdateSearch")<>"" then
	strEdate=Request.QueryString("EdateSearch")
end if
if strEdate<>"" then strwhere=strwhere&" and paymentdate<='"&cdate(strEdate)&"'"
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 createdate desc"
end if

if objcheck.CheckUserFunction2("payment","edit") then

	rs.Open "select * from v_OrderPaymentWithReceiveExpire where sysaccountid="&sysid&" "&strwhere,conn,1,1
	'搜索时用
	selecttablename="v_OrderPaymentWithReceiveExpire where sysaccountid="&sysid
else
	rs.Open "select * from v_OrderPaymentWithReceiveExpire where (creator='"&session("loginid")&"' or userid='"&session("loginid")&"' or userid in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid&" "&strwhere,conn,1,1
	'搜索时用
	selecttablename="v_OrderPaymentWithReceiveExpire where (creator='"&session("loginid")&"' or userid='"&session("loginid")&"' or userid 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>
<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>
<script language=javascript src="../tools/newcalendar.js"></script>
<title>应收帐与应开票</title>
<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;
     //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 relativeinput_onchange()
{
if (form1.strfield.value=='paymentdate'){
	dateformat.style.display='block';
	}
if (form1.strfield.value!='paymentdate'){
	dateformat.style.display='none';
	}
if (form1.strfield.value=="username"){
	strvalue1.style.display='none';
	strvalue2.style.display='block';
	form1.strvalue1.value="";
	}
if (form1.strfield.value!="username"){
	strvalue1.style.display='block';
	strvalue2.style.display='none';
	form1.strvalue2.value="";
	}
}
function GetStrValue()
{
if (form1.strfield.value!="username"){
	form1.strvalue.value=form1.strvalue1.value;
	}
if (form1.strfield.value=="username"){
	form1.strvalue.value=form1.strvalue2.value;
	}
	if (form1.strfield.value=='paymentdate'){
		if(form1.strvalue.value==""){
			alert("请输入搜索日期!");
			return false;
			}
		if(CheckDate(document.form1.strvalue.value)){
			alert("请输入正确格式的日期!");
			return false;
			}
		}
form1.submit();
}
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";');
		}
		else
		{
			eval(objname+'.style.display="block";');
			eval('IMG'+objname+'.style.display="none";');			
			eval('IMG1'+objname+'.style.display="block";');			
			//alert('IMG'+objname+'.src = "../images/button1.gif";');
			//eval('IMG'+objname+'.src = "../images/button1.gif";');
		}
}
</SCRIPT>

<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="payment.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();">