📄 accountquery.asp
字号:
<% ModuleCode="M0930" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
FromTime=Request("FromTime")
ToTime=Request("ToTime")
UAMoney=Request("UAMoney")
UAVoucher=Request("UAVoucher")
UAStat=Request("UAStat")
TypeCode=Request("TypeCode")
UAType=Request("UAType")
OtherInfo=Request("OtherInfo")
strSQL="Select * from T_DNS_UserAccount where UserID='" & Session("UserID") & "' "
strQuery=""
if UAVoucher<>"" then
strSQL = strSQL & " and UAVoucher='" & UAVoucher & "' or UAID='" & UAVoucher & "'"
strQuery = strQuery & "&UAVoucher=" & UAVoucher
end if
if TypeCode<>"" then
strSQL = strSQL & " and TypeCode='" & TypeCode & "'"
strQuery = strQuery & "&TypeCode=" & TypeCode
end if
if OtherInfo<>"" then
strSQL = strSQL & " and OtherInfo like '%" & OtherInfo & "%'"
strQuery = strQuery & "&OtherInfo=" & OtherInfo
end if
if UAType<>"" then
strSQL = strSQL & " and UAType='" & UAType & "'"
strQuery = strQuery & "&UAType=" & UAType
end if
if UAStat<>"" then
strSQL = strSQL & " and a.UAStat='" & UAStat & "'"
strQuery = strQuery & "&UAStat=" & UAStat
end if
if CAMoney<>"" then
strSQL = strSQL & " and CAMoney=" & CAMoney & " "
strQuery = strQuery & "&CAMoney=" & CAMoney
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>
</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><font color="<%=Opt_Font_IndexColor%>">
<%
if Trim(Rs("UAVoucher"))="" then
Response.Write Rs("UAID")
else
Response.Write Rs("UAVoucher")
end if
%>
</font></td>
<td><%=ABS(CCur(Rs("UAMoney")))%></td>
<td>
<%
if Rs("UAType")="1" then
Response.Write "后台财务-"
strSQL="Select TypeName from T_DNS_AccountType where TypeCode='" & Rs("TypeCode") & "'"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn,1,1
if Not Rs1.Eof then
Response.Write Rs1("TypeName")
end if
Rs1.Close
Set Rs1=Nothing
elseif Rs("UAType")="2" then
Response.Write "客户订单"
elseif Rs("UAType")="3" then
Response.Write "综合业务"
else
Response.Write "在线充值"
end if
%>
</td>
<td><%=FormatDateTime(Rs("UATime"),vbShortDate)%></td>
<td><%=Rs("OtherInfo")%></td>
<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()"');
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)
{ document.all.meizzYearHead.innerText = yy;
document.all.meizzMonthHead.innerText = mm;
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -