edit.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/SelectValue.asp" -->
<!-- #include virtual="include/GetRoleName.asp" -->
<!-- #include virtual="include/MD5.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim C,IntAccountID
Dim StrOptionRole
Dim M
Dim StrRoleName

IntAccountID = Request.QueryString("ID")
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
Set C = Server.CreateObject("CMS2003.DBHandle")
'Set M = Server.CreateObject("CMS2003.MD5")
C.Init(ObjDB)

If Request.Form.Count > 0 Then
  IntAccountID = Request.Form("AccountID")
  StrSQL = "Select ID From t_OA_SYS_Account Where AccountName = '" & FixSQL(Request.Form("A_AccountName")) & "' And ID<>" & FixSQL(Request.Form("AccountID"))
  Set ObjRS = C.View(StrSQL)
  If ObjRS("ID")<>"" Then Response.Redirect("../../../error.asp?err=您刚才输入的登录名已经存在，请重新选择")
  
  StrSQL = "Update t_OA_SYS_Account Set Is1 = 0,Is2=0,Is3=0,IsValid=1,UpdateTime=getdate() Where ID = " & FixSQL(IntAccountID)
  ObjDB.Execute StrSQL
  
  C.IsAddNULL = false
  Call C.Edit(IntAccountID,"A_","t_OA_SYS_Account")   
  Call C.Edit(Request.Form("CharacterID"),"C_","t_OA_SYS_Account_Character")
  
  If Request.Form("P_Password")<>"" Then
    ObjDB.Execute("Update t_OA_SYS_Account Set Password = '" & md5(Request.Form("P_Password")) & "' Where ID= " & IntAccountID)
  End If
%>
<script language=javascript>
parent.doList()
</script>
<%
  Response.End 
Else
  Set ObjRS = C.View("Select * From v_OA_SYS_Account Where ID = " & FixSQL(IntAccountID) )
  StrOptionRole = GetOption(ObjDB,"Select ID,RoleName From t_OA_SYS_Role",ObjRS("RoleID"))
  StrRoleName = GetRoleName(ObjDB,ObjRS("RoleIDs"))
End If

Sub Main
%>
<script language=javascript>
  function SelectRoleIDs(IDs)
  {
    window.open("SelectRole.asp?IDs="+IDs,"RoleWin","width=200,height=300,scrollbars=yes")
  }

  function ChangeRole(IDs,Names)
  {
    document.forms[0].A_RoleIDs.value = IDs
    document.forms[0].RoleName.value = Names
    window.focus()
  }
</script>
  <form action="" method=post onsubmit="return(CheckForm(this))">
  <input type=hidden name=AccountID value="<%=ObjRS("ID")%>">
  <input type=hidden name=CharacterID value="<%=ObjRS("CharacterID")%>">
  <table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
    <td width="15%">ID</td>
    <td width="85%"><%=ObjRS("ID")%></td>
  </tr>
  <tr class=Ltr>
    <td>登录名</td>
    <td><input type="text" class=Input Check=1 Show="登录名" name="A_AccountName" value="<%=ObjRS("AccountName")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>真实姓名</td>
    <td><input type="text" class=Input Check=1 Show="真实姓名" name="C_TrueName" value="<%=ObjRS("TrueName")%>"></td>
  </tr>
  <tr class=Ltr>
    <td></td>
    <td>
<%
  If ObjRS("Is1") Then
%>
    <input type=checkbox checked value=1 name="A_Is1" onclick="A_Is2.disabled=A_Is3.disabled=this.checked">用户下次登录时须更改密码<br>
    <input type=checkbox disabled value=1 name="A_Is2" onclick="if(A_Is2.checked||A_Is3.checked)A_Is1.disabled=true;else A_Is1.disabled=false">用户不能更改密码<br>
    <input type=checkbox disabled value=1 name="A_Is3" onclick="if(A_Is2.checked||A_Is3.checked)A_Is1.disabled=true;else A_Is1.disabled=false">密码永不过期<br>
<%
  ElseIf (Not ObjRS("Is2") And Not ObjRS("Is3")) Then
%>
    <input type=checkbox value=1 name="A_Is1" onclick="A_Is2.disabled=A_Is3.disabled=this.checked">用户下次登录时须更改密码<br>
    <input type=checkbox <%If ObjRS("Is2") Then Response.Write " checked "%>  value=1 name="A_Is2" onclick="if(A_Is2.checked||A_Is3.checked)A_Is1.disabled=true;else A_Is1.disabled=false">用户不能更改密码<br>
    <input type=checkbox <%If ObjRS("Is3") Then Response.Write " checked "%> value=1 name="A_Is3" onclick="if(A_Is2.checked||A_Is3.checked)A_Is1.disabled=true;else A_Is1.disabled=false">密码永不过期<br>
<%
  Else
%>
    <input type=checkbox disabled value=1 name="A_Is1" onclick="A_Is2.disabled=A_Is3.disabled=this.checked">用户下次登录时须更改密码<br>
    <input type=checkbox <%If ObjRS("Is2") Then Response.Write " checked "%>  value=1 name="A_Is2" onclick="if(A_Is2.checked||A_Is3.checked)A_Is1.disabled=true;else A_Is1.disabled=false">用户不能更改密码<br>
    <input type=checkbox <%If ObjRS("Is3") Then Response.Write " checked "%> value=1 name="A_Is3" onclick="if(A_Is2.checked||A_Is3.checked)A_Is1.disabled=true;else A_Is1.disabled=false">密码永不过期<br>
<%
  End If
%>
    <input type=checkbox value=4 name="A_IsValid" <%If Not ObjRS("IsValid") Then Response.Write " checked"%>>帐号已停用<br>
    </td>
  </tr>
  </table>
  <table class=Ltable cellspacing=1 cellpadding=3 id=ChangePassword style="display='none'">
  <tr class=LStr>
    <td width="15%">更改密码</td>
    <td width="85%" colspan=3> </td>
  </tr>
  <tr class=Ltr>
    <td>新密码</td>
    <td><input type="password" class=Input Check=0 Show="新密码" name="P_Password" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>确认密码</td>
    <td><input type="password" class=Input Check=3 To="P_Password" Show="两次输入的密码不一致" name="Password1" value=""></td>
  </tr>
  </table>
  <table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3 style="display='none'">
  <tr class=LStr>
    <td width="15%">详细信息</td>
    <td width="85%" colspan=3> </td>
  </tr>
  <tr class=Ltr>
    <td>性别</td>
    <td><input type="radio" name="C_Gender" value="1" <%If ObjRS("Gender")=1 Then Response.Write " checked"%>>男 <input type="radio" name="C_Gender" value="2" <%If ObjRS("Gender")=2 Then Response.Write " checked"%>>女</td>
    <td rowspan=3>系统角色</td>
    <td rowspan=3>
    <textarea class=Textarea2 name="RoleName" Check=1 Show="系统角色" onchange="SelectRoleIDs(A_RoleIDs.value)" onkeydown="SelectRoleIDs(A_RoleIDs.value)" onclick="SelectRoleIDs(A_RoleIDs.value)"><%=StrRoleName%></textarea>
    <input type=button class=Button value="选择角色" onclick="SelectRoleIDs(A_RoleIDs.value)" id=button1 name=button1>
    <input name=A_RoleIDs value="<%=ObjRS("RoleIDs")%>" type=hidden>  
    </td>
  </tr>
  <tr class=Ltr>
    <td>婚姻状况</td>
    <td><input type="radio" name="C_IsMarriage" value="1" <%If ObjRS("IsMarriage") Then Response.Write " checked"%>>已婚 <input type="radio" name="C_IsMarriage" value="0" <%If Not ObjRS("IsMarriage") Then Response.Write " checked"%>>未婚</td>
  </tr>
  <tr class=Ltr>
    <td>生日</td>
    <td><input type="text" class=Input2 name="C_Birthday" value="<%=ObjRS("Birthday")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>学历</td>
    <td><input type="text" class=Input2 name="C_Education" value="<%=ObjRS("Education")%>"></td>
    <td>职称</td>
    <td><input type="text" class=Input2 name="C_Title" value="<%=ObjRS("Title")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>国籍</td>
    <td><input type="text" class=Input2 name="C_Nation" value="<%=ObjRS("Nation")%>"></td>
    <td>籍贯</td>
    <td><input type="text" class=Input2 name="C_NativePlace" value="<%=ObjRS("NativePlace")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>工作电话</td>
    <td><input type="text" class=Input2 name="C_Tel" value="<%=ObjRS("Tel")%>"></td>
    <td>Email</td>
    <td><input type="text" class=Input2 name="C_Email" value="<%=ObjRS("Email")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>家庭电话</td>
    <td><input type="text" class=Input2 name="C_HomeTel" value="<%=ObjRS("HomeTel")%>"></td>
    <td>手机</td>
    <td><input type="text" class=Input2 name="C_Mob" value="<%=ObjRS("Mob")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>住址</td>
    <td colspan=3><input type="text" class=Input name="C_Address" value="<%=ObjRS("Address")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>备注</td>
    <td colspan=3><textarea class=Textarea name="C_Des"><%=FixStr(ObjRS("Des"))%></textarea></td>
  </tr>
  </table>
  <table cellspacing=1 cellpadding=3>
  <tr>
    <td>
    <input type="button" onclick="if(ChangePassword.style.display==''){ChangePassword.style.display='none';P_Password.Check=0}else {ChangePassword.style.display='';P_Password.Check=1;}"  name="Submit" class=Button value="更新密码">
    <input type="button" onclick="if(MoreInfo.style.display=='')MoreInfo.style.display='none';else MoreInfo.style.display='';"  name="Submit" class=Button value="详细信息">
    <input type="submit" class=Button value="提 交"></td>
    <td></td>
  </tr>
  </table>
  </form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->