RGB값을 받아서 헥사값으로 변환해 주는 함수입니다.
너무 간단해서 주석은 달지 않았습니다.
<%
Function RGB2HTMLColor( RColor, GColor, BColor )
Dim HexR, HexB, HexG
Dim sTemp
'RColor
HexR = Hex(RColor)
If Len(HexR) < 2 Then
HexR = "0" & HexR
End If
'GColor
HexG = Hex(GColor)
If Len(HexG) < 2 Then
HexG = "0" & HexG
End if
'BColor
HexB = Hex(BColor)
If Len(HexB) < 2 Then
HexB = "0" & HexB
End if
RGB2HTMLColor = "#" & HexR & HexG & HexB
End Function
Response.Write RGB2HTMLColor( 255, 100, 255 )
%>