📄 accountlist.asp
字号:
<% ModuleCode="M0925" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
UAMoney=Request("UAMoney")
UAVoucher=Request("UAVoucher")
ActType=Request("ActType")
Reason=Request("Reason")
OtherInfo=Request("OtherInfo")
FromTime=Request("FromTime")
ToTime=Request("ToTime")
UserID=Request("UserID")
strSQL="Select * from T_DNS_UserAccount where 1=1"
strQuery=""
if Session("ISADMIN")<>"YES" then
strSQL = strSQL & " and UserID=" & Session("UserID")
else
if UserID<>"" then
strSQL = strSQL & " and UserID like '%" & UserID & "%'"
strQuery = strQuery & "&UserID=" & UserID
end if
end if
if UAVoucher<>"" then
strSQL = strSQL & " and UAVoucher='" & UAVoucher & "' or UAID='" & UAVoucher & "'"
strQuery = strQuery & "&UAVoucher=" & UAVoucher
end if
if ActType<>"" then
if ActType="0" then
strSQL = strSQL & " and UAMoney>=0"
else
strSQL = strSQL & " and UAMoney<0"
end if
strQuery = strQuery & "&ActType=" & ActType
end if
if UAMoney<>"" then
strSQL = strSQL & " and UAMoney=" & UAMoney & " "
strQuery = strQuery & "&UAMoney=" & UAMoney
end if
if Reason<>"" then
strSQL = strSQL & " and Reason like '%" & Reason & "%'"
strQuery = strQuery & "&Reason=" & Reason
end if
if OtherInfo<>"" then
strSQL = strSQL & " and OtherInfo like '%" & OtherInfo & "%'"
strQuery = strQuery & "&OtherInfo=" & OtherInfo
end if
if FromTime<>"" then
strSQL = strSQL & " and UATime >= '" & FromTime & " 00:00:00'"
strQuery = strQuery & "&FromTime=" & FromTime
end if
if ToTime<>"" then
strSQL = strSQL & " and UATime <= '" & ToTime & " 23:59:59'"
strQuery = strQuery & "&ToTime=" & ToTime
end if
strSQL = strSQL & " order by 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>
<% if Session("ISADMIN")="YES" then %>
<td>用户</td>
<% end if %>
<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("UAID")%>" class="a2">
<%
if Trim(Rs("UAVoucher"))="" then
Response.Write Rs("UAID")
else
Response.Write Rs("UAVoucher")
end if
%></td>
<td>
<%
if CCur(Rs("UAMoney"))>=0 then
Response.Write "入帐"
else
Response.Write "支出"
end if
%>
</td>
<td><%=FormatDateTime(Rs("UATime"),vbShortDate)%></td>
<td><%=ABS(CCur(Rs("UAMoney")))%></td>
<td><%=Rs("Reason")%></td>
<td>
<%
if Len(Rs("OtherInfo"))>16 then
Response.Write left(Rs("OtherInfo"),20) & "..."
else
Response.Write Rs("OtherInfo")
end if
%>
</td>
<% if Session("ISADMIN")="YES" then %>
<td><%=Rs("UserID")%></td>
<% end if %>
<td>
<%
if Rs("UAType")="4" then
Select Case Rs("UAStat")
Case "1"
Response.Write "发送"
Case "2"
Response.Write "成功"
Case "3"
Response.Write "失败"
Case "3"
Response.Write "无效"
End Select
else
Select Case Rs("UAStat")
Case "1"
Response.Write "正常"
Case "2"
Response.Write "待审"
Case "3"
Response.Write "作废"
End Select
end if
%>
</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()"');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -