📄 accountquery.asp
字号:
<% ModuleCode="M0220" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
FromTime=Request("FromTime")
ToTime=Request("ToTime")
UAMoney=Request("UAMoney")
UserID=Request("UserID")
UAVoucher=Request("UAVoucher")
UAStat=Request("UAStat")
TypeCode=Request("TypeCode")
strSQL="Select a.UATime,a.UAMoney,a.UserID,a.UAVoucher,a.UAStat,a.OtherInfo,b.TypeName,c.UserName from T_DNS_UserAccount a, T_DNS_AccountType b,T_DNS_UserInfo c where a.UAType='1' and a.TypeCode=b.TypeCode and a.UserID=c.UserID "
strQuery=""
if UAVoucher<>"" then
strSQL = strSQL & " and a.UAVoucher='" & UAVoucher & "'"
strQuery = strQuery & "&UAVoucher=" & UAVoucher
end if
if UserID<>"" then
strSQL = strSQL & " and (a.UserID like '%" & UserID & "%' or c.UserName like '%" & UserID & "%')"
strQuery = strQuery & "&UserID=" & UserID
end if
if TypeCode<>"" then
strSQL = strSQL & " and a.TypeCode='" & TypeCode & "'"
strQuery = strQuery & "&TypeCode=" & TypeCode
end if
if UAStat<>"" then
strSQL = strSQL & " and a.UAStat='" & UAStat & "'"
strQuery = strQuery & "&UAStat=" & UAStat
end if
if CAMoney<>"" then
strSQL = strSQL & " and a.CAMoney=" & CAMoney & " "
strQuery = strQuery & "&CAMoney=" & CAMoney
end if
if FromTime<>"" then
strSQL = strSQL & " and a.UATime >= '" & FromTime & " 00:00:00'"
strQuery = strQuery & "&FromTime=" & FromTime
end if
if ToTime<>"" then
strSQL = strSQL & " and a.UATime <= '" & ToTime & " 23:59:59'"
strQuery = strQuery & "&ToTime=" & ToTime
end if
strSQL = strSQL & " order by a.InTime desc"
'Response.Write strSQL
'Response.End
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
Response.Write "<br><br><P align='center' class='titletext'>目前还没有款项记录！</p>"
else
Rs.PageSize=Opt_PageSize
pages=Rs.pagecount
records=Rs.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
Rs.absolutepage=currentpage
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody>
<tr>
<td height="22" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>款项查询</strong></font></td>
<td align="right">共 <font color="red"><b><%=Records%></b></font> 个项目 页次:
<font color="red"><b><%=currentpage%></b></font> / <font color="red"><b><%=Pages%></b></font>
页
</td>
</tr>
</tbody>
</table>
<!------------------------------------------------------------------------------------->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
<tr bgcolor="<%=Opt_TR_BGColor%>" height="24">
<td>凭证编号</td>
<td>发生金额</td>
<td>款项类型</td>
<td>时间</td>
<td>用户</td>
<td>状态</td>
</tr>
<%
linenumber=Rs.pagesize
do while (not Rs.eof) and (line<linenumber)
if line mod 2 =0 Then %>
<tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
<% else %>
<tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
<% end if %>
<td><a href="AccountView.asp?ID=<%=Rs("UAVoucher")%>" class="a2"><%=Rs("UAVoucher")%></a></td>
<td><%=ABS(CCur(Rs("UAMoney")))%></td>
<td><%=Rs("TypeName")%></td>
<td><%=FormatDateTime(Rs("UATime"),vbShortDate)%></td>
<td><%=Rs("UserID")%>/<%=Rs("UserName")%></td>
<td>
<%
Select Case Rs("UAStat")
Case "1"
Response.Write "正常"
Case "2"
Response.Write "待审"
Case "3"
Response.Write "作废"
End Select
%>
</td>
</tr>
<%
Rs.MoveNext
line=line+1
Loop
%>
</table>
<!-------------------------------------分页导航--------------------------------------->
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tbody>
<form name="pageform" method="Post" action="<%=Request("SCRIPT_NAME")%>?px=<%=px%><%=strQuery%>">
<tr height="26">
<td>
<%if currentpage>1 then%>
<a href="<%=Request("SCRIPT_NAME")%>?currentpage=1<%=strQuery%>" class="a2">首页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage-1%><%=strQuery%>" class="a2">上一页</a>
<%end if%>
<%if currentpage<pages then%>
<a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage+1%><%=strQuery%>" class="a2">下一页</a> <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=pages%><%=strQuery%>" class="a2">末页</a>
<%end if%>
</td>
<td align="right">
转到: <input type="text" name="currentpage" size="2" maxlength="6" class="input" value="<%=currentpage%>"> 页
</td></tr>
</form>
</tbody>
</table>
<%
end if
Rs.Close
Set Rs=Nothing
%>
<br>
<script language=javascript>
<!--
document.writeln('<div id=meizzDateLayer style="position: absolute; width: 142; height: 166; z-index: 9998; display: none">');
document.writeln('<span id=tmpSelectYearLayer style="z-index: 9999;position: absolute;top: 2; left: 18;display: none"></span>');
document.writeln('<span id=tmpSelectMonthLayer style="z-index: 9999;position: absolute;top: 2; left: 75;display: none"></span>');
document.writeln('<table border=0 cellspacing=1 cellpadding=0 width=142 height=160 bgcolor=#808080 onselectstart="return false">');
document.writeln(' <tr><td width=142 height=23 bgcolor=#FFFFFF><table border=0 cellspacing=1 cellpadding=0 width=140 height=23>');
document.writeln(' <tr align=center><td width=20 align=center bgcolor=#808080 style="font-size:12px;cursor: hand;color: #FFD700" ');
document.writeln(' onclick="meizzPrevM()" title="向前翻 月" Author=meizz><b Author=meizz><<</b>');
document.writeln(' </td><td width=100 align=center style="font-size:12px;cursor:default" Author=meizz>');
document.writeln(' <span Author=meizz id=meizzYearHead onclick="tmpSelectYearInnerHTML(this.innerText)"></span> 年 <span');
document.writeln(' id=meizzMonthHead Author=meizz onclick="tmpSelectMonthInnerHTML(this.innerText)"></span> 月</td>');
document.writeln(' <td width=20 bgcolor=#808080 align=center style="font-size:12px;cursor: hand;color: #FFD700" ');
document.writeln(' onclick="meizzNextM()" title="往后翻 月" Author=meizz><b Author=meizz>>></b></td></tr>');
document.writeln(' </table></td></tr>');
document.writeln(' <tr><td width=142 height=18 bgcolor=#808080>');
document.writeln('<table border=0 cellspacing=0 cellpadding=0 width=140 height=1 style="cursor:default">');
document.writeln('<tr align=center><td style="font-size:12px;color:#FFFFFF" Author=meizz>日</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>一</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>二</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>三</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>四</td>');
document.writeln('<td style="font-size:12px;color:#FFFFFF" Author=meizz>五</td><td style="font-size:12px;color:#FFFFFF" Author=meizz>六</td></tr>');
document.writeln('</table></td></tr><!-- Author:F.R.Huang(meizz)meizz @ hzcnc.com 2002-10-8 -->');
document.writeln(' <tr><td width=142 height=120>');
document.writeln(' <table border=0 cellspacing=1 cellpadding=0 width=140 height=120 bgcolor=#FFFFFF>');
var n=0; for (j=0;j<5;j++){ document.writeln (' <tr align=center>'); for (i=0;i<7;i++){
document.writeln('<td width=20 height=20 id=meizzDay'+n+' style="font-size:12px" Author=meizz onclick=meizzDayClick(this.innerText)></td>');n++;}
document.writeln('</tr>');}
document.writeln(' <tr align=center><td width=20 height=20 style="font-size:12px" id=meizzDay35 Author=meizz ');
document.writeln(' onclick=meizzDayClick(this.innerText)></td>');
document.writeln(' <td width=20 height=20 style="font-size:12px" id=meizzDay36 Author=meizz onclick=meizzDayClick(this.innerText)></td>');
document.writeln(' <td colspan=5 align=right Author=meizz><span onclick=closeLayer() style="font-size:12px;cursor: hand"');
document.writeln(' Author=meizz title=""><u>关闭</u></span> </td></tr>');
document.writeln(' </table></td></tr><tr><td>');
document.writeln(' <table border=0 cellspacing=1 cellpadding=0 width=100% bgcolor=#FFFFFF>');
document.writeln(' <tr><td Author=meizz align=left><input Author=meizz type=button value="< " title="向前翻 年" onclick="meizzPrevY()" ');
document.writeln(' onfocus="this.blur()" class="button"><input Author=meizz title="向前翻 月" type=button ');
document.writeln(' value="<<" onclick="meizzPrevM()" onfocus="this.blur()" class="button"></td><td ');
document.writeln(' Author=meizz align=center><input Author=meizz type=button value="今天" onclick="meizzToday()" ');
document.writeln(' onfocus="this.blur()" title="现在的年月" class="button"></td><td ');
document.writeln(' Author=meizz align=right><input Author=meizz type=button value=">>" onclick="meizzNextM()" ');
document.writeln(' onfocus="this.blur()" title="往后翻 月" class="button"><input ');
document.writeln(' Author=meizz type=button value=" >" title="往后翻 年" onclick="meizzNextY()"');
document.writeln(' onfocus="this.blur()" class="button"></td>');
document.writeln('</tr></table></td></tr></table></div>');
var outObject;
function setday(tt,obj)
{
if (arguments.length > 2){alert("对不起！传入本控件的参数太多！");return;}
if (arguments.length == 0){alert("对不起！您没有传回本控件任何参数！");return;}
var dads = document.all.meizzDateLayer.style;var th = tt;
var ttop = tt.offsetTop;
var thei = tt.clientHeight;
var tleft = tt.offsetLeft;
var ttyp = tt.type;
while (tt = tt.offsetParent){ttop+=tt.offsetTop; tleft+=tt.offsetLeft;}
dads.top = (ttyp=="image")? ttop+thei : ttop+thei+6;
dads.left = tleft;
outObject = (arguments.length == 1) ? th : obj;
dads.display = '';
event.returnValue=false;
}
var MonHead = new Array(12);
MonHead[0] = 31; MonHead[1] = 28; MonHead[2] = 31; MonHead[3] = 30; MonHead[4] = 31; MonHead[5] = 30;
MonHead[6] = 31; MonHead[7] = 31; MonHead[8] = 30; MonHead[9] = 31; MonHead[10] = 30; MonHead[11] = 31;
var meizzTheYear=new Date().getFullYear();
var meizzTheMonth=new Date().getMonth()+1;
var meizzWDay=new Array(37);
function document.onclick()
{
with(window.event.srcElement)
{ if (getAttribute("Author")==null && tagName != "INPUT")
document.all.meizzDateLayer.style.display="none";
}
}
function meizzWriteHead(yy,mm)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -