Library tutorials & articles
Make your Classic ASP code work like in ASP.NET
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%>
Related articles
Related discussion
-
How to debug classic ASP pages during AJAX calls in ASP.NET website
by andwan0 (0 replies)
-
Menu.css corrupting my other theme.css
by Montague (0 replies)
-
GridView cell colour change
by viral.mat (1 replies)
-
need Regular Expression for strong password
by bussureddy82 (4 replies)
-
Gridview -> Template Field -> Button
by antti.simonen (1 replies)
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
-
Mar
15
DevWeek 2010
London, United Kingdom
DevWeek is Europe’s leading independent conference for software developers, database professionals and IT architects, and features expert speakers on a wide range of topics, including .NET 4.0, Silverlight 3, WCF 4, Visual Studio 2010, REST, Windows Workflow 4, Thread Synchronization, ASP.NET 4.0, SQL Server 2008 R2, LINQ, Unit Testing, CLR & C# 4.0, .NET Patterns, WPF 4, F#, Windows Azure, ADO.NET, Entity Framework, Debugging, T-SQL Tips & Tricks, and more.
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
http://clasp.csharpjunkie.com/
This thread is for discussions of Make your Classic ASP code work like in ASP.NET.