📄 edit.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<head>
<title>固定资产</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include File=../inc/css.asp -->
<% '定义变量
dim opFlag,Number,selectlist,temp,title,image
'获取输入参数:记录号和操作标志
opFlag=request("opFlag")
if opFlag="" then opFlag="cmdAddNew"
Number=request("Number")
if Number="" then Number="0"
on error resume next
'创建记录访问对象
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select DISTINCT vtype from gdzc",Session("conn"),1,1
selectlist=""
while not rs.eof
selectlist=selectlist & "<option value='" & rs("vtype") & "'>" & rs("vtype") & "</option>"
rs.movenext
wend
rs.close
'打开记录源,并定位到输入参数决定的记录号
if opFlag="cmdEdit" then
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
temp=rs("vregtime")
fromYear=left(temp,4)
fromMonth=mid(temp,6,2)
fromDay=mid(temp,9,2)
end if
select case opFlag
case "cmdAddNew"
image="../images/gdzc.gif"
title="新资产登记"
case "cmdEdit"
title="固定资产信息维护"
image="../images/gdzc.gif"
end select
%>
<style>
.css0{<%=Session("vinputtext")%>;border:none;}
</style>
<script language=JavaScript>
//读取表内字符串信息
function ds(sstr)
{
var dstr="";
for (i=0;i<sstr.length;i++)
{ if (sstr.charAt(i)!=' ') dstr+=sstr.charAt(i);
}
return dstr;
}
//数据参数传递
//判断用户输入信息的正确性
function getit()
{
CountTime();
if (ds(document.submitinput.vtype.value)=="")
{
alert("对不起，资产类型不允许为空！");
document.submitinput.vtype.focus();
return false;
}
if (ds(document.submitinput.vname.value)=="")
{
alert("对不起，资产名称不允许为空！");
document.submitinput.vname.focus();
return false;
}
if (document.submitinput.vname.value.length>255)
{
alert("对不起，您输入的资产名称超过最大限制，请重新输入！");
document.submitinput.vname.focus();
return false;
}
if (ds(document.submitinput.vnumber.value)=="")
{
alert("对不起，资产编号不允许为空！");
document.submitinput.vnumber.focus();
return false;
}
if (document.submitinput.vnumber.value.length>50)
{
alert("对不起，请输入不超过50个字符的资产编号！");
document.submitinput.vnumber.focus();
return false;
}
if (ds(document.submitinput.vtype.value)=="")
{
alert("对不起，资产类型不允许为空！");
document.submitinput.vtype.focus();
return false;
}
if (document.submitinput.vtype.value.length>255)
{
alert("对不起，您输入的资产类型名称太长，请重新输入！");
document.submitinput.vtype.focus();
return false;
}
if (ds(document.submitinput.vcount.value)=="")
{
alert("对不起，资产数量不允许为空！");
document.submitinput.vcount.focus();
return false;
}
if (document.submitinput.vcount.value.length>6)
{
alert("对不起，你输入的固定资产数量不符合实际值，请重新输入！");
document.submitinput.vcount.focus();
return false;
}
if (ds(document.submitinput.vmoney.value)=="")
{
alert("对不起，资产价格不允许为空！");
document.submitinput.vmoney.focus();
return false;
}
if (document.submitinput.vmoney.value.length>15)
{
alert("对不起，您输入的固定资产价格不符合实际，请重新输入");
document.submitinput.vmoney.focus();
return false;
}
rphtml('vname','vtype','vinfo');
if (ds(document.submitinput.vzjl.value)=="")
{
var firm=confirm("折旧率为空时，您将看不到资产的折旧、效益、目前价值等有用信息，要填写吗？");
if (firm)
{document.submitinput.vzjl.focus();
return false;
}
}
MM_validateForm('vcount','','RisNum','vzjl','','NinRange0:100');
if(document.MM_returnValue)
{
document.submitinput.submit();
};
return false;
document.all.submitinput.submit();
}
</script>
</head>
<body onLoad="document.submitinput.vtype.focus();">
<form name="submitinput" action="save.asp?opFlag=<%=opFlag%>&Number=<%=Number%>" method="post" onSubmit="MM_validateForm('vtype','','R','vname','','R','vnumber','','R','vcount','','R','vmoney','','RisNum','vzj','','R','vxiyi','','R','vzjl','','RinRange0:100','vmqjz','','R');return document.MM_returnValue" >
<!-- #include file="../inc/title.asp" -->
<table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
<tr bgcolor="<%=Session("vtabletitlebackcolor")%>">
<td width="120" align="right" height="25">类型(T):</td>
<td bgcolor="<%=Session("vtabletitlebackcolor")%>" colspan="3" >
<p align=left>
<input id="类型" size=31 name=vtype class=css0 style="width=60%;filter:chroma(color=#ffffff);" value="<%=rs("vtype")%>" accesskey="t" onKeyDown=gonext("vname") >
<% if opFlag<>"cmdEdit" then %>
<select name="selectlist" style="width:38%" onChange="setvalue(this.name,'vtype');document.submitinput.vname.focus();">
<option>----请选择----</option>
<%=selectlist%>
</select>
<%end if%>
</p>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="25">名称(N):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<input id="名称" size=20 name=vname class=css0 style="width=100%" value="<%=rs("vname")%>" accesskey="n" onKeyDown=gonext("vnumber")>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="25">编号(B):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<input id="名称" size=20 name=vnumber class=css0 style="width=100%" value="<%=rs("vnumber")%>" accesskey="b" onKeyDown=gonext("vcount") >
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="25">数量(C):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<input id="数量" size=20 name=vcount class=css0 style="width=100%" value="<%=rs("vcount")%>" accesskey="c" onKeyDown=gonext("vmoney") onKeyPress=checkkey()>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="25">购买价格(P):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<input id="购买价格" size=20 name=vmoney class=css0 style="width=100%" value="<%=rs("vmoney")%>" accesskey="p" onKeyPress=checkkey() onKeyDown=gonext("fromYear")>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="25">购买时间(D):</td>
<td bgcolor=<%=Session("vcolcolor")%> width="329" >
<p align=left>
<select size=1 name=fromYear accesskey="d" onKeyDown=gonext("vxiyi")>
<option value="<%=fromYear%>" selected><%=fromYear%></option>
<script language=javascript>
function CountTime()
{ //计算计划起止日期脚本
var t= document.all.submitinput.fromYear.value +'-';
t=t + document.all.submitinput.fromMonth.value + '-';
t=t + document.all.submitinput.fromDay.value
document.all.submitinput.vregtime.value=t;
}
for(i=1940;i<2050;i++)
{
document.write("<option value="+i+">"+i+"</option>");
}
</script>
</select>
年
<select size=1 name=fromMonth>
<option value="<%=fromMonth%>" selected><%=fromMonth%></option>
<script language=javascript>
for(i=1;i<13;i++)
{
t=i.toString()
if( i<10 ) t="0" + t
document.write("<option value="+ t+">"+ t + "</option>");
}
</script>
</select>
月
<select class=p9 size=1 name=fromDay>
<option value="<%=fromDay%>" selected><%=fromDay%></option>
<script language=javascript>
for(i=1;i<32;i++)
{
t=i.toString()
if( i<10 ) t="0" + t
document.write("<option value="+ t+">"+ t + "</option>");
}
</script>
</select>
日
<input type=hidden id="购买时间" size=20 name=vregtime class=css0 style="width=100%" value="<%=rs("vregtime")%>" >
</p>
</td>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="200" align="left" >产生的效益(Y):</td>
<td bgcolor=<%=Session("vcolcolor")%> width="272" >
<input id="购买价格" size=20 name=vxiyi class=css0 style="width=100%" value="<%=rs("vxiyi")%>" accesskey="y" onKeyPress=checkkey() onKeyDown=gonext("vzjl")>
</td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="25">年折旧率(U):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<input id="折旧率" size=4 name=vzjl class=css0 value="<%=rs("vzjl")%>" accesskey="u" onKeyPress=checkkey() onKeyDown=gonext("vinfo")>
% </td>
</tr>
<tr>
<td bgcolor=<%=Session("vtabletitlebackcolor")%> width="120" align="right" height="120">备注(M):</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan="3" >
<textarea id="备注" cols="50" name="vinfo" class="css0" style="width=100%;height=100%" accesskey="m" ><%=rs("vinfo")%></textarea>
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width=90% border=0 align="center">
<tr>
<td align="center">
<p> <br>
<button class=vinputbutton style="height=24" onClick="getit();"><img src="../images/save.gif" align="absmiddle"> 保存</button>
<button class=vinputbutton style="height=24" onClick=javascript:history.go(-1); name=chongxie><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</td>
</tr>
</table>
</form>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -