📄 dx_money_got.asp

📁 功能介绍： 1、产品入库
💻 ASP
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Dx_admin_check.asp"-->
<%
if request.Form.count>0 then
dx_money_bank=request.Form("dx_money_bank")
dx_money_num=request.Form("dx_money_num")
dx_money_type=request.Form("dx_money_type")
if len(dx_money_bank)=0 then
call showerr("请选择银行卡号！","1")
end if
if len(dx_money_type)=0 then
call showerr("您还没选择是存钱还是取钱","1")
end if
if len(dx_money_num)=0 then
call showerr("请输入变动金额的数量","1")
end if
sqlstr="select * from [dx_money]"
rs.open sqlstr,conn,1,3
rs.addnew
if dx_money_type=1  then
rs("dx_money_num")=-cdbl(dx_money_num)
rs("dx_money_bank")=dx_money_bank
rs("dx_money_user")=session("Dx_Admin")
rs("dx_money_time")=now()
else
rs("dx_money_num")=cdbl(dx_money_num)
rs("dx_money_bank")=dx_money_bank
rs("dx_money_user")=session("Dx_Admin")
rs("dx_money_time")=now()
end if
rs.update
rs.close
sqlstr="select * from [dx_bank] where dx_bank_num='"& dx_money_bank &"'"

rs.open sqlstr,conn,1,3
if not rs.eof then
if dx_money_type=1  then
if cdbl(dx_money_num)>rs("dx_bank_money") then
call showerr("银行资金不够！","1")
end if
rs("dx_bank_money")=rs("dx_bank_money")-cdbl(dx_money_num)
else
rs("dx_bank_money")=rs("dx_bank_money")+cdbl(dx_money_num)
end if
rs.update 
end if
rs.close
sqlstr="select * from [dx_site]"
rs.open sqlstr,conn,1,3
if not rs.eof then
if dx_money_type=1  then
rs("dx_site_money")=rs("dx_site_money")+cdbl(dx_money_num)
else
if cdbl(dx_money_num)>rs("dx_site_money") then
call showerr("资产资金不够！","1")
end if
rs("dx_site_money")=rs("dx_site_money")-cdbl(dx_money_num)
end if
rs.update 
end if
rs.close
call showerr("操作成功！","dx_bank.asp")
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>存钱/取钱</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Css/style.css" rel="stylesheet" type="text/css">
<style>
body {
	background-color:#FFFFFF;
}
</style>
</HEAD>

<BODY>
<%
if session("Dx_Admin")="" then
%>
<br><center><img src="Images/note.gif" align="absmiddle">&nbsp;<font color="#FF0000">你不具备此权限，请与管理员联系！</font></center>
<%  
  response.end
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td><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>&nbsp;存取钱</td>
	  <td align="right">&nbsp;</td>
    </tr>
  </table>
</td>
<td><img src="Images/r_2.gif" alt="" /></td>
</tr>
<tr>
<td></td>
<td>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
	  <form name="form1" method="post" >
      <tr>
        <td width="20%" align="right" height="30">选择卡号：</td>
        <td class="category">&nbsp;
		<%
	  sqlstr="select * from [dx_bank]"
	  rs.open sqlstr,conn,1,1
	  
	  %>
		<select name="dx_money_bank">
		<option value="">--请选择--</option>
		 <%
		if not rs.eof then
			while not rs.eof
		 %>
		 <option value="<%=rs("dx_bank_num")%>"><%=rs("dx_bank_num")%>---<%=rs("dx_bank_bank")%>---</option>
		 <%
		 	rs.movenext
		 	wend
	  	end if
	  	rs.close
	  	%>
	  </select>
	  &nbsp;&nbsp;</td>
        </tr>	  
	  <tr>
        <td align="right" height="30">存钱/取钱：</td>
        <td class="category">&nbsp;
		  <select name="dx_money_type">
		    <option value="">--请选择--</option>
		    <option value="1">取钱</option>
			 <option value="2">存钱</option>
		  </select></td>
      </tr>
	  <tr>
	    <td align="right" height="30">金额：</td>
	    <td class="category">&nbsp;
		<input name="dx_money_num" type="text" onKeyUp="if(isNaN(value))execCommand('undo')" onafterpaste="if(isNaN(value))execCommand('undo')"></td>
	  </tr>    
      <tr>
	    <td height="30">&nbsp;</td>
        <td class="category">
		  <input type="submit" value=" 提交确认" onClick="return check1()" class="button">
		  <input type="reset" value=" 重新填写 " class="button">		  </td>
      </tr>
	  </form>
</table>
</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>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -