addnew.asp

功能齐全的oa系统

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

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB

If Request.Form.Count > 0 Then
  Set C = Server.CreateObject("CMS2003.DBHandle")
  'Set M = Server.CreateObject("CMS2003.MD5")
  C.Init(ObjDB)

  StrSQL = "Select ID From t_OA_SYS_Account Where AccountName = '" & Request.Form("A_AccountName") & "'"
  Set ObjRS = C.View(StrSQL)
  If ObjRS("ID")<>"" Then Response.Redirect("../../../error.asp?err=您刚才输入的登录名已经存在，请重新选择")
  
  IntAccountID = C.AddNew("A_","t_OA_SYS_Account")
  IntCharacterID = C.AddNew("CT_","t_OA_SYS_Account_Character")
  C.IsAddNULL = false
  
  Call C.Edit(IntCharacterID,"C_","t_OA_SYS_Account_Character")
  
  ObjDB.Execute("Update t_OA_SYS_Account_Character Set AccountID = " & IntAccountID & " Where ID= " & IntCharacterID)
  ObjDB.Execute("Update t_OA_SYS_Account Set Password = '" & md5(Request.Form("A_Password")) & "' Where ID= " & IntAccountID)
  
  ObjDB.Close 
  Set ObjDB = Nothing

  Response.Redirect "List.asp"
Else
  StrSelectRole = SelectValue(ObjDB,"Select ID,RoleName From t_OA_SYS_Role")
  ObjDB.Close 
  Set ObjDB = Nothing
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="CT_AccountID" value=0>
  <table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
    <td width="15%">新增用户</td>
    <td width="85%"> </td>
  </tr>
  <tr class=Ltr>
    <td>登录名</td>
    <td><input type="text" class=Input Check=1 Show="登录名" name="A_AccountName" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>真实姓名</td>
    <td><input type="text" class=Input Check=1 Show="真实姓名" name="C_TrueName" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>密码</td>
    <td><input type="password" class=Input name="A_Password" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>确认密码</td>
    <td><input type="password" class=Input Check=3 To="A_Password" Show="两次输入的密码不一致" name="Password1" value=""></td>
  </tr>
  <tr class=Ltr>
    <td></td>
    <td>
    <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>
    <input type=checkbox value=0 name="A_IsValid">帐号已停用<br>
    </td>
  </tr>
  </table>
  <table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
  <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">男 <input type="radio" name="C_Gender" value="2">女</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)"></textarea>
    <input type=button class=Button value="选择角色" onclick="SelectRoleIDs(A_RoleIDs.value)" id=button1 name=button1>
    <input name=A_RoleIDs value="" type=hidden> 
    </td>
  </tr>
  <tr class=Ltr>
    <td>婚姻状况</td>
    <td><input type="radio" name="C_IsMarriage" value="1">已婚 <input type="radio" name="C_IsMarriage" value="0">未婚</td>
  </tr>
  <tr class=Ltr>
    <td>生日</td>
    <td><input type="text" class=Input2 name="C_Birthday" value="" onclick="InputDate(this)" readonly></td>
  </tr>
  <tr class=Ltr>
    <td>学历</td>
    <td><input type="text" class=Input2 name="C_Education" value=""></td>
    <td>职称</td>
    <td><input type="text" class=Input2 name="C_Title" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>国籍</td>
    <td><input type="text" class=Input2 name="C_Nation" value=""></td>
    <td>籍贯</td>
    <td><input type="text" class=Input2 name="C_NativePlace" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>工作电话</td>
    <td><input type="text" class=Input2 name="C_Tel" value=""></td>
    <td>Email</td>
    <td><input type="text" class=Input2 name="C_Email" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>家庭电话</td>
    <td><input type="text" class=Input2 name="C_HomeTel" value=""></td>
    <td>手机</td>
    <td><input type="text" class=Input2 name="C_Mob" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>住址</td>
    <td colspan=3><input type="text" class=Input name="C_Address" value=""></td>
  </tr>
  <tr class=Ltr>
    <td>备注</td>
    <td colspan=3><textarea class=Textarea name="C_Des"></textarea></td>
  </tr>
  
  </table>
  <table cellspacing=1 cellpadding=3>
  <tr>
    <td>
    <input type="submit"  name="Submit" class=Button value="提 交">
    <input type="button" class=Button value="取 消" onclick="doList()"></td>
    <td></td>
  </tr>
  </table>
  </form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->