user.inc

物业管理和办公自动化系统

			dim rs11
			set rs11=openRS(conn1,"select * from t_email where userid="&ToSQL(sAccountid,"text"))
			if not rs11.eof then
				response.write "<script language=javascript >window.alert('对不起，该用户已经存在于Email列表（和OA共用），请另选用户名称！')</script>"
				response.write "<script language=javascript >history.go(-1)</script>"
				response.end
			end if
			CloseRS(rs11)						
		end if
'		////////////////////////////////////////////////////////////////
'		//生成用户记录
'		//////////////////////////////////////////////////////////////
		if iEmpid="-1" then
			sSQL="insert into T_account(account_id,password,role_id,status) values("&_
		                                    ToSQL(sAccountid,"text")&","&_
		                                    ToSQL(sAccountid,"text")&","&_
		                                    ToSQL(iRoleid,"number")&","&_
		                                    ToSQL(iStatus,"number")&")"
		else       		       
			sSQL = "insert into T_account(account_id,password,role_id,status,emp_id) values("&_
		                                    ToSQL(sAccountid,"text")&","&_
		                                    ToSQL(sAccountid,"text")&","&_
		                                    ToSQL(iRoleid,"number")&","&_
		                                    ToSQL(iStatus,"number")&","&_
		                                    ToSQL(iEmpid,"number")&")"
		end if		                                    
		conn.Execute(sSQL)
		sError=ProcessError(conn)
		if sError <> "" then				        
			response.write "<script language=""javascript"">alert('对不起，新增用户失败！')</script>"
			response.write "<script language = vbscript>window.navigate(""user.asp"")</script>"
			response.end
		end if
'		/////////////////////////////////////////////////////////////////////////////////////////
'		//为用户新增状态记录
'		/////////////////////////////////////////////////////////////////////////////////////////
		if iEmpid="-1" then
		        sSQL="insert into t_onlinestatus(account_id,login_status,online_status) values("&_
		                                         ToSQL(sAccountid,"text")&",0,0)"		                                    		                                          
		else
		        sSQL="insert into t_onlinestatus(account_id,emp_id,login_status,online_status) values("&_
		                                         ToSQL(sAccountid,"text")&","&_		                                    
		                                          ToSQL(iEmpid,"number")&",0,0)"
        end if		
		conn.Execute(sSQL)		        
		sError=ProcessError(conn)
		if sError <> "" then				        
			response.write "<script language=""javascript"">alert('对不起，新增用户状态失败，请删除并重新生成用户！')</script>"
			response.write "<script language = vbscript>window.navigate(""user.asp"")</script>"
			response.end
		end if
		
'		//////////////////////////////////////////////////////////////////////////////////////
'		//为员工用户新增email帐户，与OA系统共用
'		//////////////////////////////////////////////////////////////////////////////////////	
		if iEmpid <> "-1" then
		      sName=DLookUp(conn,"select name from t_employee where emp_id="&ToSQL(iEmpid,"number")) 	
		      sFileAddr="c:\imail\users\"&sAccountid
		      sSQL="insert into t_email(userid, password, fullname, userdir, mailaddr, flags)"&_
			 "values('"&sAccountid&"','"&sAccountid&"','"&sName&"','"&sFileAddr&"','"&sAccountid&"@infortower.com',134)"		
			conn1.Execute(sSQL)
			sError=ProcessError(conn1)
			if sError <> "" then				        
				response.write "<script language=""javascript"">alert('对不起，新增用户email失败，请删除并重新生成用户！')</script>"
				response.write "<script language = vbscript>window.navigate(""user.asp"")</script>"
				response.end
			end if
			Disconnect(conn1)
		end if
		
		
		
		response.write "<script language=""javascript"">alert('新增用户成功！')</script>"	
		response.write "<script language=vbscript>window.navigate(""user.asp"")</script>"
	case "updateuser"'更新用户
		
		sSQL = "select * from t_account where account_id = "&ToSQL(sAccountid,"text")
						
		set rs = openRS(conn,sSQL)			
		if rs.eof then 				
			response.write "<script language=""javascript"">alert('对不起，不存在该用户！')</script>"
			response.write "<script language = vbscript>window.navigate(""list_user.asp"")</script>"
			response.end
		end if
		CloseRS(rs)
		
		
		sSQL = "update T_account set role_id="&ToSQL(iRoleid,"number")&_
		                           ",status="&ToSQL(iStatus,"number")&_
		                           " where account_id="&ToSQL(sAccountid,"text")
		
		
		conn.Execute(sSQL)
		sError=ProcessError(conn)
		if sError <> "" then
			response.write "<script language=""javascript"">alert('对不起，更新用户失败！')</script>"
			response.write "<script language=vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
			response.end
		
		else
			response.write "<script language=""javascript"">alert('更新用户成功！')</script>"
			response.write "<script language=vbscript>window.navigate(""list_user.asp"")</script>"					
			response.end
		end if
		
		
					
	case "deleteuser"'删除用户
	        sError=""
	        
                set conn1=DBConnectionOA		
		sSQL="delete from t_email where userid="&ToSQL(sAccountid,"text")
		conn1.Execute(sSQL)
		sError=ProcessError(conn1)
		if sError <> "" then				        
			response.write "<script language=""javascript"">alert('对不起，删除用户email失败，请重试！')</script>"
			response.write "<script language = vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
			response.end
		end if
		Disconnect(conn1)
		
                sSQL="delete from t_onlinestatus where account_id="&ToSQL(sAccountid,"text")
		conn.Execute(sSQL)
		sError=ProcessError(conn)
		if sError <> "" then
			response.write "<script language=""javascript"">alert('对不起，用户状态删除失败，请重试！')</script>"
			response.write "<script language=vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
			response.end		
		end if
				
		sSQL = "delete from T_account where account_id = "&ToSQL(sAccountid,"text")
		conn.Execute(sSQL)			
		sError=ProcessError(conn)
		if sError <> "" then
				response.write "<script language=""javascript"">alert('对不起，用户删除失败，请重试！')</script>"
				response.write "<script language=vbscript>window.navigate(""user.asp?accountid="&sAccountid&")</script>"					
				response.end		
	        end if		
				
		response.write "<script language=""javascript"">alert('用户删除成功！')</script>"
		response.write "<script language=vbscript>window.navigate(""list_user.asp"")</script>"
		response.end
			
			                								
		
	case "resetpwd"
		
		sSQL = "update t_account set password = " & Tosql(sAccountid,"text") & "where account_id=" & Tosql(sAccountid,"text")
		conn.Execute(sSQL)

		
        set conn1=DBConnectionOA		
		sSQL = "update t_email set password = " & Tosql(sAccountid,"text") & " where userid=" & Tosql(sAccountid,"text")		
		conn1.Execute(sSQL)
		Disconnect(conn1)


		sError=ProcessError(conn)
		if sError <> "" then
			Response.Write "<script language=""javascript"">alert('对不起，重置用户密码出错，请查看数据库！')</script>"
		else 
			Response.Write "<script language=""javascript"">alert('重置用户密码成功！')</script>"
		end if
		response.write "<script language=vbscript>window.navigate(""list_user.asp"")</script>"
	end select
End Sub

'************************************************************************************************
' 函数名　: TableLink()
' 输　入　: 
' 输　出　: 
' 功能描述: 	角色管理相关连接
' 调用模块: list_.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-08-01
' 版　本　: 
'************************************************************************************************
Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=30>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"" width=11 height=11>&nbsp;<a href=""list_user.asp"">用户列表</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" width=11 height=11>&nbsp;<a href=""list_role.asp"">角色列表</a></td>" & _
		"</tr>" & _
		"</table>"
End Function



Function optionselect(i,iR)    
    
    if CStr(i)=CStr(iR) then 
        optionselect=" selected "
    else
        optionselect=""
    end if
    
end Function
%>