📄 addroles.aspx
字号:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Addroles.aspx.vb" Inherits="Default2" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<script runat="server">
Public Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
DataBind()
End Sub
Public Sub AddUserToRole_Click(sender As Object, e As EventArgs)
Roles.AddUserToRole(Username.Text, _
RoleList.SelectedItem.Value)
DataBind()
End Sub
Public Overrides Sub DataBind()
RoleList.DataSource = Roles.GetAllRoles()
RoleList.DataBind()
End Sub
</script>
<body style="FONT-FAMILY: Verdana">
<H1>Add User to Role</H1>
<form id="Form1" runat="server">
User: <asp:TextBox id="Username" runat="server" />
Role to add user to: <asp:DropDownList id="RoleList"
runat="server" DataSourceID="SqlDataSource1" DataTextField="RoleName" DataValueField="RoleName" /><asp:SqlDataSource
ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:aspnetdbConnectionString %>"
SelectCommand="SELECT [RoleName] FROM [vw_aspnet_Roles]"></asp:SqlDataSource>
<asp:button ID="Button1" Text="Add User To Role"
OnClick="AddUserToRole_Click" runat="server"/>
</form>
<font size="6" color="Red">
<asp:Label id="StatusCheck" runat="server"/>
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -