Dynamisk CSS
Jeg har haft store problemer gennem længere tid med højde/bredde i hhv. MSIE, Opera, FF og Mozilla. Derfor vil jeg v.hj.a. et script finde ud af hvilken browsertype der benyttes, så det kan bestemmes hvilken klasse, der skal benyttes fra mit CSS.Istedet for at lave noget i denne stil:
<td class="<% If IE = TRUE Then %>tdbannerie<% ElseIf Opera = TRUE Then %>tdbanneropera<% ElseIf NS = TRUE Then %>tdbannerns<% Else %>tdbanner<% End If %>"> </td>
kunne det måske være mest hensigtsmæssigt med Select Case, så det kunne se således ud istedet:
<%
Dim strUserAgent
strUserAgent = UCase(CStr(Request.ServerVariables("HTTP_USER_AGENT")))
Select Case ...
Case IE ...
vClass = "tdbannerie"
Case Opera ...
vClass = "tdbanneropera"
Case NS ...
vClass = "tdbannerns"
Case OtherBrowser ...
vClass = "tdbannerother"
End Select
%>
<td class="<%=vClass%>"> </td>
Du får hele scriptet her:
<%
Dim strUserAgent
Dim IE5Plus, IE55Plus, css2compatible
Dim NS, NS4, NS6, IE, IE4, IE5, IE6
Dim Opera, Opera5
Dim OtherBrowser
strUserAgent = UCase(CStr(Request.ServerVariables("HTTP_USER_AGENT")))
IE = False
IE4 = False
IE5 = False
IE6 = False
If InStr(strUserAgent, "MSIE") Then
IE = TRUE
End If
If InStr(strUserAgent, "MSIE 4") Then
IE4 = TRUE
ElseIf InStr(strUserAgent, "MSIE 5") Then
IE5 = TRUE
ElseIf InStr(strUserAgent, "MSIE 6") Then
IE6 = TRUE
End If
Opera = False
Opera5 = False
If InStr(strUserAgent, "Opera") Then
Opera = TRUE
End If
If InStr(strUserAgent, "Opera 5") Or InStr(strUserAgent, "Opera/5") Then
Opera5 = TRUE
End If
NS = FALSE
NS4 = FALSE
NS6 = FALSE
If InStr(strUserAgent, "Netscape6") Then
NS6 = TRUE
ElseIf InStr(strUserAgent, "Mozilla/4") AND Not (IE OR Opera) Then
NS4 = TRUE
End If
If NS6 OR NS4 OR (InStr(strUserAgent, "Mozilla") AND Not (IE OR Opera)) Then
NS = TRUE
End If
If Opera5 Or IE6 Or NS6 Then
css2compatible = TRUE
Else
css2compatible = FALSE
End If
OtherBrowser = FALSE
If Not (IE OR NS4 OR NS6 OR Opera) Then
OtherBrowser = TRUE
End If
If InStr(strUserAgent, "MSIE 5") Or InStr(strUserAgent, "MSIE 6") Then
IE5Plus = TRUE
Else
IE5Plus = FALSE
End If
Select Case
...........................
End Select
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title></title>
</head>
<body>
<table>
<tr>
<td class="vClass"> </td>
</tr>
</table>
</body>
</html>
