Safe Colors

Safe Colors

--------------------------------------------------------------------------------

Description : The script below demonstrates two things: how easy it is to mix Jscript and VBscript in the same file samples of web safe colors. These colors will appear the same on almost everybody's browser. Other colors may appear dramatically different from browser to browser.

<html><head>
<title>websafe.asp</title></head>
<body bgcolor="#FFFFF">
<%
whitetext="<font face='arial black' size='4' color='white'>"
blacktext="<font face='arial black' size='4'>"
colortext="<font face='arial black' size='4' color='"

spacer=" "
Response.Write blacktext & "<table border=0>"
For counter=1 To 6
safecolor1=websafe(counter)
For counter2=1 To 6
safecolor2=websafe(counter2)
For counter3= 1 To 6
safecolor3=websafe(counter3)
hexcolor=convertToHex(safecolor1,safecolor2,safecolor3)

Response.Write "<tr><td>" & hexcolor & "</td>"

Response.Write "<td bgcolor='" & hexcolor & "'>" & whitetext
Response.Write " White Text </td>"

Response.Write "<td bgcolor='" & white & "'>" & colortext & hexcolor & "'>"
Response.Write " Colored Text </font></td>"

Response.Write "<td bgcolor='" & hexcolor & "'>" & blacktext
Response.Write " Black Text </td>"

Response.Write "</tr>"

For counter4=1 To 4
Response.Write "<td bgcolor='#FFFFF'>" & spacer & "</td>"
Next
Response.Write "<tr>"

Next
Next
Next
Response.Write "</table>"
%>
</body></html>
<%
Function websafe(mynumber)
Select Case mynumber
Case 1
websafe=0
Case 2
websafe=51
Case 3
websafe=102
Case 4
websafe=153
Case 5
websafe=204
Case 6
websafe=255
End Select
End Function
%>

<script language=jscript runat=server>
Function convertToHex(R, G, B) {

var n = B;
n += G << 8;
n += R << 16;
return convertBase(n);
}

// turns Decimal Integer into hexadecimal String
Function convertBase(num) {
var i = 0; var j = 20;
var str = "#";

While(j >= 0) {
i = (num >> j)%16;
If(i >= 10) {
If(i == 10) str += "A";
Else If(i == 11) str += "B";
Else If(i == 12) str += "C";
Else If(i == 13) str += "D";
Else If(i == 14) str += "E";
Else str += "F";
} Else
str += i;
j -= 4;
}

return str;
}
</script>