logins_edit.aspx

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

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

<%
	Dim LoginName as String = Request("LoginName")
	Dim Database as String = Request("Database")
	Dim Language as String = Request("language")

	if Request("Save") <> "" then
	
		Try
				Dim sqlStr as String
				
				if Request("Update") = "" then
					sqlStr = "sp_addlogin '" & request("LoginName") & "', '" & request("password") & "', '" & request("database") & "'"
					if Language <> "" then _
							sqlstr = sqlstr & ", '" & language & "'"
					d.getDataSPA(sqlStr)
				
				else
					dr = d.getDataSP("sp_helpsrvrole")
					Dim ServerRoles as String = "," & Request("ServerRole") & ","
					While dr.read()	
						if InStr(ServerRoles, "," & dr("ServerRole") & ",") then
							d.getDataSPA("sp_addsrvrolemember '" & Request("LoginName") & "', '" & dr("ServerRole") & "'")
						else
							d.getDataSPA("sp_dropsrvrolemember '" & Request("LoginName") & "', '" & dr("ServerRole") & "'")				
						end if
					End While
					
					d.getDataSPA("sp_defaultdb '" & Request("LoginName") & "', '" & Database & "'")
					d.getDataSPA("sp_defaultlanguage '" & Request("LoginName") & "', '" & Language & "'")
				
				end if			
			
				
				Response.redirect ("logins.aspx")
		Catch e as exception
		
			DisplayError(e)
		
		End Try
	
	end if

' Get the information about the login name for edit
	Dim RoleStr as String = ""
	
	if Request("LoginName") <> "" then
		Try
			dr = d.getDataSP("sp_helpsrvrole")
		Catch e as exception
		
			DisplayError(e)
		
		End Try	
			
		Dim dr2 as SQLDataReader
		While dr.read()
			dr2 = d.getDataSPA("sp_helpsrvrolemember '" & dr("ServerRole") & "'")
			While dr2.read()
				if dr2("MemberName") = Request("LoginName") then
				 	RoleStr = RoleStr & "*" & dr2("ServerRole") & "*"
				 	Exit While
				End If
			End While
		End While
		dr2 = nothing
		dr = d.GetDataSPA("sp_helplogins '" & request("LoginName") & "'")
		dr.read()
		Database = iif(IsDBNull(dr("DefDBName")), "", dr("DefDBName")) 
		Language = iif(IsDBNull(dr("DefLangName")), "", dr("DefLangName"))
	End if	

	if Database = "" then database = "master"
	
	With Response
	
		
		.write ("<form action=""logins_edit.aspx"" method=""POST"">")
		.write ("<input type=""hidden"" value=""save"" name=""save"">")
		.write ("<center>")
		.write ("<table class=""TableStyle"" border=""0""  cellspacing=""0"" cellpadding=""2"" width=""370"">")
		.write ("<tr><td class=""WindowHeader"">")
		 DrawTitle ("SQL Server Login Properties", "logins.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=""Save Login"">")
		.write ("</p><hr>")
		
		.write ("<table class=""MainStyle"" width=""100%"" border=""0"">")
		.write ("<tr><td valign=""top"" align=""center"">")
		.write ("<img src=""images/large_Icons_Login.gif"" ALIGN=""LEFT"">")
		.write ("</td><td NOWRAP>")
		.write ("<b>Login name:</b>&nbsp;")
		.write ("</td><td>")
		if request("loginName") = "" then
			.write ("<input type=""text"" name=""LoginName"" value=""" & loginName & """ style=""width: 200px;"">")		
		else
			.write ("<input type=""hidden"" name=""LoginName"" value=""" & loginName & """ style=""width: 200px;"">")		
			.write ("<input type=""hidden"" name=""Update"" value=""true"" style=""width: 200px;"">")		
			.write ("&nbsp;&nbsp;&nbsp;" & loginName)
		end if
		.write ("</td></tr>")
		
		.write ("<tr><td colspan=""4"">")
		.write ("<br></td></tr>")
		
		.write ("<tr><td>Authentication</td>")
		.write ("<td colspan=""2""><hr></td></tr>")
		
		
		if request("loginName") = "" then
				.write ("<tr><td>&nbsp;</td><td>")
				.write ("<b>Password:</b>&nbsp;")
				.write ("</td><td colspan=""2"">")
				.write ("<input type=""password"" name=""password"" style=""width: 200px;"">")		
				.write ("</td></tr>")
				
				.write ("<tr><td>&nbsp;</td><td>")
				.write ("<b>Confirm:</b>&nbsp;")
				.write ("</td><td>")
				.write ("<input type=""password"" name=""confirmPassword"" style=""width: 200px;"">")		
				.write ("</td></tr>")
		else
		
			.write ("<tr><td colspan=""3"" align=""right"">")
			.write ("<input type=""button"" value=""Change Password""")
			.write (" onclick=""javascript:passwordWin = window.open('changePassword.aspx?LoginName=" & LoginName & "', '', 'width=450, height=330'); passwordWin.focus();"" ")
			.write (">")
			.write ("</td></tr>")
		
		end if
		
		
		.write ("<tr><td colspan=""4"">")
		.write ("<br></td></tr>")
		
		.write ("<tr><td>Defaults</td>")
		.write ("<td colspan=""2""><hr></td></tr>")
		
		.write ("<tr><td valign=""top"" align=""center"" rowspan=""3"">")
		.write ("<img src=""images/large_Icons_Defaults.gif"" ALIGN=""LEFT"">")
		.write ("</td><td colspan=""2"" valign=""top"">")
		.write ("Specify the default language and database for this login.<br><br>")
		.write ("</td></tr>")
		
		.write ("<tr><td>")
		.write ("<b>Database:</b>&nbsp;")
		.write ("</td><td>")
		.write ("<select name=""database"" style=""width: 200px;"">" & vbCRLF)		
		
		dr = d.getDataSP("SP_DATABASES")
		While dr.read()
			.write ("<option value=""" & dr("DataBase_Name") & """")
			if database = dr("DataBase_Name") then .write (" SELECTED ")
			.write (">" & dr("DataBase_Name") & vbCRLF) 
		
		End While
		
		.write ("</select>")		
		.write ("</td></tr>")
		
		.write ("<tr><td>")
		.write ("<b>Language:</b>&nbsp;")
		.write ("</td><td>")
		.write ("<select name=""language"" style=""width: 200px;"">")	
		
		dr = d.getDataSP("sp_helpLanguage")
		
		.write ("<option value="""">&lt;Default>")
		
		While dr.read()
			.write ("<option value=""" & dr("name") & """")
			if language = dr("name") then .write (" SELECTED ")
			.write (">" & dr("alias") & vbCRLF) 
		
		End While
		
			
		.write ("</select>")		
		.write ("</td></tr>")
		
		.write ("<tr><td colspan=""4"">")
		.write ("<br></td></tr>")
		
		.write ("<tr><td>Server Roles</td>")
		.write ("<td colspan=""2""><hr></td></tr>")
		
		.write ("<tr><td colspan=""4"" style=""padding: 20px;"">")
		
		.write ("<table width=""100%"" class=""TableStyle"" height=""175"">")
		.write ("<tr><td valign=""top"">")
		
		dr = d.getDataSP("sp_helpsrvrole")
		
		While dr.read()
			
			.write ("<input type=""checkbox"" name=""ServerRole"" value=""" & dr("ServerRole") & """")
			if InStr(RoleStr, "*" & dr("ServerRole") & "*") then .write (" CHECKED ")
			.write (">&nbsp;")
			.write ("<img src=""images/small_icons_ServerRoles.gif"">&nbsp;&nbsp;")
			.write (dr("description") & "<br>" & vbCRLF)
		
		End While
		
		.write ("</td></tr>")
		.write ("</table>")
		
		.write ("</td></tr>")
		
		.write ("</table>")
		
		.write ("<br><Br>")
		
		.write ("</td></tr>")
		.write ("</table>")
		
		
		
		.write ("</td></tr>")		
		.write ("</table>")
	
		.write ("</form>")
		.write ("</center>")
	
	
	End With
	

	

%>