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

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

计算ASP的颜色对比度

1 个答案: