mfund.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F303"
session("title")="会员到款记帐"
session("headline")="首页 -> 注册系统 -> 会员到款记帐"
%>
<!--#include file="../inc/head2.asp"-->

<%
if request("act")="update" then
	call update()
else
	call list()
end if

sub update()
username=request("username")
direction=request("direction")
billno=request("billno")
amount=ccur(request("amount"))
remark=request("remark")

if username=""  then
	session("mesg")="用户名不能为空"
	Response.Redirect "../result.asp"
end if

if username=  session("username")then
	session("mesg")="不能对自已进行财务处理"
	'Response.Redirect "../result.asp"
end if

set rs= conn.execute("select * from [user] where username='" & username & "' and manageuser='" & session("username") & "'")
if rs.eof then
	session("mesg")="该用户不是你管理的用户"
	Response.Redirect "../result.asp"
end if
rs.close

ret = FunManage(direction,username,amount, billno, remark, ErrMsg)
'ret = MFunHandle(direction, username, session("username"), amount, billno, remark, ErrMsg)

if ret = "0" then
	session("mesg")="为客户["&username&"]做["&direction&"]["&amount&"]成功"
else
	session("mesg")="为客户["&username&"]做["&direction&"]["&amount&"]失败：" & ErrMsg
end if
Response.Redirect "../result.asp"

end sub


sub list()
%>
<script language='JavaScript'>
<!--
function check_input()
{

	if(document.inputdata.username.value=='')
	{
		alert('用户名不能为空');
		document.inputdata.username.focus();
		return false;
	}
	if(document.inputdata.billno.value=='')
	{
		alert('记账编号不能为空');
		document.inputdata.billno.focus();
		return false;
	}
	if(isNaN(document.inputdata.amount.value))
	{
		alert('记帐金额只能为数字');
		document.inputdata.amount.focus();
		return false;
	} 
        if(document.inputdata.remark.value=='')
	{
		alert('备注不能为空');
		document.inputdata.remark.focus();
		return false;
	}
}
//-->
</script>      

 		   
		   
		   
		   <br><br><br>
           
            <form method="POST" action="mfund.asp?act=update" name='inputdata' onsubmit='return check_input()'>
             
               
              <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=50% class="size09" align="center">
	 		 
	   <tr bgcolor="#efefef"> 
                  <td colspan="2" height="32" class='color01'> 
                    <div align="center">
                     帐务处理
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">用 户 名</div>
                  </td>
                  <td width="71%"> 
                    <input type="text" name="username" size="20" class="form">
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">记帐摘要</div>
                  </td>
                  <td width="71%"> 
                     <select size="1" name="direction" class="form">
                      <option value="真实入帐" selected>真实入帐</option>
                      <option value="真实扣帐">真实扣帐</option>
					  <option value="借款入帐">借款入帐</option>
                      <option value="借款扣帐">借款扣帐</option>
					  <option value="帐户冻结">帐户冻结</option>
                      <option value="帐户解冻">帐户解冻</option>
					  <option value="业务扣帐">业务扣帐</option>
                      <option value="业务退帐">业务退帐</option>
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">记帐编号</div>
                  </td>
                  <td width="71%"> 
                    <input type="text" name="billno" size="20" class="form">
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">记帐金额</div>
                  </td>
                  <td width="71%"> 
                    <input name="amount" size="20" class="form">
                  </td>
                </tr>
                <tr> 
                  <td width="30%" bgcolor="#efefef" height="32"> 
                    <div align="center">备&nbsp;&nbsp;&nbsp;&nbsp;注</div>
                  </td>
                  <td width="71%"> 
                    <input type="text" name="remark" size="20" class="form">
                  </td>
                </tr>
                <tr bgcolor="#efefef"> 
                  <td colspan="2" height="32"> 
                    <div align="center">
                      <input type="submit" value="确  定" name="B1" style="text-align: center">
                    </div>
                  </td>
                </tr>
              </table>
              <br>
              <br>
 <br><img src='../images/dotdb.gif' width='10' height='10'> 
 帐务处理操作说明：<br>
 真实入帐：客户汇款后，做真实入帐，该操作增加客户余额，如果有欠款，先冲平客户欠款。<br>
 真实扣帐：给客户汇款后，做真实扣帐，该操作减少客户余额。<br>
 借款入帐：给客户借款的操作，该操作增加客户余额，同时增加客户欠款额。<br>
 借款扣帐：借款入帐的反过程，该操作减少客户欠款，同时减少客户余额。<br>
 帐户冻结：冻结客户帐户，使客户的可用余额减少。该操作增加客户的冻结金额。<br>
 帐户解冻：解冻客户帐户，使客户的可用余额增加。该操作减少客户的冻结金额。<br>
 业务扣帐：开通业务后，手工对客户帐户扣款，以纠正自动扣款的偏差。该操作减少客户余额。<br>
 业务退帐：开通业务后，手工对客户帐户扣款，以纠正自动扣款的偏差。该操作增加客户余额。<br>
 自动扣款：业务开通时，系统自动对客户帐户扣款。该操作增加客户余额。<br>            
              <p align="center">&nbsp; </p>
            </form>
			
<%end sub%>			
<!--#include file="../inc/bottom2.asp"-->