计算ASP的颜色对比

Question

我发现这个PHP和Javascript的代码片段，但我想知道它是否可以在经典的ASP工作？以下是关于该主题的整篇文章以供参考。

http://24ways.org/2010/calculating-color-contrast/

PHP代码

function getContrast50($hexcolor){ 
    return (hexdec($hexcolor) > 0xffffff/2) ? 'black':'white'; 
} 

Answer 1

好了，没有什么语言内置的。将十六进制转换为十进制就像CLng("&H" & hexValue)一样简单，但是从快速查看PHP手册中看到，hexdec()方法忽略任何无效字符，而VBScript CLng()只会崩溃。

因此，这里是一个工作的功能，据我可以告诉做同样的事情：

Function GetContrast50(hexColor) 
    Const strValidChars = "1234567890abcdef" 
    Dim maxValue, decValue, sanitizedColor 
    Dim x, curChar 
    sanitizedColor = "" 
    For x=1 To Len(hexColor) 
     curChar = LCase(Mid(hexColor, x, 1)) 
     If InStr(strValidChars, curChar)>0 Then 
      sanitizedColor = sanitizedColor & curChar 
     End If 
    Next 
    If Len(sanitizedColor)=0 Then 
     GetContrast50 = "invalid color string" 
     Exit Function 
    End If 
    maxValue = CLng("&H" & "ffffff") 
    decValue = CLng("&H" & sanitizedColor) 
    If decValue > (maxValue/2) Then 
     GetContrast50 = "black" 
    Else 
     GetContrast50 = "white" 
    End If 
End Function 

这是很容易扩展的验证检查给定的字符串是在有效范围内。