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" -->
<%
function emailcheck(StrMail)
  Dim Count
  Count = 0
  
  While Instr(StrMail, "@") > 0
    StrMail = Replace(StrMail, "@", "", 1, 1, 1)
    Count = Count + 1
  Wend
  
  emailcheck = Count
end function

Dim ObjDB,ObjRS,StrSQL
Dim C,IntAccountID,SubRoleID
Dim StrOptionRole,SubRoleName
Dim StrRoleName,RS,RS1

IntAccountID = Request.QueryString("ID")

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

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

  'Response.Write Request.Form("C_Email")
  'Response.End
  if emailcheck(Request.Form("C_Email")) <> 1  then
    if emailcheck(Request.Form("C_Email")) <> 0  then
%>
<script language=javascript>
      alert("EMail地址输入错误，请重新输入！")
      window.history.back();
</script>
<%
      Response.End
    end if
  end if

  if emailcheck(Request.Form("C_Email")) <> 0  then
    if emailcheck(Request.Form("C_Email")) <> 1  then
%>
<script language=javascript>
      alert("EMail地址输入错误，请重新输入！")
      window.history.back();
</script>
<%
      Response.End
    end if
  end if

	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=1,IsValid=1,UpdateTime=getdate() Where ID = " & FixSQL(IntAccountID)
	ObjDB.Execute StrSQL
	
	C.IsAddNULL = false	
	Call C.Edit(IntAccountID,"A_","t_OA_SYS_Account")		

  Set RS = Server.CreateObject("ADODB.Recordset")
  StrSQL = "select * from t_OA_SYS_Account_Character Where ID = " & Request.Form("CharacterID")    
  'Response.Write StrSQL
  RS.open StrSQL, ObjDB, 1, 3 
	RS("TrueName")    = Request.Form("C_TrueName")
	RS("Gender")      = Request.Form("C_Gender")
  RS("Title")       = Request.Form("C_Title")
  RS("Birthday")    = CDate(Request.Form("C_Birthday"))
  RS("IsMarriage")  = Request.Form("C_IsMarriage")
  RS("Nation")      = Request.Form("C_Nation")
  RS("NativePlace") = Request.Form("C_NativePlace")
  RS("Tel")         = Request.Form("C_Tel")
  RS("Address")     = Request.Form("C_Address")
  RS("Education")   = Request.Form("C_Education")
  RS("Des")         = Request.Form("C_Des")
  RS("HomeTel")     = Request.Form("C_HomeTel")
  RS("Mob")         = Request.Form("C_Mob")
  RS("Email")       = Request.Form("C_Email")
  RS.update
  RS.Close  
	
	'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=350,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=Ltr>
		<td width="15%">登录名</td>
		<td width="85%"><input type="text" class=Input Check=1 Show="登录名" name="A_AccountName" value="<%=ObjRS("AccountName")%>"> <font color='red'>*</font></td>
	</tr>
	<tr class=Ltr>
		<td>真实姓名</td>
		<td><input type="text" class=Input Check=1 Show="真实姓名" name="C_TrueName" value="<%=ObjRS("TrueName")%>"> <font color='red'>*</font></td>
	</tr>
	<tr class=Ltr>
		<td></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 rows=4 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> <font color='red'>*</font>
		<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" onclick="InputDate(this)" 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><input type="text" class=Input name="C_Address" value="<%=ObjRS("Address")%>"></td>
    <td>子系统角色 </td>
    <td>
<%
  StrSQL = "Select SubRoleID, SubRoleName From t_oa_Sub_SubRoles where SubRoleID <> " & Cint(ObjRS("SubRoles")) & " Order by SubRoleID"
  Set Rs = ObjDB.Execute(StrSQL)

  StrSQL = "Select SubRoleName From t_oa_Sub_SubRoles Where SubRoleID = " & Cint(ObjRS("SubRoles"))
  Set Rs1 = ObjDB.Execute(StrSQL)
  SubRoleName = Rs1("SubRoleName")
  SubRoleID = ObjRS("SubRoles")
  
  Response.Write "<select name='A_SubRoles' style='width:133px'>"
  Response.write "<option value='" & SubRoleID & "'>" & SubRoleName & "</option>"& Chr(10)
    
  While NOT Rs.EOF
    Response.write "<OPTION value=" & Rs("SubRoleID") &">" & Rs("SubRoleName") & "</OPTION>" & Chr(10)
    Rs.MoveNext
  Wend
  Response.Write "</select> <font color='red'>*</font>"
%>
    </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="提    交">
		<input type="button" class=Button value="取    消" onclick="doList()"></td>
		<td></td>
	</tr>
	</table>
	</form>
<%
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->