Library tutorials & articles

Make your Classic ASP code work like in ASP.NET

By Christian Calderon, published on 15 Feb 2004
Page 6 of 7
  1. Introduction
  2. Using the Code
  3. Drop Down Example
  4. DrillDown Example
  5. DataGrid Example
  6. Tabs Example
  7. RadioButton Example

Tabs Example

<!--#Include File = "..\WebControl.asp"        -->
<!--#Include File = "..\Server_LinkButton.asp" -->
<!--#Include File = "..\Server_TextBox.asp" -->
<!--#Include File = "..\Server_Tab.asp"    -->
<!--#Include File = "..\Server_DataGrid.asp" -->
<!--#Include File = "DBWrapper.asp"    -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Tabs</TITLE>
<LINK rel="stylesheet" type="text/css" href="Samples.css">
</HEAD>
<BODY>
<!--#Include File = "Home.asp"        -->
<%
    Call Main()
%>   
<Span Class="Caption">TabStrip Control Sample... </Span>
<Span><br>TABS Is in Beta!!!<BR>There is more room for improvements, but by know it supports many features, including AutoPostback</Span>
<!--#Include File = "..\FormStart.asp"        -->
<%MainTab%>
<HR>
<!--#Include File = "..\FormEnd.asp"        -->
</BODY>
</HTML>
<%  'This would normaly go in a another page, but for the sake of simplicity and to minimize the number of pages
    'I'm including code behind stuff here...
    Dim MainTab
    Dim lnk
    Dim txtName
    Dim objDataGrid
    Page.DebugEnabled = False
   
    Public Function Page_Init()
        Dim x
       
        Set txtName = New_ServerTextBox("txtName")
        Set lnk  = New_ServerLinkButton("lnk")       
        Set objDataGrid = New_ServerDataGrid("objDataGrid")
            DataGrid_BlueTemplate objDataGrid,True
            objDataGrid.AllowPaging = True
       
        Set MainTab  = New_ServerTabStrip("MainTab")
            MainTab.AutoPostBack = False
            MainTab.TabStripTabSeparatorTemplate = "TabSepFnc"
            MainTab.TabsPerRow = 10
            MainTab.TabsWidth = "50%"
            MainTab.Width = "80%"
            MainTab.Height = "300"
            MainTab.BorderWidth = 1
            MainTab.BorderColor = "#da9e86"
            MainTab.Style = "background-color:#fffcea;"
       
        Dim Tabs(7)
        For x=0 To Ubound(Tabs)
            Set Tabs(x) = New ServerTab
            Tabs(x).Caption = "Tab #" & x
            Tabs(x).Style = "background-color:#F6D7CE;BORDER-TOP: #da9e86 1px solid;BORDER-RIGHT: #da9e86 1px solid"
            Tabs(x).RenderFunction = "TabX"
            Tabs(x).SelectedStyle  = "background-color:#F6D7CE;BORDER-TOP: #da9e86 1px solid;BORDER-RIGHT: #da9e86 1px solid;background-color:#EDB5A6;"
            Tabs(x).HoverStyle  = "background-color:#F6D7CE;BORDER-TOP: #da9e86 1px solid;BORDER-RIGHT: #da9e86 1px solid;color:red;text-decoration:underline;"
            Tabs(x).SelectedHoverStyle    = "background-color:#F6D7CE;BORDER-TOP: #da9e86 1px solid;BORDER-RIGHT: #da9e86 1px solid;background-color:#EDB5A6;color:red;"
        Next
        'Tabs(2).Style = "color:blue"
        Tabs(0).RenderFunction  = "Tab00"
        Tabs(0).Caption  = "General"
       
        Tabs(1).Caption  = "Security"       
        Tabs(1).RenderFunction  = "TabSecurity"       
       
        Tabs(2).Caption  = "Users"       
        Tabs(2).RenderFunction  = "Tab02"
       
        MainTab.Tabs = Tabs
       
       
        lnk.Text = "Next..."
    End Function
    Public Function Page_Controls_Init()       
    End Function
   
    Public Function Page_Load()
    End Function
    Public Function lnk_OnClick()
        MainTab.SelectedTabIndex= MainTab.SelectedTabIndex + 1
    End Function
   
    Public Function TabSepFnc()
            Response.Write "<div style='width:80%;height:5px;background-color:#EDB5A6;font-size:1px'></div>"
    End Function
%>

<%Public Function TabX()
    Dim x,mx
    Randomize Timer
    mx = int(rnd*30) + 1
    for x=1 to mx
        Response.Write "HERE" & x & "<BR>"   
    next
End Function%>

<%Public Function Tab00()%>
    <Table><TR><TD>First Name</TD><TD><%txtName%></TD></TR></TABLE>
<%End Function%>
<%Public Function Tab02()%>
    This is a good example of a division with all sort of things...<BR>
    To Move Next Tab Click Here <%lnk%>
<%End Function%>
<%Public Function TabSecurity()
    Set objDataGrid.DataSource = GetRecordSet("Select CustomerID,CompanyName,ContactName + '/' + ContactTitle As Contact, Address From Customers")
    objDataGrid.Control.Style = "border-collapse:collapse;width:100%"
    objDataGrid.Render()
End Function%>

Comments

  1. Bruce Willoughby
    14 Apr 2009 at 20:39
    Wow. The Sample code is great. Used the example to display a section of a database to test. Took only long enough to write the SQL code. Wish you had a list of **all ** the features that could be tweaked.. Have been playing with sizes, shapes, colors etc..
  2. Tommy Soh
    13 Aug 2008 at 14:30

    Hi. I have several ASP 3.0 to EXCEL 10.0 reports thaqt work fine. When I try to go to EXCEL 11.0, I get an invalid class.  How do I set that up for my object?

     

    Thanks,Mac Kimsey mackimsey@yahoo.com

  3. Christian Calderon
    14 Jun 2004 at 10:29
    Check out the sample site at:

    http://clasp.csharpjunkie.com/
  4. Developer Fusion Bot
    01 Jan 1999 at 00:00

    This thread is for discussions of Make your Classic ASP code work like in ASP.NET.

Leave a comment

Sign in or Join us (it's free).

Related tags

asp, asp.net
Christian Calderon
AddThis

Related articles

Ask a question

Related discussion

Related podcasts

  • Developer's Guide to IIS7

    Steve Schofield is an IIS expert working for webhost ORCS Web. Steve and his team are responsible for such sites as Channel9, ASP.NET, weblogs.asp.net and ASP Alliance. As a member ASP Insiders and a IIS MVP - Steve knows his way around a web server. Steve sheds light on how the new features in I...

Events coming up

Languages

Web Development

Frameworks & Architecture

Other major sections

Cancel
Want to stay in touch with what's going on? Follow us on twitter!