📄 payment.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
sysid=1
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "popayment","read"
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")<>"paymentdate" 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("strfield")<>"paymentdate" then
strwhere=" and "&request("strfield")&" like '%"&request.form("strvalue")&"%'"
else
strwhere=" and "&request("strfield")&"='"&request.form("strvalue")&"'"
end if
end if
if Request.QueryString("pobyfield")<>"" then
'排序字段改变返回第一页
if session("pobyfield")<>Request.QueryString("pobyfield") then
tofirstpage=true
else
tofirstpage=false
end if
'翻页时保持排序方式，不翻页循环改变升序/降序
if request("turnpage")="" then
if request("poby")="" or request("poby")="desc" then
session("poby")="asc"
else
session("poby")="desc"
end if
strwhere=strwhere & " order by "&Request.QueryString("pobyfield")&" "&session("poby")
else
if request("pobyfield")<>"" then
strwhere=strwhere & " order by "&Request.QueryString("pobyfield")&" "&session("poby")
end if
end if
'保存当然排序字段
session("pobyfield")=Request.QueryString("pobyfield")
else
strwhere=strwhere & " order by createdate desc"
end if
if objcheck.CheckUserFunction2("popayment","edit") then
rs.Open "select * from v_popayment where sysaccountid="&sysid&" "&strwhere,conn,1,1
'搜索时用
selecttablename="v_popayment where sysaccountid="&sysid
else
rs.Open "select * from v_popayment where (creator='"&session("loginid")&"' or creator in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and sysaccountid="&sysid&" "&strwhere,conn,1,1
'搜索时用
selecttablename="v_popayment where (creator='"&session("loginid")&"' or creator 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>
</head>
<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">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -