Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6873 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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