📄 financeadd.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%
Public HOME_PATH:HOME_PATH = "../"
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%Public title:title = "财务录入"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title><%
if isLogin = false then
Response.Write viewinfo("LoginC","","")
Response.end
end if
indexDate = SELVAR("thisDate"," ")
%><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<style>
html{min-width: 776px;}
fieldset {padding:3px;}
</style>
<script type = 'text/javascript'>
<!--
rv = Array("returnValue","parent.right") ;
window.returnValue = rv[1] ;
var supplier_ = null ;
function Opensupplier(sel) {
supplier_ = window.showModalDialog('../supplier/selectsupplierlist.asp?identifyCode='+sel,'','dialogWidth:780px;dialogHeight:400px;scroll:yes;help:no;status:no;center:yes;edge:raised;');
if (supplier_!=null) {
document.form.supplierCode.value = supplier_[0];
document.form.supplierid.value = supplier_[1];
document.form.TrunName_Phone.value = supplier_[2] + " " + supplier_[3] + " " + supplier_[4];
}
}
//-->
</script>
<base target = '_self'>
</head>
<body style = 'border-style:none;margin:5px;background-color:buttonface;'>
<div style = 'text-align:center;'>
<table border = '1' style = 'width:100%;height:auto;' cellspacing = '0' cellpadding = '2' borderColorLight='#848284' borderColorDark='#eeeeee'>
<form method='post' action="" name = 'form'>
<input name = 'Options' type = 'hidden'/>
<tr>
<td style = 'width:20%;text-align:right;'>名称：</td>
<td><input type = 'text' style = 'width:150px;' name = 'fName'/>
</td>
</tr>
<tr>
<td style = 'width:20%;text-align:right;'>类别：</td>
<td>
<%
SQL = "select * from incfinancetype Order by ftypeArray Desc"
Response.Write financeType_(SQL,"ftypeid","",isNumber(RfinanceType,"int",0))
%> 所属：<select name = 'inorout' onchange = "javascript:if(this.value=='0'){inout1.innerHTML='<span style = \'color:red;\'>付款</span>';inout2.innerHTML='<input type =\'text\' style = \'width:38px;border-right:solid 0px #fff;\' name = \'supplierCode\'/><input type = \'button\' value = \'…\' style = \'border-left:solid 0px #fff;color:red;\' onclick = \'javascript:Opensupplier(1);\'><input type = \'text\' style = \'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;\' name = \'TrunName_Phone\'/>';}if(this.value=='1'){inout1.innerHTML='<span style = \'color:blue;\'>收款</span>';inout2.innerHTML='<input type =\'text\' style = \'width:38px;border-right:solid 0px #fff;\' name = \'supplierCode\'/><input type = \'button\' value = \'…\' style = \'border-left:solid 0px #fff;color:blue;\' onclick = \'javascript:Opensupplier(0);\'><input type = \'text\' style = \'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;\' name = \'TrunName_Phone\'/>';}">
<option value = '0'>支出</option>
<option value = '1' selected = 'true'>收入</option>
</select></td>
</tr>
<tr>
<td style = 'width:20%;text-align:right;'>时间：</td>
<td><input type = 'text' style = 'width:150px;' name = 'thisDate' value = '<%=indexDate%>' onfocus="setday(this)" maxlength="10" readonly = 'true'/>
</td>
</tr>
<tr>
<td style = 'width:20%;text-align:right;' id = 'inout1'><span style = 'color:blue;'>收款</span></td>
<td id = 'inout2'><input type ='text' style = 'width:38px;border-right:solid 0px #fff;' name = 'supplierCode'/><input type = 'button' value = '…' style = 'border-left:solid 0px #fff;color:blue;' onclick = "javascript:Opensupplier(0);"><input type = 'text' style = 'border-style:none; border-bottom:1px solid #000;width:150px;background-color:transparent;' name = 'TrunName_Phone'/>
</td>
</tr>
<tr>
<td style ='text-align:right;'>金额：</td>
<td><input type = 'text' style = 'width:150px;' name = 'fMoney' onkeyup = "javascript:var FM = this.value ; if(isNaN(FM)) { this.value='';}"/></td>
<input type = 'hidden' name = 'supplierid' value = ''/>
</tr>
<tr>
<td style ='text-align:right;'>备注：</td>
<td><textarea name="fRemark" style = 'width:100%;height:110px;'></textarea></td>
</tr>
<tr>
<td colspan = '2' style = 'text-align:center;'>
<input type="submit" value = ' 确定 ' onclick = "javascript:var FM = form.fMoney.value ; if(replace_(FM,' ','')==''){alert('请输入金额！ ');form.fMoney.focus();return false;}else{form.Options.value = 'Add';}"/><input type="reset" value = ' 重置 '/><input type="button" value = ' 关闭 ' onclick = "javascript:window.close();"/>
</td>
</tr>
</form>
</table>
<%
Options = trim(Request.Form("Options"))
if Options = "Add" then
ftypeid_ = GetText("ftypeid","P","number",1,10,0)'
ftypeid_ = SelectZD("select ftypeid from incfinancetype where ftypeid = " & ftypeid_ & "",0)
if ftypeid_ = 0 then
Response.Write viewinfo("alertBack","请选好类别！","")
Response.end
end if
thisDate = trim(Request.form("thisDate"))
if not isDate(thisDate) then thisDate = indexDate
SQL = "select * from incfinance where (financeid is null)"
Rs.Open(SQL),Conn,1,3
Rs.addnew
Rs("fName") = htmlencode(GetText("fName","P","Str",1,255,"none"),"Y")'名称
Rs("ftypeid") = ftypeid_
Rs("fMoney") = GetText("fMoney","P","number",1,10,0)'金额
Rs("fRemark") = htmlencode(GetText("fRemark","P","Str",1,1000,"none"),"Y")'备注
Rs("thisDate") = thisDate
Rs("aid") = Seuid_inc
Rs("intotime") = now
Rs("inorout") = GetText("inorout","P","number",1,2,0)
Rs("supplierid") = GetText("supplierid","P","number",1,10,0)
Response.Write viewinfo("alertClose","添加成功！",SELVAR("FN",""))
Rs.update
Rs.Close
end if
ConnClose()
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -