or
| Imports System.Data |
| Imports System.Data.SqlClient |
| Imports System.Web.SessionState |
| Imports System.Web.SessionState.HttpSessionState |
| Imports System.Web.Security |
| Partial Class Default2 |
| Inherits System.Web.UI.Page |
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| Dim rd As SqlClient.SqlDataReader |
| If Not Me.IsPostBack Then |
| Me.lblUsuario.Text = Session("UserId") |
| End If |
| Dim dsUrls As New DataTable |
| 'Conexion al Server ------------------------ |
| Dim cnDatos As New SqlConnection(ConfigurationManager.ConnectionStrings("WebSiteConnectionString").ConnectionString) |
| Dim daUrls As New SqlDataAdapter("spWebUrlsAdmin", cnDatos) |
| cnDatos.Open() |
| daUrls.SelectCommand.CommandType = CommandType.StoredProcedure |
| daUrls.SelectCommand.Parameters.Add(New SqlParameter("@pUserId", SqlDbType.Char, 10)) |
| daUrls.SelectCommand.Parameters("@pUserID").Value = Session("UserId") |
| daUrls.Fill(dsUrls) |
| rd = daUrls.SelectCommand.ExecuteReader() |
| While (rd.Read()) |
| Dim tb As New Infragistics.WebUI.UltraWebTab.Tab(rd.GetString(0)) |
| tb.Key = rd.GetString(0) |
| UltraWebTab1.Tabs.Add(tb) |
| UltraWebTab1.Tabs.FromKeyTab(rd.GetString(0)).ContentPane.TargetUrl() = rd.GetString(1) |
| End While |
| rd.Close() |
| cnDatos.Close() |
| End Sub |
| End Class |
| Public Function cargartab() |
| Dim rd As SqlClient.SqlDataReader |
| Dim dsUrls As New DataTable |
| Dim cnDatos As New SqlConnection(ConfigurationManager.ConnectionStrings("WebSiteConnectionString").ConnectionString) |
| Dim daUrls As New SqlDataAdapter("spWebUrlsAdmin", cnDatos) |
| cnDatos.Open() |
| daUrls.SelectCommand.CommandType = CommandType.StoredProcedure |
| daUrls.SelectCommand.Parameters.Add(New SqlParameter("@pUserId", SqlDbType.Char, 10)) |
| daUrls.SelectCommand.Parameters("@pUserID").Value = Session("UserId") |
| daUrls.Fill(dsUrls) |
| rd = daUrls.SelectCommand.ExecuteReader() |
| While (rd.Read()) |
| Dim tb As New Telerik.Web.UI.RadTab(rd.GetString(0)) |
| tb.AccessKey = 0 'rd.GetString(0) |
| Me.RadTabStrip1.Tabs.Add(tb) |
| 'Me.RadTabStrip1.Tabs(0).Text = rd.GetString(0) |
| 'Me.RadTabStrip1.Tabs.FromKeyTab(rd.GetString(0)).ContentPane.TargetUrl() = rd.GetString(1) |
| Me.RadTabStrip1.Tabs.Add(ResolveUrl(rd.GetString(1)) |
| End While |
| rd.Close() |
| cnDatos.Close() |
| End Function |
| function ShowInsertForm() { |
| window.radopen("AddEditUser.aspx", "AddEditUserWindow").setSize(450, 600); |
| return false; |
| } |
| function CloseAndRebindGrid() { |
| var oWindow = GetRadWindow(); |
| if (oWindow != null) { |
| oWindow.Close(); |
| oWindow.BrowserWindow.refreshGrid(); |
| } |
| } |
| function GetUserRadWindow() { |
| var oWindow = null; |
| if (window.radWindow) oWindow = window.radWindow; |
| else if (window.frameElement != null) { |
| if (window.frameElement.radWindow) oWindow = window.frameElement.radWindow; |
| } |
| return oWindow; |
| } |
| protected void btnSave_Click(object sender, EventArgs e) |
| { |
| ClientScript.RegisterStartupScript(Page.GetType(), "insert", "CloseAndRebindGrid();", true); |
| } |
| <div class="VerticalButtonList"> |
| <asp:Button ID="btnSave" runat="server" Text="Save" OnClick="btnSave_Click" Width="60px" /> |
| <asp:Button ID="btnCancel" runat="server" Text="Cancel" OnClick="btnCancel_Click" Width="60px" /> |
| <asp:Button ID="btnDelete" runat="server" Text="Delete" OnClick="btnDelete_Click" Width="60px" /> |
| </div> |
| .VerticalButtonList input[type=submit] |
| { |
| display:block; |
| } |