計算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 

這是很容易擴展的驗證檢查給定的字符串是在有效範圍內。