使用VBScript創(chuàng)建安全色

<table border="0" cellpadding="0" cellspacing="1">
<script language="VBScript">
Dim hex(6)
hex(0) = "00"
hex(1) = "33"
hex(2) = "66"
hex(3) = "99"
hex(4) = "CC"
hex(5) = "FF"
Dim i, j, k, h
For i = 5 To 0 Step -1
  document.Write "<tr>"
  For j = 0 To 5
    For k = 0 To 5
      h = hex(i) & hex(j) & hex(k)
      document.Write "<td width='50' height='10' bgcolor='#" & h & "'>#" & h & "</td>"
    Next
  Next
  document.Write "</tr>"
Next
</script>
</table>

使用JavaScript創(chuàng)建安全色

<table border="0" cellpadding="0" cellspacing="1">
<script language="JavaScript">
var hex=[];
hex[0] = "00";
hex[1] = "33";
hex[2] = "66";
hex[3] = "99";
hex[4] = "CC";
hex[5] = "FF";
var i, j, k, h;
for (i=5; i>=0; i--) {
	//document.writeln("<tr>");
	for (j=0; j<=5; j++) {
                document.writeln("<tr>");
		for (k=0; k<=5; k++) {
			h = hex[i]+hex[j]+hex[k];
			document.writeln("<td width='50' height='10' bgcolor='#"+h+"'>#"+h+"</td>");
		}
                document.writeln("</tr>");
	}
	//document.writeln("</tr>");
}
</script>
</table>