php - 计算 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()方法忽略任何无效字符，而 VBScriptCLng()只会崩溃。

所以这是一个工作功能，据我所知，做同样的事情：

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

扩展验证以检查给定字符串是否在有效范围内非常容易。