users_edit.aspx

在线SQL数据库企业管理器在线SQL数据库企业管理器

<%@ Page Language="VB"  %>

<!--#include file="includes/topnav.aspx"-->

<%
	Dim UserName as String
	Dim LoginName as String
   Dim CurUsers as String
   Dim dr2 as sqlDataReader
   Dim role as String
   
	
	if request("save") <> "" then
		
		
		Dim aRole() = Split(request("role"), ",")
		Dim x as Integer
		
		'Try
				Username = iif (request("UserName") = "", request("LoginName"), request("UserName"))
				LoginName = request("LoginName")
				
				if Request("EditUser") = "" then _
					d.getDataSPA("sp_grantdbAccess '" & request("LoginName") & "', '" & Username & "'")
				
				
				'Clear Current Roles
				dr = d.getDataSP("sp_helprole")
				While dr.read()
					if dr("RoleName") <> "public" and (UserName <> "dbo" and dr("RoleName") <> "db_owner") then
						d.getDataSPA("sp_droprolemember '" & dr("RoleName") & "', '" & UserName & "'")
					end if
				End While 
				
				For X = 0 to Ubound(aRole)
					if Trim(aRole(x)) <> "public"  and UserName <> "dbo"  then 
						d.getDataSPA("sp_addrolemember '" & Trim(aRole(x)) & "', '" & Username & "'")
					end if
				Next 
		'Catch e as Exception
		'	d = nothing
		'	DisplayError(e)
		
		'End Try
		
		If request("submit") = "Permissions" then
			response.redirect ("users_permissions.aspx?username=" & Username)
		else
			response.redirect ("users.aspx")
		end if	
			
	end if
	role = "," & request("role") & ","
	
	
	
	if request("User") <> "" then
		dr = d.getData("sp_helpuser '" & request("user") & "'")
		dr.read()
		Username = dr("UserName")
		Loginname = iif(IsDBNull(dr("LoginName")), dr("UserName"), dr("LoginName"))
		
		' Get the roles the user has in the database
		dr = d.getDataSP("sp_helprole")
		While dr.Read()
			dr2 = d.GetDataSPA("sp_helpRoleMember '" & dr("RoleName") & "'")
			While dr2.Read()
				if dr2("MemberName") = Username then
				 	Role = Role & "," & dr2("DBRole") & ","
				 	Exit While
				End If
			End While
		End While
	else
		Try
			dr = d.getdataSP("sp_helplogins")
		Catch e as Exception
			DisplayError(e)
		End Try
		
		'Get users to exclude form the New User Box
		CurUsers = ""
	   Try 
	   	dr = d.getDataSP("sp_helpuser")
	  		while dr.read()
	  			CurUsers = CurUsers & "*" & dr("LoginName") & "*"
	  		End While
	  	catch e as exception
	  		dr = nothing
	  		d = nothing
	  		DisplayError (e)
		end try
	End if
	
	
	With Response
		.write ("<form action=""users_edit.aspx"" method=""POST"">")
		.write ("<input type=""hidden"" value=""save"" name=""save"">")
		
		
		.write ("<center>")
		.write ("<table class=""TableStyle"" border=""0""  cellspacing=""0"" cellpadding=""2"">")
		.write ("<tr><td class=""WindowHeader"">")
		DrawTitle ("User Properties", "users.aspx")
		.write ("</td></tr>")
		
		.write ("<tr><td class=""TableHeader"">")
		
		.write ("<p align=""right"" style=""margin-top: 5px; margin-bottom: 10px; margin-right: 10px;"">")
		.write ("<input type=""submit"" value=""Permissions"" name=""submit"">")
		.write ("<input type=""submit"" value=""Save User"" name=""submit"">")
		.write ("</p>")
		
		.write ("<img src=""images/large_Icons_Users.gif"" ALIGN=""LEFT"" vspace=""10"" hspace=""10"">")
		
		if request("user") <> "" then
				.write ("<table class=""MainStyle"" width=""100%"">")
				.write ("<tr><td NOWRAP>")
				.write ("<b>Login name:</b>&nbsp;")
				.write ("</td><td width=""100%"">")
				.write (LoginName)	
				.write ("</td></tr>")
				.write ("<tr><td NOWRAP>")
				.write ("<b>User name:</b>&nbsp;")
				.write ("</td><td>")
				.write (Username)
				.write ("<input type=""hidden"" name=""UserName"" value=""" & Username & """>")	
				.write ("<input type=""hidden"" name=""LoginName"" value=""" & LoginName & """>")	
				.write ("<input type=""hidden"" name=""EditUser"" value=""true"">")		
				.write ("</td></tr>")
				.write ("</table>")
		
		else
				
				dr = d.GetDataSP("sp_helplogins")
				.write ("<table class=""MainStyle"" width=""100%"">")
				.write ("<tr><td>")
				.write ("<b>Login name:</b>&nbsp;")
				.write ("</td><td>")
				.write ("<select name=""LoginName"" style=""width: 200px;"">")
				While dr.read()
						if InStr(CurUsers, dr("LoginName")) = 0 then _
							.write ("<option>" & dr("LoginName"))
				End While
				.write ("</select>")		
				.write ("</td></tr>")
				.write ("<tr><td>")
				.write ("<b>User name:</b>&nbsp;")
				.write ("</td><td>")
				.write ("<input type=""text"" name=""UserName"" style=""width: 200px;"">")		
				.write ("</td></tr>")
				.write ("</table>")
	
		
		end if
		.write ("<br>")
		.write ("<center>")
		.write ("<table>")
		.write ("<tr><td  style=""padding: 10px;"">")
		
		.write ("<table class=""TableStyle"" width=""350"" cellspacing=""0"">")
		.write ("<tr><td class=""TableHeader"">")
		.write ("Permit in Database Role")
		.write ("</td></tr>")
		
	
		dr2 = d.getDataSP("sp_helprole")
		While dr2.read()
			.write ("<tr><td>")
			.write ("<input type=""checkbox"" name=""role"" value=""" & dr2("RoleName") & """")
			if InStr(role, "," & dr2("RoleName") & ",") or dr2("RoleName") = "public" then .write (" CHECKED ")
			if dr2("RoleName") = "public" then .write ("onClick=""javascript: alert('Members cannot be dropped from \'public\''); return false; "" ")
			.write (">" & dr2("RoleName") & "<br>")
			.write ("</td></tr>")
		
		
		End While
		
		.write ("</table>")
		.write ("</center>")
		.write ("<br>")
		
		.write ("</td></tr>")
		.write ("</table>")
		
		
		
		.write ("</td></tr>")		
		.write ("</table>")
	
		.write ("</form>")
		.write ("</center>")
	
	
	End With
	

	dr2 = nothing

%>
	
	
<!--#include file="includes/bottom.aspx"-->