asp将RGB值转换成十六进制值

技术文章

asp将RGB值转换成十六进制值

时间：2009-03-27 点击：1725

<%
R_RGB = Trim(Request.Form("R"))
G_RGB = Trim(Request.Form("G"))
B_RGB = Trim(Request.Form("B"))
If R_RGB<>"" And G_RGB<>"" And B_RGB<>"" Then
If 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
Show_Color = "#" & R_HEX & G_HEX & B_HEX
Else
Response.Write("请输入正确的数字！")
End If
Else
Response.Write("请在文本框中输入值！")
End If
%>
<HTML>
<HEAD >
<TITLE>颜色转换</TITLE>
</HEAD>
<BODY>
<FORM METHOD="POST" ACTION="">
<TABLE BORDER=0 WIDTH=200>
<TR>
<TD>
<B>R</B> <INPUT TYPE=TEXT SIZE=3 NAME="R" MAXLENGTH="3" VALUE="<%=R_RGB%>"><BR>
<B>G</B> <INPUT TYPE=TEXT SIZE=3 NAME="G" MAXLENGTH="3" VALUE="<%=G_RGB%>"><BR>
<B>B</B> <INPUT TYPE=TEXT SIZE=3 NAME="B" MAXLENGTH="3" VALUE="<%=B_RGB%>">
</TD>
<TD BGCOLOR="<%=Show_Color%>">
</TD>
<TR><TD></TD><TD><CENTER><%=Show_Color%></CENTER></TD>
<TR>
<TD COLSPAN=2>
<CENTER><INPUT TYPE="SUBMIT" VALUE="转换"></CENTER>
</TD>
</TABLE>
</FORM>
</BODY>
</HTML>

prototype使用Try.these()函数

prototype使用Ajax.Request

prototype使用Ajax.Updater类

javaScript表单验证集合

asp如何解决表单发送数据小于100KB的问题

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：