📄 dx_money_refund.asp
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Dx_admin_check.asp"-->
<html>
<head>
<title>银行资金出入表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function preview() {
bdhtml=window.document.body.innerHTML;
sprnstr="<!--startprint-->";
eprnstr="<!--endprint-->";
prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17);
prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr));
window.document.body.innerHTML=prnhtml;
window.print();
window.document.body.innerHTML=bdhtml;
}
</script>
<style>
body {
background-color:#FFFFFF;
}
body,td,th {
font-size: 12px;
}
</style>
</HEAD>
<BODY>
<%
if session("Dx_Admin")="" then
%>
<br><center><img src="images/note.gif" align="absmiddle"> <font color="#FF0000">你不具备此权限，请与管理员联系！</font></center>
<%
response.end
end if
%>
<%
money_num = request.QueryString("money_num")
Sdate = request.QueryString("Sdate")
money_bank = request.QueryString("money_bank")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="2" align="center">
<form name="form2">
<tr>
<td width="5%" height="21"> <img src="Images/print.jpg" align="absmiddle" style="cursor:hand;" onClick="preview();window.close()"></td>
<td width="95%" align="right">
<select name="money_num" onChange="javascript:location.href='?money_num='+this.options[this.selectedIndex].value">
<option value="" <%if money_num="" then%>selected="selected"<%end if%>>所有</option>
<option value="1" <%if money_num="1" then%>selected="selected"<%end if%>>存钱</option>
<option value="2" <%if money_num="2" then%>selected="selected"<%end if%>>取钱</option>
</select>
<select name="money_bank" onChange="javascript:location.href='?money_bank='+this.options[this.selectedIndex].value">
<%
sql="select distinct dx_money_bank from [dx_money]"
rs.open sql,conn,1,1
if not rs.eof then
response.Write("<option value=''>帐号</option>")
while not rs.eof
if money_bank=rs("dx_money_bank") then
selected="selected='selected'"
end if
response.Write("<option "&selected&" value='"&rs("dx_money_bank")&"'>"&rs("dx_money_bank")&"</option>")
rs.movenext
wend
else
response.Write("<option value=''>暂无记录</option>")
end if
rs.close
%>
</select>
<select name="Sdate" onChange="javascript:location.href='?Sdate='+this.options[this.selectedIndex].value">
<%
sql="select distinct DateValue(dx_money_time) as a from [dx_money]"
rs.open sql,conn,1,1
if not rs.eof then
response.Write("<option value=''>时间</option>")
while not rs.eof
if Sdate=rs("a") then
selected="selected='selected'"
end if
response.Write("<option "&selected&" value='"&rs("a")&"'>"&rs("a")&"</option>")
rs.movenext
wend
else
response.Write("<option value=''>暂无记录</option>")
end if
rs.close
%>
</select>
<input type="submit" value="查询" class="button">
</td>
</tr>
</form>
</table>
<form name="form1" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td height="27"><img src="Images/r_1.gif" alt="" /></td>
<td width="100%" background="Images/r_0.gif">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="55%" height="24" > 银行资金出入表</td>
<td width="25%" ></td>
<td width="20%" align="center" style="padding-top:2px;">
<input type="button" value="我要存（取）钱" onClick="javascript:location.href='dx_money_got.asp'">
</td>
</tr>
</table></td>
<td><img src="Images/r_2.gif" alt="" /></td>
</tr>
<tr>
<td></td>
<td><!--startprint-->
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<tr align="center">
<td width="35%" height="30" class="category">银行卡编号</td>
<td width="16%" class="category">银行卡所属银行</td>
<td width="17%" class="category">变动金额</td>
<%
if money_num="" then
aa="存（取）款"
elseif money_num=1 then
aa="存款"
else
aa="取款"
end if
%>
<td width="20%" class="category"><%=aa%>时间</td>
<td width="12%" class="category"><%=aa%>人</td>
<%
sqlstr="select * from [dx_money] where dx_money_id<>0 and "
if money_num="1" then
sqlstr=sqlstr&"dx_money_num>0 and "
elseif money_num="2" then
sqlstr=sqlstr&"dx_money_num<0 and "
end if
if Sdate<>"" then
sqlstr=sqlstr&"dx_money_time < #"&Sdate&"# and "
end if
if money_bank<>"" then
sqlstr=sqlstr&"dx_money_bank='"&money_bank&"' and "
end if
sqlstr=left(sqlstr,len(sqlstr)-4)
sqlstr=sqlstr&"order by dx_money_id desc"
rs.open sqlstr,conn,1,1
if not rs.eof then
article_size=9
rs.pagesize=article_size
page_now=1
if trim(request.QueryString("page"))<>"" then
page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
page_now=1
end if
rs.absolutepage=page_now
i=1
%>
<% while (not rs.eof) and i<article_size+1%>
</tr>
<tr onMouseOver="this.className='highlight'" onMouseOut="this.className=''">
<td height="25" align="center"><%=rs("dx_money_bank")%></td>
<%
sql="select * from [dx_bank] where dx_bank_num='" & rs("dx_money_bank") &"'"
rst.open sql,conn,1,1
if not rs.eof then
%>
<td height="25" align="center"><%=rst("dx_bank_bank")%></td>
<%
else
response.Write("<td height='25' align='center'>错误!银行不对应!</td>")
end if
rst.close
%>
<td align="center"><%=rs("dx_money_num")%></td>
<td align="center"><%=rs("dx_money_time")%></td>
<td align="center"><%=rs("dx_money_user")%></td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr>
<td height="30" colspan="7" align="center" class="category"> <%if page_now=1 then%>
第一页
<%else%>
<a href="dx_money_refund.asp?money_num=<%=money_num%>&page=1" class="STYLE7">第一页</a>
<%end if%>
<%if page_now>1 and rs.pagecount>1 then%>
<a href="dx_money_refund.asp?money_num=<%=money_num%>&page=<%=page_now-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%if page_now<rs.pagecount then%>
<a href="dx_money_refund.asp?money_num=<%=money_num%>&page=<%=page_now+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if page_now<>rs.pagecount then%>
<a href="dx_money_refund.asp?money_num=<%=money_num%>&page=<%=rs.pagecount%>">尾页</a>
<%else%>
尾页
<%end if%>
当前第<%=page_now%>页 <%=article_size%>条/页 共<%=rs.pagecount%>页 转到<input name="Num" type="text" size="2"> 页
<input type="button" value="GO" class="class6" onClick="javascript:location.href='dx_money_refund.asp?money_num=<%=money_num%>&page='+Num.value;"></td>
</tr>
<%
else
%>
<tr class="category">
<td colspan="7" align="center"><strong style="color:#FF0000">没找到记录</strong></td>
</tr>
<%
end if
rs.close
%>
</table><!--endprint-->
</td>
<td></td>
</tr>
<tr>
<td><img src="images/r_4.gif" alt="" /></td>
<td></td>
<td><img src="images/r_3.gif" alt=""/></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -