📄 assignedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>编辑固定资产分配信息</title>
<link rel="stylesheet" href="../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.empid.value==""){
   alert("请选择负责员工！");
   form1.empid.focus;
   return false;
  } 
  return true;
}
</Script>
</head>
<%
  Dim aId,aName,TypeName,Model,UseDate,UsedYear,EmpId,EmpName,DepName
  Dim Action,rs
  '读取参数aid
  aId = Request.QueryString("aid")  
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '设置SELECT语句，读取记录数据
  sql = "SELECT a.*,t1.TypeName,e.EmpName,e.DepName" _
    + " FROM AssetsInfo a INNER JOIN Types t1 ON a.TypeId=t1.TypeId" _
    + " LEFT JOIN (SELECT e.EmpId,e.EmpName,e.DepId,d.DepName FROM " _
    + " Departments d,Employees e WHERE e.DepId=d.DepId ) e" _
    + " ON a.RepEmpId=e.EmpId Where a.AId='" & aId & "'"
  rs.Open sql,conn,1,3
  If Not rs.EOF Then
    aName = rs("AName")
    TypeName = rs("TypeName")
    Model = rs("Model")
    UsedYear = rs("UsedYear")
    UseDate = rs("UseDate")  
    EmpId = rs("RepEmpId")
    EmpName = rs("EmpName")
    DepName = rs("DepName")
    rs.Close()
  End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="AssignSave.asp?action=<%=Action%>&aid=<%=aId%>" 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/assets.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><%=aId%>&nbsp;</td>
      <td bgcolor="#CEE7FF">资产名称</td>
      <td><%=aName%></td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">资产型号</td>
      <td width="40%"><%=Model%></td>
      <td width="20%" bgcolor="#CEE7FF">入账日期</td>
      <td width="40%"><%=UseDate%></td>
   </tr>
    <tr>
      <td bgcolor="#CEE7FF">负责员工</td>
      <td colspan="3"><input type="text" name="empname" size="20" value="<%=EmpName%>" ReadOnly>
    <input type="button" value="选 择" onclick="javascript:news2=window.open('EmpSel.asp','news2','x=100,y=100,height=300,width=400,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=no');news2.focus();" name="B3"></font>
&nbsp;</td>
    </tr>
  </table><input type="hidden" name="empid" size="16" value="<%=EmpId%>">
  <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 + -