| 29 |
jtweddle |
1 |
<%
|
|
|
2 |
'==========================================
|
|
|
3 |
' Tab Menus
|
|
|
4 |
'==========================================
|
|
|
5 |
|
|
|
6 |
'-------------- Tab Definition ---------------
|
|
|
7 |
' L1e | Men | R1e | L2e | -- | -- | -- | -- | -- |
|
|
|
8 |
' L1d | Mde | R1d | L2d | -- | -- | -- | -- | -- |
|
|
|
9 |
' -- | -- | Ru1d | -- | -- | -- | -- | -- | -- |
|
|
|
10 |
'---------------------------------------------
|
|
|
11 |
|
|
|
12 |
'------------- Constants -------------
|
|
|
13 |
'------------- Variables -------------
|
|
|
14 |
Dim L1e, L1d, Men, Mde, R1e, R1d, Ru1d, L2e, L2d
|
|
|
15 |
Dim enItemStyle, deItemStyle
|
|
|
16 |
'-------------------------------------
|
|
|
17 |
%>
|
|
|
18 |
<%
|
|
|
19 |
Private Sub Draw_First_Tab ( SSenable, SSitem, SSlink )
|
|
|
20 |
If SSenable Then
|
|
|
21 |
Response.write "<td>"& L1e &"</td>"
|
|
|
22 |
Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
|
|
|
23 |
Else
|
|
|
24 |
Response.write "<td>"& L1d &"</td>"
|
|
|
25 |
If SSlink = "#" Then
|
|
|
26 |
Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
|
|
|
27 |
Else
|
|
|
28 |
Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
|
|
|
29 |
End If
|
|
|
30 |
End If
|
|
|
31 |
End Sub
|
|
|
32 |
|
|
|
33 |
|
|
|
34 |
Private Sub Draw_Middle_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
|
|
|
35 |
If SSenable Then
|
|
|
36 |
Response.write "<td>"& Ru1d &"</td>"
|
|
|
37 |
Response.write "<td>"& L2e &"</td>"
|
|
|
38 |
Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
|
|
|
39 |
Else
|
|
|
40 |
If SSprevEnable Then
|
|
|
41 |
Response.write "<td>"& R1e &"</td>"
|
|
|
42 |
Response.write "<td>"& L2d &"</td>"
|
|
|
43 |
If SSlink = "#" Then
|
|
|
44 |
Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
|
|
|
45 |
Else
|
|
|
46 |
Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
|
|
|
47 |
End If
|
|
|
48 |
Else
|
|
|
49 |
Response.write "<td>"& R1d &"</td>"
|
|
|
50 |
Response.write "<td>"& L2d &"</td>"
|
|
|
51 |
If SSlink = "#" Then
|
|
|
52 |
Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
|
|
|
53 |
Else
|
|
|
54 |
Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
|
|
|
55 |
End If
|
|
|
56 |
End If
|
|
|
57 |
End If
|
|
|
58 |
End Sub
|
|
|
59 |
|
|
|
60 |
|
|
|
61 |
Private Sub Draw_Last_Tab ( SSenable, SSprevEnable, SSitem, SSlink )
|
|
|
62 |
If SSenable Then
|
|
|
63 |
Response.write "<td>"& Ru1d &"</td>"
|
|
|
64 |
Response.write "<td>"& L2e &"</td>"
|
|
|
65 |
Response.write "<td "& Men &" nowrap><a href='"& SSlink &"' class="& enItemStyle &">"& SSitem &"</a></td>"
|
|
|
66 |
Response.write "<td>"& R1e &"</td>"
|
|
|
67 |
Else
|
|
|
68 |
If SSprevEnable Then
|
|
|
69 |
Response.write "<td>"& R1e &"</td>"
|
|
|
70 |
Response.write "<td>"& L2d &"</td>"
|
|
|
71 |
If SSlink = "#" Then
|
|
|
72 |
Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
|
|
|
73 |
Else
|
|
|
74 |
Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
|
|
|
75 |
End If
|
|
|
76 |
Response.write "<td>"& R1d &"</td>"
|
|
|
77 |
Else
|
|
|
78 |
Response.write "<td>"& R1d &"</td>"
|
|
|
79 |
Response.write "<td>"& L2d &"</td>"
|
|
|
80 |
If SSlink = "#" Then
|
|
|
81 |
Response.write "<td "& Mde &" nowrap class='body_txt_gray'>"& SSitem &"</td>"
|
|
|
82 |
Else
|
|
|
83 |
Response.write "<td "& Mde &" nowrap><a href='"& SSlink &"' class="& deItemStyle &">"& SSitem &"</a></td>"
|
|
|
84 |
End If
|
|
|
85 |
Response.write "<td>"& R1d &"</td>"
|
|
|
86 |
End If
|
|
|
87 |
End If
|
|
|
88 |
End Sub
|
|
|
89 |
|
|
|
90 |
|
|
|
91 |
Sub Generate_Tab_Menu ( SSarray, SSselected, SScolorStyle )
|
|
|
92 |
Dim FirstTab, LastTab, enabled, prevEnabled, tempArray, i
|
|
|
93 |
|
|
|
94 |
Select Case LCase(SScolorStyle)
|
|
|
95 |
Case "orange"
|
|
|
96 |
enItemStyle = "tabItemSelect"
|
|
|
97 |
deItemStyle = "tabItem"
|
|
|
98 |
L1e = "<img src='images/tb_lorange.gif' width='11' height='19'>"
|
|
|
99 |
L1d = "<img src='images/tb_l2gray.gif' width='11' height='19'>"
|
|
|
100 |
Men = "background='images/tb_morange.gif'"
|
|
|
101 |
Mde = "background='images/tb_mgray.gif'"
|
|
|
102 |
R1e = "<img src='images/tb_rorange.gif' width='10' height='19'>"
|
|
|
103 |
R1d = "<img src='images/tb_rgray.gif' width='10' height='19'>"
|
|
|
104 |
Ru1d= "<img src='images/tb_rugray.gif' width='10' height='19'>"
|
|
|
105 |
L2e = "<img src='images/tb_roorange.gif' width='8' height='19'>"
|
|
|
106 |
L2d = "<img src='images/tb_lgray.gif' width='10' height='19'>"
|
|
|
107 |
Case "blue"
|
|
|
108 |
enItemStyle = "tabItemSelect2"
|
|
|
109 |
deItemStyle = "tabItem"
|
|
|
110 |
L1e = "<img src='images/tb_lblue.gif' width='11' height='19'>"
|
|
|
111 |
L1d = "<img src='images/tb_l2gray.gif' width='11' height='19'>"
|
|
|
112 |
Men = "background='images/tb_mblue.gif'"
|
|
|
113 |
Mde = "background='images/tb_mgray.gif'"
|
|
|
114 |
R1e = "<img src='images/tb_rblue.gif' width='10' height='19'>"
|
|
|
115 |
R1d = "<img src='images/tb_rgray.gif' width='10' height='19'>"
|
|
|
116 |
Ru1d= "<img src='images/tb_rugrayb.gif' width='10' height='19'>"
|
|
|
117 |
L2e = "<img src='images/tb_roblue.gif' width='8' height='19'>"
|
|
|
118 |
L2d = "<img src='images/tb_lgray.gif' width='10' height='19'>"
|
|
|
119 |
End Select
|
|
|
120 |
|
|
|
121 |
FirstTab = LBound(SSarray)
|
|
|
122 |
LastTab = UBound(SSarray)
|
|
|
123 |
enabled = false
|
|
|
124 |
|
|
|
125 |
Response.write "<table width='1' border='0' cellspacing='0' cellpadding='0'><tr>"
|
|
|
126 |
|
|
|
127 |
For i = FirstTab To LastTab
|
|
|
128 |
tempArray = Split( SSarray(i), "@")
|
|
|
129 |
prevEnabled = enabled
|
|
|
130 |
|
|
|
131 |
enabled = FALSE
|
|
|
132 |
If SSselected <> "" Then enabled = Eval( InStr(tempArray(0), SSselected) > 0 )
|
|
|
133 |
|
|
|
134 |
Select Case i
|
|
|
135 |
Case FirstTab
|
|
|
136 |
Call Draw_First_Tab ( enabled, tempArray(0), tempArray(1) )
|
|
|
137 |
Case LastTab
|
|
|
138 |
Call Draw_Last_Tab ( enabled, prevEnabled, tempArray(0), tempArray(1) )
|
|
|
139 |
Case Else
|
|
|
140 |
Call Draw_Middle_Tab ( enabled, prevEnabled, tempArray(0), tempArray(1) )
|
|
|
141 |
End Select
|
|
|
142 |
|
|
|
143 |
Next
|
|
|
144 |
|
|
|
145 |
Response.write "</tr></table>"
|
|
|
146 |
|
|
|
147 |
End Sub
|
|
|
148 |
%>
|
|
|
149 |
|
|
|
150 |
|
|
|
151 |
|