asp如何将RGB颜色转化成到16进制的？
来源：asp之家 时间：2009-11-26 20:41:00
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
投稿猜你喜欢
用Python实现一本个性化日历
如何使用Maxwell实时同步mysql数据
详解thinkphp+redis+队列的实现代码
jQuery 让人恋恋不舍的秘密
ASP.NET操作MySql数据库的实例代码讲解
2行Python实现给图片加水印效果
Python实现滑块验证码详解
python爬虫爬取幽默笑话网站
python 实现 hive中类似 lateral view explode的功能示例
python生成可执行exe控制Microsip自动填写号码并拨打功能
python二维列表一维列表的互相转换实例
vue.extend与vue.component的区别和联系
利用Python Matlab绘制曲线图的简单实例
