Ja, habe ich - ist aber dummerweise alles in einem Intranet...
ABER......
--- cut ---
<!--#include file="../../inc/form.asp"-->
<html>
<head>
<%=Session("CSS")%>
<title>Schulungs- Details</title>
<%dim tName(8), tText(8), tCount
AddTab "Allgemein", "Allgemein"
AddTab "Bild", "Bild"
AddTab "Info", "Info"
AddTab "Personal", "Personal"
AddTab "Krankenschein", "Krankenschein"
AddTab "Schulungen", "Schulung"
AddTab "Ange", "Angeh�rige"
AddTab "History", "History"
MakeTabScript
%>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#D6DFF7">
<% MakeTabs%>
<table id="Allgemein" border="0" cellpadding="2" cellspacing="2,"
width="100%" style="border-collapse: collapse" bordercolor="#111111">
blablalba
</table>
<table id="Bild" border="0" cellpadding="2" cellspacing="0" width="100%"
style="border-collapse: collapse" bordercolor="#111111">
blablalba
</table>
<table id="Info" border="0" cellpadding="2" cellspacing="0" width="100%"
style="border-collapse: collapse" bordercolor="#111111">
blablalba
</table>
etc.
<%InitTab%>
</body>
</html>
--- cut ---
Jetzt wirst noch meine Spezialfunktionen baruchen:
--- cut ---
function AddTab(tabName, tabText)
tCount = tCount + 1
tName(tCount) = tabName
tText(tCount) = tabText
end function
function MakeTabs
%><table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="100%"
id="AutoNumber1" bgcolor="#ECE9D8">
<tr><td><table border="0" cellpadding="0" cellspacing="0"><%for i=1 to
tCount%>
<tr id="t_<%=tName(i)%>">
<% for j = 1 to tCount%>
<td align="center" class="<% if i=j
then%>linkboxactive<%else%>linkbox<%end if%>"
onmouseover="this.className='linkboxover';"
onclick="ActiveTab<%=tName(j)%>()" onmouseout="this.className='<% if i=j
then%>linkboxactive<%else%>linkbox<%end
if%>';"> <%=tText(j)%> </td>
<%next%>
</tr>
<%next%></table></td></tr></table><%
end function
function MakeTabScript
response.write "<SCRIPT LANGUAGE=""Javascript"">" & vbCrLf
for t=1 to tCount
response.write "function ActiveTab" & tName(t)&"()" & vbCrLf
response.write "{" & vbCrLf
for ii=1 to tCount
response.write tName(ii)
response.write ".style.display=""none"";" & vbCrLf & "t_"
response.write tName(ii)
response.write ".style.display=""none"";" & vbCrLf
next
response.write "t_" & tName(t)&".style.display=""block"";" & vbCrLf
response.write tName(t)&".style.display=""block"";" & vbCrLf
response.write "}" & vbCrLf
next
response.write "</script>"
end function
function InitTab
tab = trim(request("tab"))
if tab = "" Then
response.write "<script>ActiveTab" & tName(1) & "()</script>"
else
response.write "<script>ActiveTab" & tab & "()</script>"
end if
end function
--- cut ---
Ich hoffe, ich habe nix vergessen.
Die Tabs musst Du �brigens in der CSS-Datei definieren.
Und das ganze funktioniert auch nur am Internet Explorer...
Stefan.
-----Urspr�ngliche Nachricht-----
Von: Frank Matthiesen [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 29. April 2002 14:42
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] OT:Registerkarten mit HTML
Hallo,
hat schon mal jemand eine Webanwendung erstellt, die �ber
"Registerkarten"
verf�gt?
So wie die Eigenschaftsanzeige des/der Webserver, die man �ber die MMC
aufrufen kann.
F�r Links etc. w�re ich dankbar.
Gruss
Frank
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
