网络编程
位置：首页>> 网络编程>> Asp编程>> asp如何将RGB颜色转化成到16进制的？

asp如何将RGB颜色转化成到16进制的？

　来源：asp之家　发布时间：2009-11-26 20:41:00　

标签：RGB,颜色,16进制

asp如何将RGB颜色转化成到16进制的？

在R G B中输入小于255的数字点击观看即可转换成#开通的16进制。

代码如下：

<％
R_RGB = TRIM(Request.Form("R"))
G_RGB = TRIM(Request.Form("G"))
B_RGB = TRIM(Request.Form("B"))
IF NOT len(R_RGB)=0 AND NOT len(G_RGB)=0 AND NOT len(B_RGB)=0 AND IsNumeric(R_RGB) AND IsNumeric(G_RGB) AND IsNumeric(B_RGB) THEN
IF CInt(R_RGB) < 0 THEN R_RGB = "0"
IF CInt(R_RGB) > 255 THEN R_RGB = "255"
IF CInt(G_RGB) < 0 THEN G_RGB = "0"
IF CInt(G_RGB) > 255 THEN G_RGB = "255"
IF CInt(B_RGB) < 0 THEN B_RGB = "0"
IF CInt(B_RGB) > 255 THEN B_RGB = "255"
R_HEX = Hex(R_RGB)
G_HEX = Hex(G_RGB)
B_HEX = Hex(B_RGB)
IF len(R_HEX)=1 THEN R_HEX = "0" & R_HEX 
IF len(G_HEX)=1 THEN G_HEX = "0" & G_HEX
IF len(B_HEX)=1 THEN B_HEX = "0" & B_HEX
disp_col = "#" & R_HEX & G_HEX & B_HEX
ELSE
R_RGB = "0"
G_RGB = "0"
B_RGB = "0"
disp_col = "#000000"
END IF
％>
<HTML>
<head>
<title>asp之家asp教程 - 颜色转换</title>
</head>
<BODY>
<FORM METHOD="POST" ACTION="">
<TABLE BORDER=0 WIDTH=200>
<TR>
<TD>
<B>R</B> <INPUT TYPE=TEXT SIZE=3 NAME="R" VALUE="<％=R_RGB％>"><BR>
<B>G</B> <INPUT TYPE=TEXT SIZE=3 NAME="G" VALUE="<％=G_RGB％>"><BR>
<B>B</B> <INPUT TYPE=TEXT SIZE=3 NAME="B" VALUE="<％=B_RGB％>">
</TD>
<TD BGCOLOR="<％=disp_col％>">
</TD>
<TR><TD></TD><TD><CENTER><％=disp_col％></CENTER></TD>
<TR>
<TD COLSPAN=2>
<CENTER><INPUT TYPE="SUBMIT" VALUE="观看"></CENTER>
</TD>
</TABLE>
</FORM>
</BODY>
</HTML>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com