cost_jh_edit.asp

财务预算管理 财务支出

<!--#include file="sysconfig.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
dim id,rs,FoundErr,ErrMsg

id=trim(request("id"))
FoundErr=False
if id="" then 
	response.Redirect("cost_jh.asp")
end if
sql="select * from cost_jh where id=" &id & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if FoundErr=True then
	call WriteErrMsg()
else
%>

<script language = "JavaScript">
function CheckForm()
{
  	if (document.myform.cost_number.value=="")
  {
    alert("预金额不能为空！");
	document.myform.cost_number.focus();
	return false;
  }
  }
</script>
<!-- #include file="Inc/Head.asp" -->
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="610" align="center" class="a2">
	<tr>
		<td class="a1" height="25" align="center"><strong>修 改 预 算</strong></td>
	</tr>
	<tr class="a4">
		<td align="center">
			<form method="POST" name="myform" onSubmit="return CheckForm();" action="cost_jh_Save.asp?action=Modify">
			<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
				<tr align="center">
					<td class="tdbg">
						<table width="100%" border="0" cellpadding="0" cellspacing="2">
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">预 算 ID：</td>
                  <td bgcolor="#E3E3E3"><%=id%>
                    <input name="id" type="hidden" id="id" value="<%=id%>" maxlength="4"></td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">所属情况：</td>
                  <td bgcolor="#E3E3E3"> 
                    <input name="s1" type="hidden" id="s1" value="<%=rs("guikou_id")%>" maxlength="4"> 
                    <%set rsguikou=conn.execute("select * from guikou where id="&rs("guikou_id")&"")%> <%=rsguikou("guikou_name")%> &gt;&gt; 
                    <input name="s2" type="hidden" id="s2" value="<%=rs("danwei_id")%>" maxlength="4">
                    <%set rsdanwei=conn.execute("select * from danwei where id="&rs("danwei_id")&"")%>
                    <%=rsdanwei("danwei_name")%> &gt;&gt; 
                    <input name="s3" type="hidden" id="s3" value="<%=rs("xiangmu_id")%>" maxlength="4">
                    <%set rsxiangmu=conn.execute("select * from xiangmu where id="&rs("xiangmu_id")&"")%> <%=rsxiangmu("xiangmu_name")%></td>
                </tr>
                <tr class="t1"> 
                  <td width="120" height="22" align="right" bgcolor="#C0C0C0">预算编号：</td>
                  <td width="500" bgcolor="#E3E3E3"> 
                    <input name="cost_no" type="text" id="cost_no" value="<%=rs("cost_no")%>" maxlength="50"></td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">预算金额：</td>
                  <td bgcolor="#E3E3E3"> 
                    <input name="cost_number" type="text" id="cost_number" value="<%=rs("cost_number")%>" maxlength="50" onKeypress="if   (event.keyCode   <   46  ||   event.keyCode   >   57 )   event.returnValue   =   false;">
                    <font color="#FF0000">*只允许数字 </font></td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">预算品目：</td>
                  <td bgcolor="#E3E3E3"> 
                    <input name="pinmu" type="text" id="pinmu" value="<%=rs("pinmu")%>" maxlength="50"> 
                  </td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">不是年初：</td>
                  <td bgcolor="#E3E3E3"> 
                    <% if yearless<>1 then%>
                    不 
                    <%else%> <%end if%>
                    是年初数
                    <input name="yearless" type="hidden" id="yearless" value="<%=rs("yearless")%>" maxlength="4"></td>
                </tr>
                <tr class="t1"> 
                  <td height="22" align="right" bgcolor="#C0C0C0">添加人员：</td>
                  <td bgcolor="#E3E3E3"> <%=rs("admin")%>
                    <input name="admin" type="hidden" id="admin" value="<%=Session("username")%>" maxlength="50">
                    修改后会替换为当前操作人员</td>
                </tr>
                <tr class="t1"> 
                  <td width="120" height="22" align="right" bgcolor="#C0C0C0">录入时间：</td>
                  <td width="500" bgcolor="#E3E3E3"> 
                    <input name="UpdateTime" type="text" id="UpdateTime" value="<%=rs("UpdateTime")%>" maxlength="50">
                    当前时间为：<%=now()%> 注意不要改变格式。</td>
                </tr>
              </table>
					</td>
				</tr>
			</table>
				<div align="center"><p>
				<input name="Save" type="submit"  id="Save" value="保存修改结果">
				</p></div>
			</form>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>