📄 useredit.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.empname.focus;
   return false;
 } 
return true;
}
</Script>
</head>
<%
  Dim EmpId,EmpName,UserName,UserType,Did
  Dim rs
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '变量初始化
  Did = Request.QueryString("did")
  EmpId = 0
  EmpName = ""
  UserName = ""
  UserType = ""
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="UserSave.asp?uid=<%=UserName%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="2" width="96%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4">
      <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="empid">
      <%
        '如果Did为空或0，则显示所有员工姓名
        If Did=0 Then
          sql = "Select * From Employees ORDER BY EmpName" 
        Else
          sql = "Select * From Employees Where DepId=" & Did & " ORDER BY EmpName" 
        End If
        rs.Open sql,conn,1,3
        Do While Not rs.EOF
      %>    
            <option value="<%=rs("EmpId")%>">- <%=rs("EmpName")%> -</option>
        <%rs.MoveNext()
        Loop
        rs.Close()%>
         </select></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">用户名</td>
      <td colspan="3"><input type="text" name="uname" size="20" value="<%=UserName%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">用户类型</td>
      <td colspan="3"><input type="text" name="utype" size="30" value="<%=UserType%>" ReadOnly>&nbsp;
      <input type="button" value="选 择" onclick="javascript:news1=window.open('TypeSel.asp','news1','x=100,y=100,height=400,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=yes');news1.focus();" name="B3"></font>
      </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 + -