📄 caiwu_xyuser.asp
字号:
<!-- #include file="../inc_config.asp" -->
<!-- #include file="LoginCk.asp" -->
<%
Call PopCheck(89)
%>
<html>
<head>
<title>信用额度</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link id="style_sheet" href="css/save.css" type="text/css" rel="stylesheet">
<script language="JavaScript">style_sheet.href = parent.parent.style_sheet.href;</script>
<%=Efs_Cfg_PHeader%>
</head>
<script language="JavaScript" src="js/common_Efang.js"></script>
<body class="NormalPage">
<form id="form_help" action="help_content.asp" method="get" target="working_area">
<input name="help_topic" type="hidden" value="信用额度">
</form>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td id="headerToolBar" valign="middle" nowrap style="width:100%; height:22px;"><table cellpadding="0" cellspacing="0" class="HeaderPageControl">
<tr>
<td align="left" valign="middle" nowrap height="20">财务管理>> 财务操作 >> <b></b><b></b><b>信用额度</b></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="100%" nowrap height="20"></td>
<td align="center" valign="middle" nowrap width="10" height="20"></td>
<td align="right" valign="middle" width="60" nowrap height="20"><img id="id_back" alt="返回上一页" onclick="JavaScript:history.back()" onmouseover="JavaScript:this.src=imgBackUp.src" onmouseout="JavaScript:this.src=imgBackDown.src" src="images/toolbar_back.gif" border="0" style="cursor:hand;width:22px; height:20px;"><img id="id_refresh" alt="刷新" onclick="JavaScript:fn_Refresh()" onmouseover="JavaScript:this.src=imgRefreshUp.src" onmouseout="JavaScript:this.src=imgRefreshDown.src" src="images/toolbar_refresh.gif" border="0" style="cursor:hand;width:22px; height:20px;"></td>
<td align="right" valign="middle" width="25" nowrap height="20"><img src="images/toolbar_help.gif" alt="帮助" width="43" height="20" border="0" id="id_locate" style="cursor:hand;width:22px; height:20px;" onclick="JavaScript:fn_ShowHelp()" onmouseover="JavaScript:this.src=imgHelpUp.src" onmouseout="JavaScript:this.src=imgHelpDown.src"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<div id="viewPanel" style="visibility:visible; position:absolute; overflow:auto;">
<br>
<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0" class="datalist">
<tr align="right">
<td height="30" class="DataGroup"><a href="CaiWu_Add.asp" class=commonface>入款扣款</a> | <a href="CaiWu_ArrUser.asp" class=commonface >欠款会员</a> | <a href="CaiWu_YufuUser.asp" class=commonface >预付会员</a> | <a href="CaiWu_XYUser.asp" class=commonface>信用额度</a> </td>
</tr>
</table><br>
<table width="85%" border="0" align="center" cellPadding="0" cellSpacing="0" class="datalist">
<th width="41" align="center" nowrap class="DataListHeader">序号</th>
<th width="80" height="25" align="center" nowrap class="DataListHeader">会员帐号</th>
<th width="209" height="25" align="center" nowrap class="DataListHeader">单位名称/姓名</th>
<th width="79" align="center" nowrap class="DataListHeader">服务专员</th>
<th width="66" height="25" align="center" nowrap class="DataListHeader">帐户余额</th>
<th width="62" align="center" nowrap class="DataListHeader">信用额度</th>
</tr>
<%
Set LData=Conn.Query("EfangUser","User_Arr > 0 Order By User_Arr Desc")
Do while not (LData.EOF or LData.BOF)
%>
<tr>
<td width="41" align="center" nowrap class="DataListGrid">
<%
Xu = Xu + 1
Response.Write Xu
%> </td>
<td width="80" height="25" align="center" nowrap class="DataListGrid"><a href=User_Upd.asp?User=<%=LData("User_User")%>>
<%=LData("User_User")%></a></td>
<td width="209" align="center" nowrap class="DataListGrid"><%=Efang.GBLeft(LData("User_Unit"),20)%></td>
<td width="79" align="center" nowrap class="DataListGrid"> <a href=SysUser_Upd.asp?Admin_User=<%=LData("User_WUser")%>><%=LData("User_WUser")%></a></td>
<td width="66" align="center" nowrap class="DataListGrid"><%=FormatNumber(LData("User_Yufu"),2,True,False,False)%></td>
<td width="62" align="center" nowrap class="DataListGrid">
<%
Response.Write FormatNumber(LData("User_Arr"),2,True,False,False)
TmTotal = TmTotal + LData("User_Arr")
%> </td>
</tr>
<%
LData.movenext
Loop
Set LData=Nothing
%>
<tr bgcolor="#FFFFFF" style="#ffffff">
<td height="25" colspan="5" align="right">给予信用额 - 合计：</td>
<td align="center"> <%
Response.Write FormatNumber(TmTotal,2,True,False,False)
%> </td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<% Call ExitEnd(False) %>
</body>
<script language="JavaScript">
<!--
document.parentWindow.onresize = fn_RejustViewPanel ;
fn_RejustViewPanel ( ) ;
//alert ( document.body.clientWidth + ":" + viewPanel.clientWidth ) ;
//-->
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -