?? logins_edit.aspx
字號:
<!--#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> ")
.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 (" " & 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> </td><td>")
.write ("<b>Password:</b> ")
.write ("</td><td colspan=""2"">")
.write ("<input type=""password"" name=""password"" style=""width: 200px;"">")
.write ("</td></tr>")
.write ("<tr><td> </td><td>")
.write ("<b>Confirm:</b> ")
.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> ")
.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> ")
.write ("</td><td>")
.write ("<select name=""language"" style=""width: 200px;"">")
dr = d.getDataSP("sp_helpLanguage")
.write ("<option value=""""><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 ("> ")
.write ("<img src=""images/small_icons_ServerRoles.gif""> ")
.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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -