📄 alteredit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑固定资产变更信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.asid.selectedIndex<0){
   alert("请选择固定资产信息！");
   form1.asid.focus;
   return false;
  } 
  if (document.form1.type.selectedIndex<0){
   alert("请选择变更方式！");
   form1.type.focus;
   return false;
  } 
  if (document.form1.adate.value==""){
   alert("请输入变更日期！");
   form1.adate.focus;
   return false;
  } 
  if (document.form1.asum.value==""){
   alert("请输入变更金额！");
   form1.asum.focus;
   return false;
  } 
  if (document.form1.reason.value==""){
   alert("请输入变更原因！");
   form1.reason.focus;
   return false;
  } 
  return true;
}
</Script>
</head>
<%
  Dim AltId,AId,TypeId,ADate,ASum,Reason,PostDate,sqld
  Dim Action,rs
  ADate = Date()
  ASum = 0
  PostDate = Date()
  '读取参数action\aid
  Action = Request.QueryString("action")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '编辑记录
  If Action = "edit" Then
    AltId = Request.QueryString("aid")  
    '设置SELECT语句，读取记录数据
    sql = "SELECT t.*,t1.TypeName,a.* FROM AssetsAlter t INNER JOIN AssetsInfo a ON t.AId=a.AId" _
	   + " INNER JOIN Types t1 ON t1.TypeId=t.AltTypeId Where t.AltId=" & AltId
    rs.Open sql,conn,1,3
    If Not rs.EOF Then
      AId = rs("AId") 
      TypeId = rs("AltTypeId")
      ADate = rs("AltDate")  
      ASum = rs("AltSum")
      Reason = rs("Reason")
      PostDate = rs("PostDate")
      rs.Close()
    End If
  End If
%>

<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="AlterSave.asp?action=<%=Action%>&aid=<%=AltId%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" background="pic/alter.jpg" height="90" width="100%">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">固定资产变更信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">资产编号</td>
      <td colspan="3">
<select size="1" name="asid">
   <%sql = "Select * From AssetsInfo Where Flag=1 Or Flag=3 ORDER BY AId" 
     rs.Open sql,conn,1,1
     Do While Not rs.EOF
       If rs("AId")=AId Then %>
    <option selected value="<%=rs("AId")%>"><%=rs("AName")%></option>
     <%Else%>
    <option value="<%=rs("AId")%>"><%=rs("AName")%></option>
     <%End If
       rs.MoveNext()
     Loop
     rs.Close()%>
</select>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">变更日期</td>
      <td><input type="text" name="adate" size="20" value="<%=ADate%>">&nbsp;</td>
      <td bgcolor="#CEE7FF">变更方式</td>
      <td>
<select size="1" name="type">
   <%sql = "Select * From Types Where Flag=14 ORDER BY TypeId" 
     rs.Open sql,conn,1,1
     Do While Not rs.EOF
       If rs("TypeId")=TypeId Then%>
    <option selected value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
     <%Else%>
    <option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
     <%End If
       rs.MoveNext()
     Loop
     rs.Close()%>
</select>&nbsp;</td>
   </tr>
    <tr>
      <td bgcolor="#CEE7FF">变更原因</td>
      <td colspan="3"><textarea rows="4" name="reason" cols="58"><%=Reason%></textarea>&nbsp;</td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">变更金额</td>
      <td width="40%"><input type="text" name="asum" size="20" value="<%=ASum%>">&nbsp;</td>
      <td width="20%" bgcolor="#CEE7FF">提交日期</td>
      <td width="40%"><%=PostDate%>&nbsp;</td>
   </tr>
  </table>
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明

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